X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fng_tactics%2FnCicElim.ml;h=ace3c80a4b3e58be099dcd4fb1bff0cd5d155fb4;hb=0e81e658803822599b5e015aab67bc282afc9c4d;hp=24fd7d8e9aa0eb65104e4bc7154632985f1e0d39;hpb=638616469ffdd7ba446ed0466e60ccf81a7b42cd;p=helm.git

diff --git a/matita/components/ng_tactics/nCicElim.ml b/matita/components/ng_tactics/nCicElim.ml
index 24fd7d8e9..ace3c80a4 100644
--- a/matita/components/ng_tactics/nCicElim.ml
+++ b/matita/components/ng_tactics/nCicElim.ml
@@ -225,9 +225,7 @@ let pp (status: #NCic.status) =
  let rec pp rels =
   function
     NCic.Rel i -> List.nth rels (i - 1)
-  | NCic.Const _ as t ->
-     NotationPt.Ident
-      (status#ppterm ~metasenv:[] ~subst:[] ~context:[] t,None)
+  | NCic.Const _ as t -> NotationPt.NCic t
   | NCic.Sort s -> NotationPt.Sort (fst (ast_of_sort s))
   | NCic.Meta _
   | NCic.Implicit _ -> assert false