ceommented out metasenv

diff --git a/helm/software/components/cic_unification/cicUnification.ml b/helm/software/components/cic_unification/cicUnification.ml
index 36c114d8f8f85fff695a01040ec3185e83934247..52fdfa19a1cc67f1fe42167be3d66ed814ed8045 100644 (file)
--- a/helm/software/components/cic_unification/cicUnification.ml
+++ b/helm/software/components/cic_unification/cicUnification.ml
@@ -953,7 +953,7 @@ let enrich_msg msg subst context metasenv t1 t2 ugraph =
     | Uncertain s
     | AssertFailure s -> sprintf "MALFORMED(t2): \n<BEGIN>%s\n<END>" (Lazy.force s))
     (CicMetaSubst.ppcontext ~metasenv subst context)
-    (CicMetaSubst.ppmetasenv subst metasenv)
+    ("OMITTED" (*CicMetaSubst.ppmetasenv subst metasenv*))
     (Lazy.force msg)
  )