X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fcomponents%2Fng_tactics%2FnTacStatus.ml;fp=helm%2Fsoftware%2Fcomponents%2Fng_tactics%2FnTacStatus.ml;h=e7d5bb3b532ee1eac2b6fdcee560ad8b58cb61c2;hb=2596b5aa335f8763ecd0f9263df7d538f0958e59;hp=4a7f9819650b0efa11954f27017129a1b43aefa5;hpb=073654937929574a9448ed01b340a2928d77dbec;p=helm.git

diff --git a/helm/software/components/ng_tactics/nTacStatus.ml b/helm/software/components/ng_tactics/nTacStatus.ml
index 4a7f98196..e7d5bb3b5 100644
--- a/helm/software/components/ng_tactics/nTacStatus.ml
+++ b/helm/software/components/ng_tactics/nTacStatus.ml
@@ -249,7 +249,7 @@ let to_subst status i entry =
   status#set_obj (name,height,metasenv,subst,obj)
 ;;
 
-let instantiate status ?refine:(dorefine=false) i t =
+let instantiate status ?refine:(dorefine=true) i t =
  let _,_,metasenv,_,_ = status#obj in
  let gname, context, gty = List.assoc i metasenv in
   if dorefine then