1 | 16. i:||l1||. trace_consistent(rho;daa;tr.proj;l1[i]) 17. i:||l2||. trace_consistent(rho;daa;tr.proj;l2[i]) 18. ||l1|| = 2 19. x term_types(ds;da;de;l1[0]) 20. x term_types(ds;da;de;l1[1]) 21. ||l2|| = 2 22. x term_types(ds;da;de;l2[0]) 23. x term_types(ds;da;de;l2[1]) (i:. i < ||l1|| [[l1[i]]] e1 s1 a tr = [[l2[i]]] e1 s1 s2 a tr [[rel_arg_typ(relname_eq(x);i;de)]] rho) (list_accum(x,t.x([[t]] e1 s1 a tr);x@0,y. x@0 = y [[x]] rho;l1) list_accum(x,t.x([[t]] e1 s1 s2 a tr);x@0,y. x@0 = y [[x]] rho;l2)) |
About: