diff options
| author |  Jason Gross <jgross@mit.edu> | 2016-09-22 14:57:43 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2016-09-22 14:57:43 -0400 |
| commit | 38453e99a78882bf901dd3496c30fa9537483c68 (patch) | |
| tree | 0ec6eade1310474506d7998237ca8a5e577832b8 /src/Util/LetIn.v | |
| parent | 9b7d1c90181c96f1d867aec1493fd4f8e89bd530 (diff) | |
Fix a typo
Diffstat (limited to 'src/Util/LetIn.v')
| -rw-r--r-- | src/Util/LetIn.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Util/LetIn.v b/src/Util/LetIn.v index 1770054fe..366ae5dff 100644 --- a/src/Util/LetIn.v +++ b/src/Util/LetIn.v @@ -6,7 +6,7 @@ Require Import Crypto.Util.Notations. Definition Let_In {A P} (x : A) (f : forall a : A, P a) : P x := let y := x in f y. Definition Let_In_pf {A P} (x : A) (f : forall a : A, a = x -> P a) : P x := let y := x in f y eq_refl. Notation "'dlet' x := y 'in' f" := (Let_In y (fun x => f)). -Notation "'pflet' x , pf := y 'in' f" := (Let_In y (fun x pf => f)). +Notation "'pflet' x , pf := y 'in' f" := (Let_In_pf y (fun x pf => f)). 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)). |