X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Flibrary%2Flogic%2Fequality.ma;h=510f0c5c6fe3144b395840770c1f8dbe15084163;hb=fdb2b6f3e8f7fdcebd97b5da7e83f530a07cb973;hp=1f68503df37cdb4cb6d31003da083a42fb51052b;hpb=0a7294c53c85ad9363a2a50d6ad750b5b8d34139;p=helm.git

diff --git a/matita/library/logic/equality.ma b/matita/library/logic/equality.ma
index 1f68503df..510f0c5c6 100644
--- a/matita/library/logic/equality.ma
+++ b/matita/library/logic/equality.ma
@@ -70,19 +70,24 @@ theorem eq_f': \forall  A,B:Type.\forall f:A\to B.
 intros.elim H.apply refl_eq.
 qed.
 
-(* 
+(*  *)
 coercion cic:/matita/logic/equality/sym_eq.con.
 coercion cic:/matita/logic/equality/eq_f.con.
-*)
+(* *)
 
 default "equality"
  cic:/matita/logic/equality/eq.ind
- cic:/matita/logic/equality/symmetric_eq.con
+ cic:/matita/logic/equality/sym_eq.con
  cic:/matita/logic/equality/transitive_eq.con
  cic:/matita/logic/equality/eq_ind.con
  cic:/matita/logic/equality/eq_elim_r.con
  cic:/matita/logic/equality/eq_f.con
+(* *)
+ cic:/matita/logic/equality/eq_OF_eq.con.
+(* *)
+(*  
  cic:/matita/logic/equality/eq_f'.con. (* \x.sym (eq_f x) *)
+ *)
  
 theorem eq_f2: \forall  A,B,C:Type.\forall f:A\to B \to C.
 \forall x1,x2:A. \forall y1,y2:B.