diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-21 15:26:48 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-21 15:26:48 +0000 |
commit | e506e9fb9164ffaeace23f6280953dd55762e75f (patch) | |
tree | 4caa3b04443e5c6f42ef0013fefeb2597f6b6d9b /proofs/logic.ml | |
parent | 2c5f7b90d969dde84e466d7babb7c5ab3a1945e4 (diff) |
Applied Pierre Letouzey's patch restoring Convert_concl VM casts in new proof
engine.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13300 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/logic.ml')
-rw-r--r-- | proofs/logic.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/proofs/logic.ml b/proofs/logic.ml index db60c6afc..eddb2fdac 100644 --- a/proofs/logic.ml +++ b/proofs/logic.ml @@ -614,10 +614,11 @@ let prim_refiner r sigma goal = (sgl, sigma) (* Conversion rules *) - | Convert_concl (cl',_) -> + | Convert_concl (cl',k) -> check_typability env sigma cl'; if (not !check) || is_conv_leq env sigma cl' cl then let (sg,ev,sigma) = mk_goal sign cl' in + let ev = if k=VMcast then mkCast(ev,k,cl) else ev in let sigma = Goal.V82.partial_solution sigma goal ev in ([sg], sigma) else |