fact: Definition lt_rec f x y := if x is cons a b c n d then if y is cons a' b' c' n' d' then if (lt_psi_rec f a b c a' b' c') then true else if ((a== a') && (b==b') && (c==c')) then if (n < n')%N then true else if (n == n') then (f d d') else false else false else false else if y is cons a' b' c' n' d' then true else false.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(fintype bigop)