X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgrafite_engine%2FgrafiteEngine.ml;h=783d7e6fc5e624b7dd9d21ebaf9af1c621f95ccd;hb=2371237a27b5fa23f741e381073a48d84bc6a906;hp=1a7c0a981ac91115cde3bb1f6ad61b75d54fc13f;hpb=d4f508a277973778507021761fed85fc7d5be254;p=helm.git

diff --git a/helm/software/components/grafite_engine/grafiteEngine.ml b/helm/software/components/grafite_engine/grafiteEngine.ml
index 1a7c0a981..783d7e6fc 100644
--- a/helm/software/components/grafite_engine/grafiteEngine.ml
+++ b/helm/software/components/grafite_engine/grafiteEngine.ml
@@ -531,7 +531,7 @@ let record_index_obj =
 ;;
 
 let index_obj_for_auto status (uri, height, _, _, kind) = 
- prerr_endline (string_of_int height);
+ (*prerr_endline (string_of_int height);*)
  let mk_item orig_ty spec =
    let ty,_,_ = NCicMetaSubst.saturate ~delta:max_int [] [] [] orig_ty 0 in
    let keys = 
@@ -605,7 +605,7 @@ let record_index_eq =
  let basic_index_eq uri
    ~refresh_uri_in_universe 
    ~refresh_uri_in_term 
-   = index_eq uri 
+   = index_eq (NCicLibrary.refresh_uri uri) 
  in
   NCicLibrary.Serializer.register#run "index_eq"
    object(_ : 'a NCicLibrary.register_type)
@@ -616,13 +616,13 @@ let record_index_eq =
 let index_eq_for_auto status uri =
  if NnAuto.is_a_fact_obj status uri then
    let newstatus = index_eq uri status in
-     if newstatus == status then status 
+     if newstatus#eq_cache == status#eq_cache then status 
      else
-       (prerr_endline ("recording " ^ (NUri.string_of_uri uri));
+       ((*prerr_endline ("recording " ^ (NUri.string_of_uri uri));*)
 	let dump = record_index_eq uri :: newstatus#dump 
 	in newstatus#set_dump dump)
  else 
-   (prerr_endline "Not a fact";
+   ((*prerr_endline "Not a fact";*)
    status)
 ;; 
 
@@ -752,7 +752,7 @@ let eval_ng_punct (_text, _prefix_len, punct) =
   match punct with
   | GrafiteAst.Dot _ -> NTactics.dot_tac 
   | GrafiteAst.Semicolon _ -> fun x -> x
-  | GrafiteAst.Branch _ -> NTactics.branch_tac 
+  | GrafiteAst.Branch _ -> NTactics.branch_tac ~force:false
   | GrafiteAst.Shift _ -> NTactics.shift_tac 
   | GrafiteAst.Pos (_,l) -> NTactics.pos_tac l
   | GrafiteAst.Wildcard _ -> NTactics.wildcard_tac 
@@ -763,6 +763,8 @@ let eval_ng_tac tac =
  let rec aux f (text, prefix_len, tac) =
   match tac with
   | GrafiteAst.NApply (_loc, t) -> NTactics.apply_tac (text,prefix_len,t) 
+  | GrafiteAst.NSmartApply (_loc, t) -> 
+      NnAuto.smart_apply_tac (text,prefix_len,t) 
   | GrafiteAst.NAssert (_loc, seqs) ->
      NTactics.assert_tac
       ((List.map
@@ -777,7 +779,7 @@ let eval_ng_tac tac =
   | GrafiteAst.NAuto (_loc, (l,a)) ->
       NAuto.auto_tac
 	~params:(List.map (fun x -> "",0,x) l,a)
-  | GrafiteAst.NBranch _ -> NTactics.branch_tac 
+  | GrafiteAst.NBranch _ -> NTactics.branch_tac ~force:false
   | GrafiteAst.NCases (_loc, what, where) ->
       NTactics.cases_tac 
         ~what:(text,prefix_len,what)
@@ -803,6 +805,10 @@ let eval_ng_tac tac =
       NTactics.generalize_tac ~where:(text,prefix_len,where)
   | GrafiteAst.NId _ -> (fun x -> x)
   | GrafiteAst.NIntro (_loc,n) -> NTactics.intro_tac n
+  | GrafiteAst.NInversion (_loc, what, where) ->
+      NTactics.inversion_tac 
+        ~what:(text,prefix_len,what)
+        ~where:(text,prefix_len,where)
   | GrafiteAst.NLApply (_loc, t) -> NTactics.lapply_tac (text,prefix_len,t) 
   | GrafiteAst.NLetIn (_loc,where,what,name) ->
       NTactics.letin_tac ~where:(text,prefix_len,where)