Metamath Proof Explorer


Theorem suppofss2d

Description: Condition for the support of a function operation to be a subset of the support of the right function term. (Contributed by Thierry Arnoux, 21-Jun-2019)

Ref Expression
Hypotheses suppofssd.1 ⊢ φ → A ∈ V
suppofssd.2 ⊢ φ → Z ∈ B
suppofssd.3 ⊢ φ → F : A ⟶ B
suppofssd.4 ⊢ φ → G : A ⟶ B
suppofss2d.5 ⊢ φ ∧ x ∈ B → x X Z = Z
Assertion suppofss2d ⊢ φ → F X f G supp Z ⊆ G supp Z

Proof

Step Hyp Ref Expression
1 suppofssd.1 ⊢ φ → A ∈ V
2 suppofssd.2 ⊢ φ → Z ∈ B
3 suppofssd.3 ⊢ φ → F : A ⟶ B
4 suppofssd.4 ⊢ φ → G : A ⟶ B
5 suppofss2d.5 ⊢ φ ∧ x ∈ B → x X Z = Z
6 3 ffnd ⊢ φ → F Fn A
7 4 ffnd ⊢ φ → G Fn A
8 inidm ⊢ A ∩ A = A
9 eqidd ⊢ φ ∧ y ∈ A → F ⁡ y = F ⁡ y
10 eqidd ⊢ φ ∧ y ∈ A → G ⁡ y = G ⁡ y
11 6 7 1 1 8 9 10 ofval ⊢ φ ∧ y ∈ A → F X f G ⁡ y = F ⁡ y X G ⁡ y
12 11 adantr ⊢ φ ∧ y ∈ A ∧ G ⁡ y = Z → F X f G ⁡ y = F ⁡ y X G ⁡ y
13 simpr ⊢ φ ∧ y ∈ A ∧ G ⁡ y = Z → G ⁡ y = Z
14 13 oveq2d ⊢ φ ∧ y ∈ A ∧ G ⁡ y = Z → F ⁡ y X G ⁡ y = F ⁡ y X Z
15 5 ralrimiva ⊢ φ → ∀ x ∈ B x X Z = Z
16 15 adantr ⊢ φ ∧ y ∈ A → ∀ x ∈ B x X Z = Z
17 3 ffvelcdmda ⊢ φ ∧ y ∈ A → F ⁡ y ∈ B
18 simpr ⊢ φ ∧ y ∈ A ∧ x = F ⁡ y → x = F ⁡ y
19 18 oveq1d ⊢ φ ∧ y ∈ A ∧ x = F ⁡ y → x X Z = F ⁡ y X Z
20 19 eqeq1d ⊢ φ ∧ y ∈ A ∧ x = F ⁡ y → x X Z = Z ↔ F ⁡ y X Z = Z
21 17 20 rspcdv ⊢ φ ∧ y ∈ A → ∀ x ∈ B x X Z = Z → F ⁡ y X Z = Z
22 16 21 mpd ⊢ φ ∧ y ∈ A → F ⁡ y X Z = Z
23 22 adantr ⊢ φ ∧ y ∈ A ∧ G ⁡ y = Z → F ⁡ y X Z = Z
24 12 14 23 3eqtrd ⊢ φ ∧ y ∈ A ∧ G ⁡ y = Z → F X f G ⁡ y = Z
25 24 ex ⊢ φ ∧ y ∈ A → G ⁡ y = Z → F X f G ⁡ y = Z
26 25 ralrimiva ⊢ φ → ∀ y ∈ A G ⁡ y = Z → F X f G ⁡ y = Z
27 6 7 1 1 8 offn ⊢ φ → F X f G Fn A
28 ssidd ⊢ φ → A ⊆ A
29 suppfnss ⊢ F X f G Fn A ∧ G Fn A ∧ A ⊆ A ∧ A ∈ V ∧ Z ∈ B → ∀ y ∈ A G ⁡ y = Z → F X f G ⁡ y = Z → F X f G supp Z ⊆ G supp Z
30 27 7 28 1 2 29 syl23anc ⊢ φ → ∀ y ∈ A G ⁡ y = Z → F X f G ⁡ y = Z → F X f G supp Z ⊆ G supp Z
31 26 30 mpd ⊢ φ → F X f G supp Z ⊆ G supp Z