Metamath Proof Explorer


Theorem cdj3lem3a

Description: Lemma for cdj3i . Closure of the second-component function T . (Contributed by NM, 26-May-2005) (New usage is discouraged.)

Ref Expression
Hypotheses cdj3lem2.1 𝐴S
cdj3lem2.2 𝐵S
cdj3lem3.3 𝑇 = ( 𝑥 ∈ ( 𝐴 + 𝐵 ) ↦ ( 𝑤𝐵𝑧𝐴 𝑥 = ( 𝑧 + 𝑤 ) ) )
Assertion cdj3lem3a ( ( 𝐶 ∈ ( 𝐴 + 𝐵 ) ∧ ( 𝐴𝐵 ) = 0 ) → ( 𝑇𝐶 ) ∈ 𝐵 )

Proof

Step Hyp Ref Expression
1 cdj3lem2.1 𝐴S
2 cdj3lem2.2 𝐵S
3 cdj3lem3.3 𝑇 = ( 𝑥 ∈ ( 𝐴 + 𝐵 ) ↦ ( 𝑤𝐵𝑧𝐴 𝑥 = ( 𝑧 + 𝑤 ) ) )
4 1 2 shseli ( 𝐶 ∈ ( 𝐴 + 𝐵 ) ↔ ∃ 𝑣𝐴𝑢𝐵 𝐶 = ( 𝑣 + 𝑢 ) )
5 1 2 3 cdj3lem3 ( ( 𝑣𝐴𝑢𝐵 ∧ ( 𝐴𝐵 ) = 0 ) → ( 𝑇 ‘ ( 𝑣 + 𝑢 ) ) = 𝑢 )
6 simp2 ( ( 𝑣𝐴𝑢𝐵 ∧ ( 𝐴𝐵 ) = 0 ) → 𝑢𝐵 )
7 5 6 eqeltrd ( ( 𝑣𝐴𝑢𝐵 ∧ ( 𝐴𝐵 ) = 0 ) → ( 𝑇 ‘ ( 𝑣 + 𝑢 ) ) ∈ 𝐵 )
8 7 3expa ( ( ( 𝑣𝐴𝑢𝐵 ) ∧ ( 𝐴𝐵 ) = 0 ) → ( 𝑇 ‘ ( 𝑣 + 𝑢 ) ) ∈ 𝐵 )
9 fveq2 ( 𝐶 = ( 𝑣 + 𝑢 ) → ( 𝑇𝐶 ) = ( 𝑇 ‘ ( 𝑣 + 𝑢 ) ) )
10 9 eleq1d ( 𝐶 = ( 𝑣 + 𝑢 ) → ( ( 𝑇𝐶 ) ∈ 𝐵 ↔ ( 𝑇 ‘ ( 𝑣 + 𝑢 ) ) ∈ 𝐵 ) )
11 8 10 syl5ibr ( 𝐶 = ( 𝑣 + 𝑢 ) → ( ( ( 𝑣𝐴𝑢𝐵 ) ∧ ( 𝐴𝐵 ) = 0 ) → ( 𝑇𝐶 ) ∈ 𝐵 ) )
12 11 expd ( 𝐶 = ( 𝑣 + 𝑢 ) → ( ( 𝑣𝐴𝑢𝐵 ) → ( ( 𝐴𝐵 ) = 0 → ( 𝑇𝐶 ) ∈ 𝐵 ) ) )
13 12 com13 ( ( 𝐴𝐵 ) = 0 → ( ( 𝑣𝐴𝑢𝐵 ) → ( 𝐶 = ( 𝑣 + 𝑢 ) → ( 𝑇𝐶 ) ∈ 𝐵 ) ) )
14 13 rexlimdvv ( ( 𝐴𝐵 ) = 0 → ( ∃ 𝑣𝐴𝑢𝐵 𝐶 = ( 𝑣 + 𝑢 ) → ( 𝑇𝐶 ) ∈ 𝐵 ) )
15 4 14 syl5bi ( ( 𝐴𝐵 ) = 0 → ( 𝐶 ∈ ( 𝐴 + 𝐵 ) → ( 𝑇𝐶 ) ∈ 𝐵 ) )
16 15 impcom ( ( 𝐶 ∈ ( 𝐴 + 𝐵 ) ∧ ( 𝐴𝐵 ) = 0 ) → ( 𝑇𝐶 ) ∈ 𝐵 )