diff options
| author |  Arnaud Spiwack <arnaud@spiwack.net> | 2014-10-17 15:31:58 +0200 |
|---|---|---|
| committer | Arnaud Spiwack <arnaud@spiwack.net> | 2014-10-22 07:31:44 +0200 |
| commit | cadfe23210c8edaab1f22d0edb7acc33fb9ff782 (patch) | |
| tree | 50a7a8942285cdbf9555122c0abfa03e493afec6 /plugins/cc | |
| parent | d76c6d9c92d8486ef4b672f9b44e5c6ea782d7ff (diff) | |
Proofview: split [V82] module into [Unsafe] and [V82].
The Unsafe module is for unsafe tactics which cannot be done without anytime soon. Whereas V82 indicates a function which we want to get rid of and that shouldn't be used in a new function.
Diffstat (limited to 'plugins/cc')
| -rw-r--r-- | plugins/cc/cctac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/cc/cctac.ml b/plugins/cc/cctac.ml index 364a71d28..858c80f29 100644 --- a/plugins/cc/cctac.ml +++ b/plugins/cc/cctac.ml @@ -390,7 +390,7 @@ let discriminate_tac (cstr,u as cstru) p = app_global _eq_rect [|outtype;trivial;pred;identity;concl;injt|] k) in let neweq=new_app_global _eq [|intype;t1;t2|] in - Tacticals.New.tclTHEN (Proofview.V82.tclEVARS evm) + Tacticals.New.tclTHEN (Proofview.Unsafe.tclEVARS evm) (Tacticals.New.tclTHENS (neweq (assert_before (Name hid))) [proof_tac p; Proofview.V82.tactic (endt refine_exact_check)]) end |