Nuprl Lemma : sub-system-append
∀[M:Type ─→ Type]. ∀S1,S2:System(P.M[P]). (sub-system(P.M[P];S1;S1 @ S2) ∧ sub-system(P.M[P];S2;S1 @ S2))
Proof
Definitions occuring in Statement :
system-append: S1 @ S2,
sub-system: sub-system(P.M[P];S1;S2),
System: System(P.M[P]),
uall: ∀[x:A]. B[x],
so_apply: x[s],
all: ∀x:A. B[x],
and: P ∧ Q,
function: x:A ─→ B[x],
universe: Type
Lemmas :
sublist_append1,
component_wf,
lg-append-contains,
pInTransit_wf,
sublist_append2,
System_wf
Latex:
\mforall{}[M:Type {}\mrightarrow{} Type]
\mforall{}S1,S2:System(P.M[P]). (sub-system(P.M[P];S1;S1 @ S2) \mwedge{} sub-system(P.M[P];S2;S1 @ S2))
Date html generated:
2015_07_23-AM-11_19_49
Last ObjectModification:
2015_01_28-PM-11_17_12
Home
Index