diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-08-19 18:30:50 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-08-19 18:31:30 +0200 |
| commit | 3696238f8dd435426080ba7d1b40c8ceacacb6ee (patch) | |
| tree | 56dbe457b04827c601152e071baa513930db7aed /intf | |
| parent | 00f333fe7ae2e7bd4ced4be78d24737e62a7b369 (diff) | |
Documentation by giving a name to a large type.
Diffstat (limited to 'intf')
| -rw-r--r-- | intf/vernacexpr.mli | 7 |
1 files changed, 4 insertions, 3 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) * |