new universes implementation

[helm.git] / helm / gTopLevel / proofEngine.ml

diff --git a/helm/gTopLevel/proofEngine.ml b/helm/gTopLevel/proofEngine.ml
index d9b6219b2d159032f13af762923a069794f7e6c8..ab8d4327a2b5dde24ba74120519177e1d3b6a5db 100644 (file)
--- a/helm/gTopLevel/proofEngine.ml
+++ b/helm/gTopLevel/proofEngine.ml
@@ -58,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