Metamath Proof Explorer


Theorem wfrlem3

Description: Lemma for well-ordered recursion. An acceptable function's domain is a subset of A . (Contributed by Scott Fenton, 21-Apr-2011)

Ref Expression
Hypothesis wfrlem1.1 𝐵 = { 𝑓 ∣ ∃ 𝑥 ( 𝑓 Fn 𝑥 ∧ ( 𝑥𝐴 ∧ ∀ 𝑦𝑥 Pred ( 𝑅 , 𝐴 , 𝑦 ) ⊆ 𝑥 ) ∧ ∀ 𝑦𝑥 ( 𝑓𝑦 ) = ( 𝐹 ‘ ( 𝑓 ↾ Pred ( 𝑅 , 𝐴 , 𝑦 ) ) ) ) }
Assertion wfrlem3 ( 𝑔𝐵 → dom 𝑔𝐴 )

Proof

Step Hyp Ref Expression
1 wfrlem1.1 𝐵 = { 𝑓 ∣ ∃ 𝑥 ( 𝑓 Fn 𝑥 ∧ ( 𝑥𝐴 ∧ ∀ 𝑦𝑥 Pred ( 𝑅 , 𝐴 , 𝑦 ) ⊆ 𝑥 ) ∧ ∀ 𝑦𝑥 ( 𝑓𝑦 ) = ( 𝐹 ‘ ( 𝑓 ↾ Pred ( 𝑅 , 𝐴 , 𝑦 ) ) ) ) }
2 1 wfrlem1 𝐵 = { 𝑔 ∣ ∃ 𝑧 ( 𝑔 Fn 𝑧 ∧ ( 𝑧𝐴 ∧ ∀ 𝑤𝑧 Pred ( 𝑅 , 𝐴 , 𝑤 ) ⊆ 𝑧 ) ∧ ∀ 𝑤𝑧 ( 𝑔𝑤 ) = ( 𝐹 ‘ ( 𝑔 ↾ Pred ( 𝑅 , 𝐴 , 𝑤 ) ) ) ) }
3 2 abeq2i ( 𝑔𝐵 ↔ ∃ 𝑧 ( 𝑔 Fn 𝑧 ∧ ( 𝑧𝐴 ∧ ∀ 𝑤𝑧 Pred ( 𝑅 , 𝐴 , 𝑤 ) ⊆ 𝑧 ) ∧ ∀ 𝑤𝑧 ( 𝑔𝑤 ) = ( 𝐹 ‘ ( 𝑔 ↾ Pred ( 𝑅 , 𝐴 , 𝑤 ) ) ) ) )
4 fndm ( 𝑔 Fn 𝑧 → dom 𝑔 = 𝑧 )
5 4 sseq1d ( 𝑔 Fn 𝑧 → ( dom 𝑔𝐴𝑧𝐴 ) )
6 5 biimpar ( ( 𝑔 Fn 𝑧𝑧𝐴 ) → dom 𝑔𝐴 )
7 6 adantrr ( ( 𝑔 Fn 𝑧 ∧ ( 𝑧𝐴 ∧ ∀ 𝑤𝑧 Pred ( 𝑅 , 𝐴 , 𝑤 ) ⊆ 𝑧 ) ) → dom 𝑔𝐴 )
8 7 3adant3 ( ( 𝑔 Fn 𝑧 ∧ ( 𝑧𝐴 ∧ ∀ 𝑤𝑧 Pred ( 𝑅 , 𝐴 , 𝑤 ) ⊆ 𝑧 ) ∧ ∀ 𝑤𝑧 ( 𝑔𝑤 ) = ( 𝐹 ‘ ( 𝑔 ↾ Pred ( 𝑅 , 𝐴 , 𝑤 ) ) ) ) → dom 𝑔𝐴 )
9 8 exlimiv ( ∃ 𝑧 ( 𝑔 Fn 𝑧 ∧ ( 𝑧𝐴 ∧ ∀ 𝑤𝑧 Pred ( 𝑅 , 𝐴 , 𝑤 ) ⊆ 𝑧 ) ∧ ∀ 𝑤𝑧 ( 𝑔𝑤 ) = ( 𝐹 ‘ ( 𝑔 ↾ Pred ( 𝑅 , 𝐴 , 𝑤 ) ) ) ) → dom 𝑔𝐴 )
10 3 9 sylbi ( 𝑔𝐵 → dom 𝑔𝐴 )