blob: 02a3c2528224321a2fd8e4bddecf20a9ba6107a6 (
plain)
1
2
3
4
5
6
7
8
9
10
|
(* Last line should not loop, even in the presence of eta-expansion in the *)
(* printing mechanism *)
(* Expected time < 1.00s *)
Notation "'bind' x <- y ; z" :=(y (fun x => z)) (at level 99, x at
level 0, y at level 0,format "'[hv' 'bind' x <- y ; '/' z ']'").
Definition f (g : (nat -> nat) -> nat) := g (fun x => 0).
Time Check (fun g => f g).
|