diff options
| -rw-r--r-- | pretyping/coercion.ml | 2 | ||||
| -rw-r--r-- | test-suite/bugs/closed/3043.v | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/pretyping/coercion.ml b/pretyping/coercion.ml index ab3a3fa100..baa9086166 100644 --- a/pretyping/coercion.ml +++ b/pretyping/coercion.ml @@ -335,7 +335,7 @@ let apply_coercion env sigma p hj typ_cl = let sigma = Evd.merge_context_set Evd.univ_flexible sigma ctx in let argl = (class_args_of env sigma typ_cl)@[ja.uj_val] in let sigma, jres = - apply_coercion_args env sigma (not (Univ.ContextSet.is_empty ctx)) argl fv + apply_coercion_args env sigma true argl fv in (if isid then { uj_val = ja.uj_val; uj_type = jres.uj_type } diff --git a/test-suite/bugs/closed/3043.v b/test-suite/bugs/closed/3043.v index 70c93ab1f3..1be5056f94 100644 --- a/test-suite/bugs/closed/3043.v +++ b/test-suite/bugs/closed/3043.v @@ -1,4 +1,4 @@ -Goal (fun A (P : A -> Prop) - (X : sigT P) => proj1_sig (sig_of_sigT X)) = (fun A (P : A -> Prop) (X : sigT P) => projT1 X). +Goal (fun A (P : A -> Prop) (X : sigT P) => proj1_sig X) = + (fun A (P : A -> Prop) (X : sigT P) => projT1 X). reflexivity. Qed. |