Thm* A:ioa{i:l}(), r:rel(), rho:Decl, de:sig(), e:{[[de]] rho}, a:( [[A.da]] rho), tr:trace_env([[A.da]] rho). tc_ioa(A;de)  ioa_mentions_trace(A)  trace_consistent_rel(rho;A.da;tr.proj;r)  single_valued_decls(A.ds)  ( s,x':[[A]] rho de e.state. tc(r;A.ds; < > ;de)  closed_rel(r)  covers_rel(A;r)  [[A]] rho de e.trans(s,a,x')  (rel_mng_2(r; rho; A.ds; < > ; de; e; s; x'; ; tr)  [[wp2_rel(A;kind(a);r)]] rho A.ds dec_lookup(A.da;kind(a)) de e s value(a) tr)) | [wp2_rel_correctness] |
Thm* A:ioa{i:l}(), r:rel(), rho:Decl, de:sig(), e:{[[de]] rho}, a:( [[A.da]] rho), tr:trace_env([[A.da]] rho). tc_ioa(A;de)  ioa_mentions_trace(A)  trace_consistent_rel(rho;A.da;tr.proj;r)  single_valued_decls(A.ds)  ( s,x':[[A]] rho de e.state. tc(r;A.ds;dec_lookup(A.da;kind(a));de)  covers_rel(A;r)  [[A]] rho de e.trans(s,a,x')  (rel_mng_2(r; rho; A.ds; dec_lookup(A.da;kind(a)); de; e; s; x'; value(a); tr)  [[wp2_rel(A;kind(a);r)]] rho A.ds dec_lookup(A.da;kind(a)) de e s value(a) tr)) | [wp2_rel_correct] |
Thm* r:rel(), as:(Label Term) List, ds,daa:Collection(dec()), da:Collection(SimpleType), de:sig(), rho:Decl, e:{[[de]] rho}, s,s':{[[ds]] rho}, k:Label, a:[[da]] rho, tr:trace_env([[daa]] rho). trace_consistent_rel(rho;daa;tr.proj;r)  tc(r;ds;da;de)  subst_mentions_trace(as)  ( x:Label. (x rel_primed_vars(r))  ( t:SimpleType. mk_dec(x, t) ds  t term_types(ds;da;de;apply_alist(as;x;x)) & s'.x = [[apply_alist(as;x;x)]] 1of(e) s a tr [[t]] rho))  tc(rel_subst2(as;r);ds;da;de) & trace_consistent_rel(rho;daa;tr.proj;rel_subst2(as;r)) & ([[rel_subst2(as;r)]] rho ds da de e s a tr  rel_mng_2(r; rho; ds; da; de; e; s; s'; a; tr)) | [rel_subst_mng_2_iff] |
Thm* r1,r2:rel(), ds,daa:Collection(dec()), da:Collection(SimpleType), de:sig(), rho:Decl, e:{[[de]] rho}, s1,s2:{[[ds]] rho}, a:[[da]] rho, tr:trace_env([[daa]] rho). trace_consistent_rel(rho;daa;tr.proj;r1)  trace_consistent_rel(rho;daa;tr.proj;r2)  tc(r1;ds;da;de)  tc(r2;ds;da;de)  r1.name = r2.name  ||r1.args|| = ||r2.args||  ( i: . i < ||r1.args||  [[r1.args[i]]] 1of(e) s1 a tr = [[r2.args[i]]] 1of(e) s1 s2 a tr [[rel_arg_typ(r1.name;i;de)]] rho)  ([[r1]] rho ds da de e s1 a tr  rel_mng_2(r2; rho; ds; da; de; e; s1; s2; a; tr)) | [rel_mng_2_iff] |