7 lines
161 B
Text
7 lines
161 B
Text
|
import data.subtype data.nat
|
||
|
|
open nat
|
||
|
|
|
||
|
|
notation `{` binders:55 `|` r:(scoped P, subtype P) `}` := r
|
||
|
|
check { x : nat | x > 0 }
|
||
|
|
check { (x : nat → nat) | true }
|