Nuprl Lemma : msg-rename_wf
∀[M:IdLnk ─→ Id ─→ Type]. ∀[rt:Id ─→ Id]. ∀[rtinv:Id ─→ (Id?)].
∀[m:Msg(M)]. msg-rename(rtinv;m) ∈ Msg(λl,tg. (M l (rt tg))) supposing ↑isl(rtinv mtag(m))
supposing inv-rel(Id;Id;rt;rtinv)
Proof
Definitions occuring in Statement :
msg-rename: msg-rename(rtinv;m),
mtag: mtag(m),
Msg: Msg(M),
IdLnk: IdLnk,
Id: Id,
assert: ↑b,
isl: isl(x),
uimplies: b supposing a,
uall: ∀[x:A]. B[x],
unit: Unit,
member: t ∈ T,
apply: f a,
lambda: λx.A[x],
function: x:A ─→ B[x],
union: left + right,
universe: Type,
inv-rel: inv-rel(A;B;f;finv)
Lemmas :
assert_wf,
isl_wf,
Id_wf,
unit_wf2,
mtag_wf,
Msg_wf,
inv-rel_wf,
IdLnk_wf,
assert_elim,
bfalse_wf,
and_wf,
equal_wf,
btrue_neq_bfalse,
subtype_base_sq,
atom2_subtype_base,
true_wf,
false_wf
\mforall{}[M:IdLnk {}\mrightarrow{} Id {}\mrightarrow{} Type]. \mforall{}[rt:Id {}\mrightarrow{} Id]. \mforall{}[rtinv:Id {}\mrightarrow{} (Id?)].
\mforall{}[m:Msg(M)]. msg-rename(rtinv;m) \mmember{} Msg(\mlambda{}l,tg. (M l (rt tg))) supposing \muparrow{}isl(rtinv mtag(m))
supposing inv-rel(Id;Id;rt;rtinv)
Date html generated:
2015_07_17-AM-09_12_03
Last ObjectModification:
2015_01_28-AM-07_58_01
Home
Index