diff options
| author | msozeau | 2012-04-25 15:12:47 +0000 |
|---|---|---|
| committer | msozeau | 2012-04-25 15:12:47 +0000 |
| commit | bac2937c74053b526dd0b848b490ef5fac05a1ca (patch) | |
| tree | a96a8615be48501a8435a6d27b502454116e5a95 | |
| parent | c9315ad335d027cc3cc54f36446b2b363d835e33 (diff) | |
Do not delta-head-normalize the proposition argument of sigma types during coercion.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15245 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/coercion.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/coercion.ml b/pretyping/coercion.ml index 560b615467..d74584d896 100644 --- a/pretyping/coercion.ml +++ b/pretyping/coercion.ml @@ -104,11 +104,11 @@ let lift_args n sign = let rec mu env isevars t = let rec aux v = - let v = hnf env !isevars v in - match disc_subset v with + let v' = hnf env !isevars v in + match disc_subset v' with Some (u, p) -> let f, ct = aux u in - let p = hnf env !isevars p in + let p = hnf_nodelta env !isevars p in (Some (fun x -> app_opt env isevars f (mkApp (delayed_force sig_proj1, |