diff options
| -rw-r--r-- | intf/vernacexpr.mli | 7 | ||||
| -rw-r--r-- | stm/lemmas.mli | 3 |
2 files changed, 5 insertions, 5 deletions
diff --git a/intf/vernacexpr.mli b/intf/vernacexpr.mli index b72577e1e..bb0331fcc 100644 --- a/intf/vernacexpr.mli +++ b/intf/vernacexpr.mli @@ -196,6 +196,9 @@ type inductive_expr = type one_inductive_expr = lident * local_binder list * constr_expr option * constructor_expr list +type proof_expr = + lident option * (local_binder list * constr_expr * (lident option * recursion_order_expr) option) + type grammar_tactic_prod_item_expr = | TacTerm of string | TacNonTerm of Loc.t * string * (Names.Id.t * string) option @@ -303,9 +306,7 @@ type vernac_expr = (* Gallina *) | VernacDefinition of (locality option * definition_object_kind) * lident * definition_expr - | VernacStartTheoremProof of theorem_kind * - (lident option * (local_binder list * constr_expr * (lident option * recursion_order_expr) option)) list * - bool + | VernacStartTheoremProof of theorem_kind * proof_expr list * bool | VernacEndProof of proof_end | VernacExactProof of constr_expr | VernacAssumption of (locality option * assumption_object_kind) * diff --git a/stm/lemmas.mli b/stm/lemmas.mli index a0ddd265c..6556aa229 100644 --- a/stm/lemmas.mli +++ b/stm/lemmas.mli @@ -32,8 +32,7 @@ val start_proof_univs : Id.t -> goal_kind -> Evd.evar_map -> ?sign:Environ.named ?init_tac:unit Proofview.tactic -> ?compute_guard:lemma_possible_guards -> (Proof_global.proof_universes option -> unit declaration_hook) -> unit -val start_proof_com : goal_kind -> - (lident option * (local_binder list * constr_expr * (lident option * recursion_order_expr) option)) list -> +val start_proof_com : goal_kind -> Vernacexpr.proof_expr list -> unit declaration_hook -> unit val start_proof_with_initialization : |