diff options
author | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-08-14 20:44:03 +0200 |
---|---|---|
committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-08-18 18:56:38 +0200 |
commit | d5fece25d8964d5d9fcd55b66164286aeef5fb9f (patch) | |
tree | 60d584831ef3574c8d07daaef85929bd81a12d88 /proofs/logic.ml | |
parent | 4684ae383a6ee56b4717026479eceb3b41b45ab0 (diff) |
Reorganization of tactics:
- made "apply" tactics of type Proofview.tactic, as well as other inner
functions about elim and assert
- used same hypothesis naming policy for intros and internal_cut (towards a
reorganization of intro patterns)
- "apply ... in H as pat" now supports any kind of introduction
pattern (doc not changed)
Diffstat (limited to 'proofs/logic.ml')
-rw-r--r-- | proofs/logic.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index 59de85901..dc8f31859 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -573,6 +573,7 @@ let prim_refiner r sigma goal = raise (RefinerError IntroNeedsProduct)) | Cut (b,replace,id,t) -> +(* if !check && not (Retyping.get_sort_of env sigma t) then*) let (sg1,ev1,sigma) = mk_goal sign (nf_betaiota sigma t) in let sign,t,cl,sigma = if replace then |