7 lines
118 B
Text
7 lines
118 B
Text
|
|
|
|
structure S :=
|
|
(x : Nat) (y : Bool) (z : Nat) (w : Nat)
|
|
|
|
def g : S → S
|
|
| s@{ x := x, ..} => { s with x := x + 1 }
|