Signature of fwdSimpl changed to get rid of a warning.

diff --git a/helm/ocaml/tactics/fwdSimplTactic.ml b/helm/ocaml/tactics/fwdSimplTactic.ml
index e7d25daae63ecc24e4457a91b3188d49054105a9..6f64855d1b4d1432ae07d06d600b26ec199c8af6 100644 (file)
--- a/helm/ocaml/tactics/fwdSimplTactic.ml
+++ b/helm/ocaml/tactics/fwdSimplTactic.ml
@@ -110,8 +110,10 @@ let lapply_tac ?(mk_fresh_name_callback = FreshNamesGenerator.mk_fresh_name ~sub
         
 (* fwd **********************************************************************)
 
-let fwd_simpl_tac ?(mk_fresh_name_callback = FreshNamesGenerator.mk_fresh_name ~subst:[]) 
-                  ~hyp ~dbd =
+let fwd_simpl_tac
+     ?(mk_fresh_name_callback = FreshNamesGenerator.mk_fresh_name ~subst:[])
+     ~dbd hyp
+  =
    let find_type metasenv context =
       let rec aux p = function
          | Some (Cic.Name name, Cic.Decl t) :: _ when name = hyp -> p, t

diff --git a/helm/ocaml/tactics/fwdSimplTactic.mli b/helm/ocaml/tactics/fwdSimplTactic.mli
index f8101b34bebf1442d4866a2de0674f6af2be74fb..e16bd5719edf1a79f1a70ce83e48c12c69feff39 100644 (file)
--- a/helm/ocaml/tactics/fwdSimplTactic.mli
+++ b/helm/ocaml/tactics/fwdSimplTactic.mli
@@ -29,4 +29,4 @@ val lapply_tac:
 
 val fwd_simpl_tac:
    ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
-   hyp:string -> dbd:Mysql.dbd -> ProofEngineTypes.tactic
+   dbd:Mysql.dbd -> string -> ProofEngineTypes.tactic

diff --git a/helm/ocaml/tactics/tactics.mli b/helm/ocaml/tactics/tactics.mli
index c155d67d39adecb386a861e47bdec3f01f4f492e..32bbf2c6aef5fccbfc9ad8a9ee696e50e6afeb4c 100644 (file)
--- a/helm/ocaml/tactics/tactics.mli
+++ b/helm/ocaml/tactics/tactics.mli
@@ -38,7 +38,7 @@ val fold :
 val fourier : ProofEngineTypes.tactic
 val fwd_simpl :
   ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
-  hyp:string -> dbd:Mysql.dbd -> ProofEngineTypes.tactic
+  dbd:Mysql.dbd -> string -> ProofEngineTypes.tactic
 val generalize :
   ?mk_fresh_name_callback:ProofEngineTypes.mk_fresh_name_type ->
   ProofEngineTypes.pattern -> ProofEngineTypes.tactic