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