From 28b9e1d1adbe5845281c37210bb834d46796b13a Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Wed, 1 Mar 2017 13:27:39 -0500 Subject: Add dlet_nd notation This is for non-dependent [dlet]s, to help Coq's type inference --- src/Util/LetIn.v | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Util/LetIn.v') diff --git a/src/Util/LetIn.v b/src/Util/LetIn.v index 12e1e6d43..18e763b93 100644 --- a/src/Util/LetIn.v +++ b/src/Util/LetIn.v @@ -5,6 +5,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_nd' x := y 'in' f" := (Let_In (P:=fun _ => _) y (fun x => f)) (only parsing). 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)). -- cgit v1.2.3