c_0_1
( ( member_msg @ ( mPair @ x @ y ) @ ( synth @ ( analz @ h ) ) ) <=> ( ( member_msg @ x @ ( synth @ ( analz @ h ) ) ) & ( member_msg @ y @ ( synth @ ( analz @ h ) ) ) ) )
Proof
lemma MPair_synth_analz [iff]: "(⦃X,Y⦄ ∈ synth (analz H)) = (X ∈ synth (analz H) & Y ∈ synth (analz H))"
lemma MPair_synth_analz [iff]:
"(⦃X,Y⦄ ∈ synth (analz H)) =
(X ∈ synth (analz H) & Y ∈ synth (analz H))"
by blast( ( member_msg @ ( mPair @ x @ y ) @ ( synth @ ( analz @ h ) ) ) <=> ( ( member_msg @ x @ ( synth @ ( analz @ h ) ) ) & ( member_msg @ y @ ( synth @ ( analz @ h ) ) ) ) )