diff options
| author |  Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-05-05 13:21:04 +0200 |
|---|---|---|
| committer | Matthieu Sozeau <matthieu.sozeau@inria.fr> | 2015-05-05 13:21:52 +0200 |
| commit | 8d3fd3aa8029fa7c5acb3118846cf18ffe752b9c (patch) | |
| tree | fff1b2d76761c04bf13253dd283f89af9a7f2cf4 /plugins/cc | |
| parent | e4ca462b7d51f25b258263345835025c1c4325bd (diff) | |
Fix bug #4212, congruence forgetting about some universe constraints.
Diffstat (limited to 'plugins/cc')
| -rw-r--r-- | plugins/cc/cctac.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/plugins/cc/cctac.ml b/plugins/cc/cctac.ml index 05f4c4903..9952cb080 100644 --- a/plugins/cc/cctac.ml +++ b/plugins/cc/cctac.ml @@ -253,6 +253,12 @@ let new_app_global f args k = let new_refine c = Proofview.V82.tactic (refine c) +let assert_before n c = + Proofview.Goal.enter begin fun gl -> + let evm, _ = Tacmach.New.pf_apply e_type_of gl c in + Tacticals.New.tclTHEN (Proofview.V82.tactic (Refiner.tclEVARS evm)) (assert_before n c) + end + let rec proof_tac p : unit Proofview.tactic = Proofview.Goal.nf_enter begin fun gl -> let type_of t = Tacmach.New.pf_type_of gl t in |