Thm*d:Decl, tr:trace_env(d), a:(d), r:rel(), rho,ds,da,de,e,s,v:Top.
affects_trace_rel(tr.proj;kind(a);r)
([[r]] rho ds da de e s v tappend(tr;a) ~ [[r]] rho ds da de e s v tr)
[rel_mng_tappend]
cites
Thm*u:Term, d:Decl, tr:trace_env(d), a:(d), e,s,v:Top.
affects_trace(tr.proj;kind(a);u) ([[u]] e s v tappend(tr;a) ~ [[u]] e s v tr)