fact: CoInductive total_spec (x y : K) : bool -> bool -> bool -> Type := | total_spec_lt of ord x y : total_spec x y true false false | total_spec_eq of x == y : total_spec x y false true false | total_spec_gt of ord y x : total_spec x y false false true.
imports: mathcomp(ssreflect ssrbool ssrnat eqtype ssrfun seq fintype)