fact: Definition parametric (c:chain) := forall A B (R: A -> B -> Type) (a:A) (b:B), R a b -> computation_R A B R (c A a) (c B b).
imports: Coq(Relations RelationClasses Lia List) Param(Param) additions(More_on_positive)