]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/software/components/ng_tactics/nTactics.ml
1. new implementation of normalize to have a speed up in case of fully applicative...
[helm.git] / helm / software / components / ng_tactics / nTactics.ml
index 86b42f66190403dc2630ec8ebe941cb66db75dec..d1e6dc781824d3d894379fe9083ed09c11f22504 100644 (file)
@@ -371,7 +371,7 @@ let select0_tac ~where:(wanted,hyps,where) ~job  =
    let status, instance = 
      mk_meta status newgoalctx (`Decl newgoalty) `IsTerm
    in
-   instantiate status goal instance)
+   instantiate ~refine:false status goal instance)
 ;;
 
 let select_tac ~where ~job move_down_hyps =