diff options
| author |  Jason Gross <jgross@mit.edu> | 2016-10-03 16:20:41 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2016-10-03 16:20:41 -0400 |
| commit | 092b80668ed9b56b54906f362ae6fae8155e94b0 (patch) | |
| tree | de7c7b000377a7dabc5e185be4e5abe036ec7266 /src/Util/LetIn.v | |
| parent | a60260aed203fd5886037d9c3ac8490b83d6bb21 (diff) | |
Work around bug 5107 (broken return inference)
This is https://coq.inria.fr/bugs/show_bug.cgi?id=5107, Unification got
weaker in the past week or so. We work around this by making [dlet]
non-dependent.
Diffstat (limited to 'src/Util/LetIn.v')
| -rw-r--r-- | src/Util/LetIn.v | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Util/LetIn.v b/src/Util/LetIn.v index 366ae5dff..db09baf9c 100644 --- a/src/Util/LetIn.v +++ b/src/Util/LetIn.v @@ -8,6 +8,10 @@ Definition Let_In_pf {A P} (x : A) (f : forall a : A, a = x -> P a) : P x := let Notation "'dlet' x := y 'in' f" := (Let_In y (fun x => f)). Notation "'pflet' x , pf := y 'in' f" := (Let_In_pf y (fun x pf => f)). +Module Bug5107WorkAround. + Notation "'dlet' x := y 'in' f" := (Let_In (P:=fun _ => _) y (fun x => f)). +End Bug5107WorkAround. + Global Instance Proper_Let_In_nd_changebody {A P R} {Reflexive_R:@Reflexive P R} : Proper (eq ==> pointwise_relation _ R ==> R) (@Let_In A (fun _ => P)). Proof. lazy; intros; subst; auto; congruence. Qed. |