Def paren(T;s) == s = nil
(T+T) List
(
t:T, s':(T+T) List. s = ([inl(t)] @ s' @ [inr(t)]) & paren(T;s'))
(
s',s'':(T+T) List. ||s'|| < ||s|| & ||s''|| < ||s|| & s = (s' @ s'') & paren(T;s') & paren(T;s'')) (recursive)
is mentioned
In prior sections:
graph 1 2
graph 1 3