fact: Definition CForall {A: Type} (P: A -> Type): list A -> Type := fold_right (fun x => prod (P x)) True.
imports: Coq.Arith.Compare_dec CoRN.logic.CornBasics Coq.ZArith.ZArith Coq.setoid_ring.ZArithRing Coq.Arith.Wf_nat Coq(Lia)