blob: 2585862de1a989afde1910740a991f4e6dcd3a7f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
con c1 = int
con c2 = (fn t :: Type => t) int
con id = fn t :: Type => t
con c3 = id int
con fst = fn t1 :: Type => fn t2 :: Type => t1
con c4 = fst int string
con snd = fn t1 :: Type => fn t2 :: Type => t2
con c5 = snd int string
con apply = fn f :: Type -> Type => fn t :: Type => f t
con c6 = apply id int
con c7 = apply (fst int) string
val grab = fn n :: Name => fn t :: Type => fn fs :: {Type} =>
fn x : $([n = t] ++ fs) => x
val grabA = grab[#A][int][[B = string]]
val test_grabA = grabA {A = 6, B = "13"}
|