fact: Definition SubON_same_cst `{OA : @ON A ltA compareA} `{OB : @ON B ltB compareB} {iota : A -> B} {alpha: B} {_ : SubON OA OB alpha iota} (a : A) (b : B) := iota a = b.
imports: Coq(RelationClasses Relation_Operators Ensembles) hydras(OrdNotations Schutte_basics)