| TOPRED (t; tn) { if ap(t) ∧ ap(t .1) ∧ t .1 .1 = K ∧ value(t .1 .2) ∧ value(t .2) then tn := some(t .1 .2) else if ap(t) ∧ ap(t .1) ∧ ap(t .1 .1) ∧ t .1 .1 .1 = S then let v1 = t .1 .1 .2, v2 = t .1 .2, v3 = t .2 in if value(v1) ∧ value(v2) ∧ value(v3) then tn := some(v1 _ v3 _ (v2 _ v3)) else tn := none else tn := none } |