From: Enrico Tassi Date: Fri, 16 Jan 2009 13:37:56 +0000 (+0000) Subject: ceommented out metasenv X-Git-Tag: make_still_working~4247 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=785d106d742a690c88ff0d65fbe88ca4169dbd05;p=helm.git ceommented out metasenv --- diff --git a/helm/software/components/cic_unification/cicUnification.ml b/helm/software/components/cic_unification/cicUnification.ml index 36c114d8f..52fdfa19a 100644 --- 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%s\n" (Lazy.force s)) (CicMetaSubst.ppcontext ~metasenv subst context) - (CicMetaSubst.ppmetasenv subst metasenv) + ("OMITTED" (*CicMetaSubst.ppmetasenv subst metasenv*)) (Lazy.force msg) )