record Foo where
constructor MkFoo
a : Nat
b : Nat
foo1 : Foo
foo1 = MkFoo
{ a = 1
, a = 2
, b = 3
}
foo2 : Foo
foo2 =
{ a := 3
, a := 4
, b := 2
, b := 1
} foo1
