cryptol/tests/regression/rec-update.cry
Iavor Diatchki 3038eacf54 Add a test for record updating.
This completes the implementation of record updates.
Fixes #399
2020-01-21 11:35:19 -08:00

9 lines
185 B
Plaintext

type T = { x : [8], y : Bool }
f1 = { x = 2, y = True } : T
f2 = { f1 | x = 3 }
f3 = { f2 | x = 4, y = False }
f4 = { f3 | x -> x + 1 }
f5 = [f1,f2,f3,f4]
f6 = { f5 | x = [7,8,9,10] }