File: bug_5523.v

package info (click to toggle)
coq 8.20.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 44,116 kB
  • sloc: ml: 234,160; sh: 4,301; python: 3,270; ansic: 2,644; makefile: 882; lisp: 172; javascript: 63; xml: 24; sed: 2
file content (6 lines) | stat: -rw-r--r-- 300 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
 
(* Support for complex constructions in recursive notations, especially "match". *)

Definition Let_In {A P} (x : A) (f : forall a : A, P a) : P x := let y := x in f y.
Notation "'dlet' x , y := v 'in' ( a , b , .. , c )"
  := (Let_In v (fun '(x, y) => pair .. (pair a b) .. c))
       (at level 0).