diff options
| author |  Matthieu Sozeau <mattam@mattam.org> | 2013-10-11 18:30:54 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <mattam@mattam.org> | 2014-05-06 09:58:53 +0200 |
| commit | 57bee17f928fc67a599d2116edb42a59eeb21477 (patch) | |
| tree | f8e1446f5869de08be1dc20c104d61d0e47ce57d /tactics/rewrite.ml | |
| parent | a4043608f704f026de7eb5167a109ca48e00c221 (diff) | |
Rework handling of universes on top of the STM, allowing for delayed
computation in case of non-polymorphic proofs. Also fix plugins after
forgotten merge conflicts. Still does not compile everything.
Diffstat (limited to 'tactics/rewrite.ml')
| -rw-r--r-- | tactics/rewrite.ml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/tactics/rewrite.ml b/tactics/rewrite.ml index 83cb15f47..cbf33fdb4 100644 --- a/tactics/rewrite.ml +++ b/tactics/rewrite.ml @@ -2130,3 +2130,16 @@ let myapply id l gl = in tclTHEN (Refiner.tclEVARS !evars) (apply app) gl +let get_lemma_proof f env evm x y = + let (evm, _), c = f env (evm,Evar.Set.empty) x y in + evm, c + +let get_reflexive_proof = + get_lemma_proof PropGlobal.get_reflexive_proof + +let get_symmetric_proof = + get_lemma_proof PropGlobal.get_symmetric_proof + +let get_transitive_proof = + get_lemma_proof PropGlobal.get_transitive_proof + |