diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-01-29 16:57:20 +0100 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-03-04 17:55:50 +0100 |
| commit | 1071131805c62fb4d9bad6cf65178477cb767872 (patch) | |
| tree | 48f72a75949dd06c13fc82426c0df7ba7dfdf1b0 /engine | |
| parent | b3a8761790c0905aad8e5d3102fab606fe5e7fd6 (diff) | |
proofview: debug API to print a goal
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/proofview.ml | 3 | ||||
| -rw-r--r-- | engine/proofview.mli | 1 |
2 files changed, 4 insertions, 0 deletions
diff --git a/engine/proofview.ml b/engine/proofview.ml index 77a884121..766ba7b35 100644 --- a/engine/proofview.ml +++ b/engine/proofview.ml @@ -1067,6 +1067,9 @@ module Goal = struct } let assume (gl : t) = (gl : t) + + let print { sigma; self } = { Evd.it = self; sigma } + let state { state=state } = state let env {env} = env diff --git a/engine/proofview.mli b/engine/proofview.mli index 77f30746d..cab6e3879 100644 --- a/engine/proofview.mli +++ b/engine/proofview.mli @@ -513,6 +513,7 @@ module Goal : sig (** Compatibility: avoid if possible *) val goal : t -> Evar.t + val print : t -> Goal.goal Evd.sigma end |