X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Flibrary%2Flogic%2Fequality.ma;h=129b00189f1e61523c1b446bcd1c01ce0981d531;hb=fa9d8870aff80b2b3b186539d69701f39a2588f4;hp=0675edc76bb94eb3144b905dbee0eb76da522119;hpb=6d32e0d926eabf01e941290399b8d6b0b812ecfa;p=helm.git diff --git a/matita/library/logic/equality.ma b/matita/library/logic/equality.ma index 0675edc76..129b00189 100644 --- a/matita/library/logic/equality.ma +++ b/matita/library/logic/equality.ma @@ -65,7 +65,10 @@ default "equality" cic:/matita/logic/equality/sym_eq.con cic:/matita/logic/equality/trans_eq.con cic:/matita/logic/equality/eq_ind.con - cic:/matita/logic/equality/eq_elim_r.con. + cic:/matita/logic/equality/eq_elim_r.con + cic:/matita/logic/equality/eq_f.con + cic:/matita/logic/equality/eq_f1.con. (* \x.sym (eq_f x) *) + theorem eq_f: \forall A,B:Type.\forall f:A\to B. \forall x,y:A. x=y \to f x = f y.