blob: e3a98e3f4cf7c351410f65faa2289ed826607470 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
default Nat i
default Order o
default bool b
default forall a. (list a) b
val forall a, b . ((a * b) -> b pure) snd
val forall Type i, b. ((i * b) -> i pure) fst
typedef int_list [name = "il"] = list nat
typedef reco = const struct forall i, a, b. { (a[i]) v; b w; }
typedef maybe = const union forall a. { unit None; a Some; }
typedef colors = enumerate { red; green; blue }
typedef creg = register bits [5:i] { 5 : h ; 6..7 : j}
let bool e = true
|
