fact: Definition clos_trans_ind' (A:Set)(R P:A->A->Prop) (exp1:forall x y:A, R x y -> P x y) (exp2:forall x y z:A, clos_trans A R x y -> P x y -> clos_trans A R y z -> P y z -> P x z)(x y:A) (p:clos_trans A R x y) : P x y.
imports: ZArith List Arith Zwf Relations Inverse_Image