diff options
author | 2016-03-20 17:33:26 +0100 | |
---|---|---|
committer | 2016-03-20 18:12:25 +0100 | |
commit | 48e4831fa56e3b0acd92aabdb78847696b84daf7 (patch) | |
tree | 678867d85a8201ddd7138dcb7295c2d71170eb01 /proofs/proofview.ml | |
parent | 2349d740caa4d9248ba5485aebbcce9ec18d3fd2 (diff) |
Extruding the code for the Existential command from Proofview.
Diffstat (limited to 'proofs/proofview.ml')
-rw-r--r-- | proofs/proofview.ml | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index a382e9873..b68fa042e 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -1272,20 +1272,6 @@ module V82 = struct in CList.flatten (CList.map evars_of_initial initial) - let instantiate_evar n com pv = - let (evk,_) = - let evl = Evarutil.non_instantiated pv.solution in - let evl = Evar.Map.bindings evl in - if (n <= 0) then - Errors.error "incorrect existential variable index" - else if CList.length evl < n then - Errors.error "not so many uninstantiated existential variables" - else - CList.nth evl (n-1) - in - { pv with - solution = Evar_refiner.instantiate_pf_com evk com pv.solution } - let of_tactic t gls = try let init = { shelf = []; solution = gls.Evd.sigma ; comb = [gls.Evd.it] } in |