X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2Flogic%2Fequality.ma;h=cc181dfbf4f21c1ad15679de180126bb1a67ca73;hb=7ce9eb0e973e414c988b416d118efe860516e275;hp=01c60e8fc9b17c40c720b235be2bcac605e2a8e9;hpb=ea651f11cbc6edb17e8d0d16c239e0cf3f526959;p=helm.git

diff --git a/helm/software/matita/library/logic/equality.ma b/helm/software/matita/library/logic/equality.ma
index 01c60e8fc..cc181dfbf 100644
--- a/helm/software/matita/library/logic/equality.ma
+++ b/helm/software/matita/library/logic/equality.ma
@@ -12,8 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-set "baseuri" "cic:/matita/logic/equality/".
-
 include "higher_order_defs/relations.ma".
 
 inductive eq (A:Type) (x:A) : A \to Prop \def
@@ -83,8 +81,8 @@ intros.elim H.apply refl_eq.
 qed.
 
 (*  *)
-coercion cic:/matita/logic/equality/sym_eq.con.
-coercion cic:/matita/logic/equality/eq_f.con.
+coercion sym_eq.
+coercion eq_f.
 (* *)
 
 default "equality"