16 lines
295 B
Plaintext
16 lines
295 B
Plaintext
general {
|
|
funcon-term:
|
|
initialise-binding
|
|
scope(
|
|
{"x"|->true, "y"|->fresh-link(booleans)},
|
|
and(
|
|
bound-directly"x",
|
|
is-in-type(bound-directly"y", links),
|
|
else(bound-directly"z", true)))
|
|
;
|
|
}
|
|
|
|
tests {
|
|
result-term: true;
|
|
}
|