X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2FproofEngine.ml;h=ab8d4327a2b5dde24ba74120519177e1d3b6a5db;hb=0c6a5aadb1a7746681a8e26fc0b009f847c10557;hp=20863f1a9e366558b694e9483484b2ee279e5509;hpb=9e7e14a98d5b6c728f980979f21d542d829d9b98;p=helm.git

diff --git a/helm/gTopLevel/proofEngine.ml b/helm/gTopLevel/proofEngine.ml
index 20863f1a9..ab8d4327a 100644
--- a/helm/gTopLevel/proofEngine.ml
+++ b/helm/gTopLevel/proofEngine.ml
@@ -38,6 +38,7 @@ let get_current_status_as_xml () =
   match get_proof () with
      None -> assert false
    | Some (uri, metasenv, bo, ty) ->
+      let uri = match uri with Some uri -> uri | None -> assert false in
       let currentproof =
        (*CSC: Wrong: [] is just plainly wrong *)
        Cic.CurrentProof (UriManager.name_of_uri uri,metasenv,bo,ty,[])
@@ -57,11 +58,12 @@ let get_current_status_as_xml () =
 ;;
 
 let apply_tactic ~tactic =
+ let module PET = ProofEngineTypes in
  match get_proof (),!goal with
   | None,_
   | _,None -> assert false
   | Some proof', Some goal' ->
-     let (newproof, newgoals) = tactic (proof', goal') in
+     let (newproof, newgoals) = PET.apply_tactic tactic (proof', goal') in
       set_proof (Some newproof);
       goal :=
        (match newgoals, newproof with