Theorem funss 6557

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 5770	. . 3 ⊢ (𝐴 ⊆ 𝐵 → (Rel 𝐵 → Rel 𝐴))
2		coss1 5843	. . . . 5 ⊢ (𝐴 ⊆ 𝐵 → (𝐴 ∘ ◡𝐴) ⊆ (𝐵 ∘ ◡𝐴))
3		cnvss 5860	. . . . . 6 ⊢ (𝐴 ⊆ 𝐵 → ◡𝐴 ⊆ ◡𝐵)
4		coss2 5844	. . . . . 6 ⊢ (◡𝐴 ⊆ ◡𝐵 → (𝐵 ∘ ◡𝐴) ⊆ (𝐵 ∘ ◡𝐵))
5	3, 4	syl 18	. . . . 5 ⊢ (𝐴 ⊆ 𝐵 → (𝐵 ∘ ◡𝐴) ⊆ (𝐵 ∘ ◡𝐵))
6	2, 5	sstrd 3948	. . . 4 ⊢ (𝐴 ⊆ 𝐵 → (𝐴 ∘ ◡𝐴) ⊆ (𝐵 ∘ ◡𝐵))
7		sstr2 3945	. . . 4 ⊢ ((𝐴 ∘ ◡𝐴) ⊆ (𝐵 ∘ ◡𝐵) → ((𝐵 ∘ ◡𝐵) ⊆ I → (𝐴 ∘ ◡𝐴) ⊆ I ))
8	6, 7	syl 18	. . 3 ⊢ (𝐴 ⊆ 𝐵 → ((𝐵 ∘ ◡𝐵) ⊆ I → (𝐴 ∘ ◡𝐴) ⊆ I ))
9	1, 8	anim12d 620	. 2 ⊢ (𝐴 ⊆ 𝐵 → ((Rel 𝐵 ∧ (𝐵 ∘ ◡𝐵) ⊆ I ) → (Rel 𝐴 ∧ (𝐴 ∘ ◡𝐴) ⊆ I )))
10		df-fun 6540	. 2 ⊢ (Fun 𝐵 ↔ (Rel 𝐵 ∧ (𝐵 ∘ ◡𝐵) ⊆ I ))
11		df-fun 6540	. 2 ⊢ (Fun 𝐴 ↔ (Rel 𝐴 ∧ (𝐴 ∘ ◡𝐴) ⊆ I ))
12	9, 10, 11	3imtr4g 299	1 ⊢ (𝐴 ⊆ 𝐵 → (Fun 𝐵 → Fun 𝐴))

Syntax hints:   → wi 4   ∧ wa 400   ⊆ wss 3906   I cid 5557  ^◡ccnv 5662   ∘ ccom 5667  Rel wrel 5668  Fun wfun 6532

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-ext 2735

This theorem depends on definitions:  df-bi 210  df-an 401  df-ex 1810  df-sb 2097  df-clab 2742  df-cleq 2755  df-clel 2838  df-ss 3923  df-br 5111  df-opab 5175  df-rel 5670  df-cnv 5671  df-co 5672  df-fun 6540

This theorem is referenced by:  funeq  6558  funopab4  6575  funres  6580  fun0  6603  funcnvcnv  6605  funin  6614  funres11  6615  foimacnv  6840  funelss  8045  funsssuppss  8187  fsuppss  9344  strle1  17219  strssd  17266  pjpm  21839  subgrfun  29609  setrecsss  50456