At: closed rel mng21 1. r: rel() 2. rho: Top 3. ds: Top 4. da1: Top 5. da2: Top 6. de: Top 7. s: Top 8. s': Top 9. e: Top 10. a1: Top 11. a2: Top 12. tr: Top 13. closed_rel(r)
13. l: Term List 14. r.args = l 15. X: Top 16. [[r.name]] rho 2of(e) = X reduce(t,vs. term_free_vars(t) @ vs;nil;l) = nil
(list_accum(x,t.x([[t]] 1of(e) s s' a1 tr);X;l) ~ list_accum(x,t.x([[t]] 1of(e) s s' a2 tr);X;l))