From a8b3c907cb2d6da16bdeea10b943552dc9efc0ed Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Wed, 5 Jun 2019 17:48:46 +0200
Subject: [proof] Move proofs that have an associated constant to `Lemmas`

The main idea of this PR is to distinguish the types of "proof object"
`Proof_global.t` and the type of "proof object associated to a
constant, the new `Lemmas.t`.

This way, we can move the terminator setup to the higher layer in
`vernac`, which is the one that really knows about constants, paving
the way for further simplification and in particular for a unified
handling of constant saving by removal of the control inversion here.

Terminators are now internal to `Lemmas`, as it is the only part of
the code applying them.

As a consequence, proof nesting is now handled by `Lemmas`, and
`Proof_global.t` is just a single `Proof.t` plus some environmental
meta-data.

We are also enable considerable simplification in a future PR, as this
patch makes `Proof.t` and `Proof_global.t` essentially the same, so we
should expect to handle them under a unified interface.
---
 plugins/funind/recdef.mli | 34 ++++++++++++++++------------------
 1 file changed, 16 insertions(+), 18 deletions(-)

(limited to 'plugins/funind/recdef.mli')

diff --git a/plugins/funind/recdef.mli b/plugins/funind/recdef.mli
index b92ac3a0ec..e6aa452def 100644
--- a/plugins/funind/recdef.mli
+++ b/plugins/funind/recdef.mli
@@ -1,23 +1,21 @@
 open Constr
 
-val tclUSER_if_not_mes : 
+val tclUSER_if_not_mes :
   Tacmach.tactic ->
-  bool -> 
-  Names.Id.t list option -> 
+  bool ->
+  Names.Id.t list option ->
   Tacmach.tactic
 
-val recursive_definition :  
-  interactive_proof:bool ->
-  is_mes:bool ->
-  Names.Id.t ->
-  Constrintern.internalization_env ->
-  Constrexpr.constr_expr ->
-  Constrexpr.constr_expr ->
-  int ->
-  Constrexpr.constr_expr ->
-  (pconstant ->
-   Indfun_common.tcc_lemma_value ref ->
-   pconstant ->
-   pconstant -> int -> EConstr.types -> int -> EConstr.constr -> unit) ->
-  Constrexpr.constr_expr list ->
-    Proof_global.t option
+val recursive_definition
+  :  interactive_proof:bool
+  -> is_mes:bool
+  -> Names.Id.t
+  -> Constrintern.internalization_env
+  -> Constrexpr.constr_expr
+  -> Constrexpr.constr_expr
+  -> int
+  -> Constrexpr.constr_expr
+  -> (pconstant -> Indfun_common.tcc_lemma_value ref -> pconstant ->
+      pconstant -> int -> EConstr.types -> int -> EConstr.constr -> unit)
+  -> Constrexpr.constr_expr list
+  -> Lemmas.t option
-- 
cgit v1.2.3