From d78d42f9aec00afc88b7ab3984c2d5ad0677e391 Mon Sep 17 00:00:00 2001
From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 26 Oct 2007 12:48:33 +0000
Subject: [PATCH] ...

---
 components/cic_unification/cicRefine.ml      | 3 ++-
 matita/matita.conf.xml.in                    | 8 ++++++--
 pkg-matita/tarballs/matita_0.4.0.orig.tar.gz | 1 +
 3 files changed, 9 insertions(+), 3 deletions(-)
 create mode 120000 pkg-matita/tarballs/matita_0.4.0.orig.tar.gz

diff --git a/components/cic_unification/cicRefine.ml b/components/cic_unification/cicRefine.ml
index 7f5ab6883..e0f8fd1c7 100644
--- a/components/cic_unification/cicRefine.ml
+++ b/components/cic_unification/cicRefine.ml
@@ -961,7 +961,8 @@ and type_of_aux' ?(localization_tbl = Cic.CicHash.create 1) metasenv context t
                | Some t,Some (_,C.Def (ct,_)) ->
                    let subst',metasenv',ugraph' = 
                    (try
-prerr_endline ("poco geniale: nel caso di IRL basterebbe sapere che questo e' il Rel corrispondente. Si puo' ottimizzare il caso t = rel.");
+(*prerr_endline ("poco geniale: nel caso di IRL basterebbe sapere che questo e'
+ * il Rel corrispondente. Si puo' ottimizzare il caso t = rel.");*)
                       fo_unif_subst subst context metasenv t ct ugraph
                     with e -> raise (RefineFailure (lazy (sprintf "The local context is not consistent with the canonical context, since %s cannot be unified with %s. Reason: %s" (CicMetaSubst.ppterm ~metasenv subst t) (CicMetaSubst.ppterm ~metasenv subst ct) (match e with AssertFailure msg -> Lazy.force msg | _ -> (Printexc.to_string e))))))
                    in
diff --git a/matita/matita.conf.xml.in b/matita/matita.conf.xml.in
index 791e69cf8..f9dbfc781 100644
--- a/matita/matita.conf.xml.in
+++ b/matita/matita.conf.xml.in
@@ -48,11 +48,11 @@
     
     <!-- this snippet is what is used by the helm team, everything on mowgli.
          note that user's tables are named diffrently from library tables, so that
-	 they can coexists on the same db -->
 
     <key name="metadata">@DBHOST@ public helm none legacy</key>
     <key name="metadata">@DBHOST@ matita helm none library</key>
     <key name="metadata">@DBHOST@ matita helm none user</key>
+	 they can coexists on the same db -->
 
     <!-- The following snipset is used by the helm team to publish the matita
          contributions
@@ -64,9 +64,9 @@
     <!-- The following snippet it what you want to use a local sqlite db
          and acess remotely to the coq library trought mowgli
     <key name="metadata">@DBHOST@ matita helm none legacy</key>
+    -->
     <key name="metadata">file://$(matita.rt_base_dir) metadata.db helm helm library</key>
     <key name="metadata">file://$(matita.basedir) user.db helm helm user</key>
-    -->
 
     <!-- 
     If you have a large amount of metadata, you may be interested in using
@@ -97,11 +97,13 @@
       (e.g. the Matita standard library)
     "legacy" implies "ro"
     -->
+    <!--
     <key name="prefix">
       cic:/matita/
       file:///projects/helm/library/matita_contribs/matita
       ro
     </key>
+    -->
     <key name="prefix">
       cic:/matita/
       file://$(matita.rt_base_dir)/xml/standard-library/
@@ -111,6 +113,7 @@
       cic:/matita/
       file://$(user.home)/.matita/xml/matita/
     </key>
+    <!--
     <key name="prefix">
       cic:/
       file://@RT_BASE_DIR@/xml/legacy-library/coq/
@@ -126,5 +129,6 @@
       http://mowgli.cs.unibo.it/xml/
       legacy
     </key>
+    -->
   </section>
 </helm_registry>
diff --git a/pkg-matita/tarballs/matita_0.4.0.orig.tar.gz b/pkg-matita/tarballs/matita_0.4.0.orig.tar.gz
new file mode 120000
index 000000000..f58c98600
--- /dev/null
+++ b/pkg-matita/tarballs/matita_0.4.0.orig.tar.gz
@@ -0,0 +1 @@
+matita-0.4.0.tar.gz
\ No newline at end of file
-- 
2.39.2