diff options
Diffstat (limited to 'src/verit')
-rw-r--r-- | src/verit/verit.ml | 10 | ||||
-rw-r--r-- | src/verit/verit.mli | 4 |
2 files changed, 12 insertions, 2 deletions
diff --git a/src/verit/verit.ml b/src/verit/verit.ml index fbc04e3..3080372 100644 --- a/src/verit/verit.ml +++ b/src/verit/verit.ml @@ -218,6 +218,16 @@ let verit_logic = SL.of_list [LUF; LLia] let tactic_gen vm_cast lcpl lcepl = + (* Transform the tuple of lemmas given by the user into a list *) + let lcpl = + let lcpl = EConstr.Unsafe.to_constr lcpl in + let lcpl = CoqTerms.option_of_constr_option lcpl in + match lcpl with + | Some lcpl -> CoqTerms.list_of_constr_tuple lcpl + | None -> [] + in + + (* Core tactic *) clear_all (); let rt = SmtBtype.create () in let ro = Op.create () in diff --git a/src/verit/verit.mli b/src/verit/verit.mli index 6fa62d8..4b84b58 100644 --- a/src/verit/verit.mli +++ b/src/verit/verit.mli @@ -19,5 +19,5 @@ val parse_certif : val checker : string -> string -> unit val checker_debug : string -> string -> unit val theorem : Structures.id -> string -> string -> unit -val tactic : Structures.constr list -> Structures.constr_expr list -> Structures.tactic -val tactic_no_check : Structures.constr list -> Structures.constr_expr list -> Structures.tactic +val tactic : EConstr.t -> Structures.constr_expr list -> Structures.tactic +val tactic_no_check : EConstr.t -> Structures.constr_expr list -> Structures.tactic |