From 54788df72ce79998ee27db362401a56bda4daceb Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Sun, 15 Mar 2020 17:52:16 -0400
Subject: [obligations] Functionalize Program state

In our quest to unify all the declaration paths, an important step
is to account for the state pertaining to `Program` declarations.

Whereas regular proofs keep are kept in a stack-like structure;
obligations for constants defined by `Program` are stored in a global
map which is manipulated by almost regular open/close proof primitives.

We make this manipulation explicit by handling the program state
functionally, in a similar way than we already do for lemmas.

This requires to extend the proof DSL a bit; but IMO changes are
acceptable given the gain.

Most of the PR is routine; only remarkable change is that the hook is
called explicitly in `finish_admitted` as it had to learn about the
different types of proof_endings.

Note that we could have gone deeper and use the type system to refine
the core proof type; IMO it is still too preliminary so it is better
to do this step as an intermediate one towards a deeper unification.
---
 vernac/comProgramFixpoint.mli | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

(limited to 'vernac/comProgramFixpoint.mli')

diff --git a/vernac/comProgramFixpoint.mli b/vernac/comProgramFixpoint.mli
index e39f62c348..7935cf27fb 100644
--- a/vernac/comProgramFixpoint.mli
+++ b/vernac/comProgramFixpoint.mli
@@ -11,11 +11,16 @@
 open Vernacexpr
 
 (** Special Fixpoint handling when command is activated. *)
-
 val do_fixpoint :
-  (* When [false], assume guarded. *)
-  scope:Locality.locality -> poly:bool -> fixpoint_expr list -> unit
+     pm:Declare.OblState.t
+  -> scope:Locality.locality
+  -> poly:bool
+  -> fixpoint_expr list
+  -> Declare.OblState.t
 
 val do_cofixpoint :
-  (* When [false], assume guarded. *)
-  scope:Locality.locality -> poly:bool -> cofixpoint_expr list -> unit
+     pm:Declare.OblState.t
+  -> scope:Locality.locality
+  -> poly:bool
+  -> cofixpoint_expr list
+  -> Declare.OblState.t
-- 
cgit v1.2.3