fact: Record big_rel_class_of T (leq : rel T) := BigRelClass { leq_big_internal_op : rel T; bigger_than_op : seq T -> T; _ : leq_big_internal_op = leq; _ : forall i s, leq_big_internal_op i (bigger_than_op (i :: s)); _ : forall i j s, leq_big_internal_op i (bigger_than_op s) -> leq_big_internal_op i (bigger_than_op (j :: s)) }.
imports: mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq choice fintype)