Metamath Proof Explorer


Theorem caofrss

Description: Transfer a relation subset law to the function relation. (Contributed by Mario Carneiro, 28-Jul-2014)

Ref Expression
Hypotheses caofref.1 ⊢ φ → A ∈ V
caofref.2 ⊢ φ → F : A ⟶ S
caofcom.3 ⊢ φ → G : A ⟶ S
caofrss.4 ⊢ φ ∧ x ∈ S ∧ y ∈ S → x R y → x T y
Assertion caofrss ⊢ φ → F R f G → F T f G

Proof

Step Hyp Ref Expression
1 caofref.1 ⊢ φ → A ∈ V
2 caofref.2 ⊢ φ → F : A ⟶ S
3 caofcom.3 ⊢ φ → G : A ⟶ S
4 caofrss.4 ⊢ φ ∧ x ∈ S ∧ y ∈ S → x R y → x T y
5 2 ffvelcdmda ⊢ φ ∧ w ∈ A → F ⁡ w ∈ S
6 3 ffvelcdmda ⊢ φ ∧ w ∈ A → G ⁡ w ∈ S
7 4 ralrimivva ⊢ φ → ∀ x ∈ S ∀ y ∈ S x R y → x T y
8 7 adantr ⊢ φ ∧ w ∈ A → ∀ x ∈ S ∀ y ∈ S x R y → x T y
9 breq1 ⊢ x = F ⁡ w → x R y ↔ F ⁡ w R y
10 breq1 ⊢ x = F ⁡ w → x T y ↔ F ⁡ w T y
11 9 10 imbi12d ⊢ x = F ⁡ w → x R y → x T y ↔ F ⁡ w R y → F ⁡ w T y
12 breq2 ⊢ y = G ⁡ w → F ⁡ w R y ↔ F ⁡ w R G ⁡ w
13 breq2 ⊢ y = G ⁡ w → F ⁡ w T y ↔ F ⁡ w T G ⁡ w
14 12 13 imbi12d ⊢ y = G ⁡ w → F ⁡ w R y → F ⁡ w T y ↔ F ⁡ w R G ⁡ w → F ⁡ w T G ⁡ w
15 11 14 rspc2va ⊢ F ⁡ w ∈ S ∧ G ⁡ w ∈ S ∧ ∀ x ∈ S ∀ y ∈ S x R y → x T y → F ⁡ w R G ⁡ w → F ⁡ w T G ⁡ w
16 5 6 8 15 syl21anc ⊢ φ ∧ w ∈ A → F ⁡ w R G ⁡ w → F ⁡ w T G ⁡ w
17 16 ralimdva ⊢ φ → ∀ w ∈ A F ⁡ w R G ⁡ w → ∀ w ∈ A F ⁡ w T G ⁡ w
18 2 ffnd ⊢ φ → F Fn A
19 3 ffnd ⊢ φ → G Fn A
20 inidm ⊢ A ∩ A = A
21 eqidd ⊢ φ ∧ w ∈ A → F ⁡ w = F ⁡ w
22 eqidd ⊢ φ ∧ w ∈ A → G ⁡ w = G ⁡ w
23 18 19 1 1 20 21 22 ofrfval ⊢ φ → F R f G ↔ ∀ w ∈ A F ⁡ w R G ⁡ w
24 18 19 1 1 20 21 22 ofrfval ⊢ φ → F T f G ↔ ∀ w ∈ A F ⁡ w T G ⁡ w
25 17 23 24 3imtr4d ⊢ φ → F R f G → F T f G