Theorem funss 6555

Description: Subclass theorem for function predicate. (Contributed by NM, 16-Aug-1994.) (Proof shortened by Mario Carneiro, 24-Jun-2014.)

Assertion

Ref	Expression
funss	⊢ (𝐴 ⊆ 𝐵 → (Fun 𝐵 → Fun 𝐴))

Proof of Theorem funss

Step	Hyp	Ref	Expression
1		relss 5760	. . 3 ⊢ (𝐴 ⊆ 𝐵 → (Rel 𝐵 → Rel 𝐴))
2		coss1 5835	. . . . 5 ⊢ (𝐴 ⊆ 𝐵 → (𝐴 ∘ ◡𝐴) ⊆ (𝐵 ∘ ◡𝐴))
3		cnvss 5852	. . . . . 6 ⊢ (𝐴 ⊆ 𝐵 → ◡𝐴 ⊆ ◡𝐵)
4		coss2 5836	. . . . . 6 ⊢ (◡𝐴 ⊆ ◡𝐵 → (𝐵 ∘ ◡𝐴) ⊆ (𝐵 ∘ ◡𝐵))
5	3, 4	syl 17	. . . . 5 ⊢ (𝐴 ⊆ 𝐵 → (𝐵 ∘ ◡𝐴) ⊆ (𝐵 ∘ ◡𝐵))
6	2, 5	sstrd 3969	. . . 4 ⊢ (𝐴 ⊆ 𝐵 → (𝐴 ∘ ◡𝐴) ⊆ (𝐵 ∘ ◡𝐵))
7		sstr2 3965	. . . 4 ⊢ ((𝐴 ∘ ◡𝐴) ⊆ (𝐵 ∘ ◡𝐵) → ((𝐵 ∘ ◡𝐵) ⊆ I → (𝐴 ∘ ◡𝐴) ⊆ I ))
8	6, 7	syl 17	. . 3 ⊢ (𝐴 ⊆ 𝐵 → ((𝐵 ∘ ◡𝐵) ⊆ I → (𝐴 ∘ ◡𝐴) ⊆ I ))
9	1, 8	anim12d 609	. 2 ⊢ (𝐴 ⊆ 𝐵 → ((Rel 𝐵 ∧ (𝐵 ∘ ◡𝐵) ⊆ I ) → (Rel 𝐴 ∧ (𝐴 ∘ ◡𝐴) ⊆ I )))
10		df-fun 6533	. 2 ⊢ (Fun 𝐵 ↔ (Rel 𝐵 ∧ (𝐵 ∘ ◡𝐵) ⊆ I ))
11		df-fun 6533	. 2 ⊢ (Fun 𝐴 ↔ (Rel 𝐴 ∧ (𝐴 ∘ ◡𝐴) ⊆ I ))
12	9, 10, 11	3imtr4g 296	1 ⊢ (𝐴 ⊆ 𝐵 → (Fun 𝐵 → Fun 𝐴))

Syntax hints:   → wi 4   ∧ wa 395   ⊆ wss 3926   I cid 5547  ^◡ccnv 5653   ∘ ccom 5658  Rel wrel 5659  Fun wfun 6525

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-ext 2707

This theorem depends on definitions:  df-bi 207  df-an 396  df-ex 1780  df-sb 2065  df-clab 2714  df-cleq 2727  df-clel 2809  df-ss 3943  df-br 5120  df-opab 5182  df-rel 5661  df-cnv 5662  df-co 5663  df-fun 6533

This theorem is referenced by:  funeq  6556  funopab4  6573  funres  6578  fun0  6601  funcnvcnv  6603  funin  6612  funres11  6613  foimacnv  6835  funelss  8046  funsssuppss  8189  fsuppss  9395  strle1  17177  strssd  17224  pjpm  21668  subgrfun  29260  setrecsss  49565