| ⊦ ⟪test#(a, b, c)⟫ true |
⊦ ⟪let buf = [?], a0 = [?] in { create#(2; buf) ; push#(a; buf) ; push#(b; buf) ; pop#(; buf, a0) ; assert#(a0 = a) ; push#(c; buf) ; pop#(; buf, a0) ; assert#(a0 = b) ; pop#(; buf, a0) ; assert#(a0 = c) }⟫ true
[[CONCRETESIMPRULES : ([CSIMPDECL : test# (a, b, c) { let buf = [?], a0 = [?] in { create#(2; buf) ; push#(a; buf) ; push#(b; buf) ; pop#(; buf, a0) ; assert#(a0 = a) ; push#(c; buf) ; pop#(; buf, a0) ; assert#(a0 = b) ; pop#(; buf, a0) ; assert#(a0 = c) } }])]]