fact: Definition lt_psi_rec f a b c a' b' c' (x := [a,b,c])(x':= [a', b', c']):= [|| [&& a==a', b==b' & f c c'], [&& a==a', f b b' & f c x'], [&& a==a', f b' b & f x c'], [&& a==a', f b' b & x == c'], [&& f a a', f b x' & f c x'], ((f a' a) && f x b'), ((f a' a) && (x == b')), ((f a' a) && f x c') | ((f a' a) && (x == c'))].
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(fintype bigop)