Theorem stcltr1i 29463

Description: Property of a strong classical state. (Contributed by NM, 24-Oct-1999.) (New usage is discouraged.)

Hypotheses

Ref	Expression
stcltr1.1	⊢ (𝜑 ↔ (𝑆 ∈ States ∧ ∀𝑥 ∈ Cℋ ∀𝑦 ∈ Cℋ (((𝑆‘𝑥) = 1 → (𝑆‘𝑦) = 1) → 𝑥 ⊆ 𝑦)))
stcltr1.2	⊢ 𝐴 ∈ Cℋ
stcltr1.3	⊢ 𝐵 ∈ Cℋ

Assertion

Ref	Expression
stcltr1i	⊢ (𝜑 → (((𝑆‘𝐴) = 1 → (𝑆‘𝐵) = 1) → 𝐴 ⊆ 𝐵))

Distinct variable groups:   𝑥,𝑦,𝐴   𝑥,𝐵,𝑦   𝑥,𝑆,𝑦

Allowed substitution hints:   𝜑(𝑥,𝑦)

Proof of Theorem stcltr1i

Step	Hyp	Ref	Expression
1		stcltr1.1	. 2 ⊢ (𝜑 ↔ (𝑆 ∈ States ∧ ∀𝑥 ∈ Cℋ ∀𝑦 ∈ Cℋ (((𝑆‘𝑥) = 1 → (𝑆‘𝑦) = 1) → 𝑥 ⊆ 𝑦)))
2		stcltr1.2	. . 3 ⊢ 𝐴 ∈ Cℋ
3		stcltr1.3	. . 3 ⊢ 𝐵 ∈ Cℋ
4		fveq2 6353	. . . . . . 7 ⊢ (𝑥 = 𝐴 → (𝑆‘𝑥) = (𝑆‘𝐴))
5	4	eqeq1d 2762	. . . . . 6 ⊢ (𝑥 = 𝐴 → ((𝑆‘𝑥) = 1 ↔ (𝑆‘𝐴) = 1))
6	5	imbi1d 330	. . . . 5 ⊢ (𝑥 = 𝐴 → (((𝑆‘𝑥) = 1 → (𝑆‘𝑦) = 1) ↔ ((𝑆‘𝐴) = 1 → (𝑆‘𝑦) = 1)))
7		sseq1 3767	. . . . 5 ⊢ (𝑥 = 𝐴 → (𝑥 ⊆ 𝑦 ↔ 𝐴 ⊆ 𝑦))
8	6, 7	imbi12d 333	. . . 4 ⊢ (𝑥 = 𝐴 → ((((𝑆‘𝑥) = 1 → (𝑆‘𝑦) = 1) → 𝑥 ⊆ 𝑦) ↔ (((𝑆‘𝐴) = 1 → (𝑆‘𝑦) = 1) → 𝐴 ⊆ 𝑦)))
9		fveq2 6353	. . . . . . 7 ⊢ (𝑦 = 𝐵 → (𝑆‘𝑦) = (𝑆‘𝐵))
10	9	eqeq1d 2762	. . . . . 6 ⊢ (𝑦 = 𝐵 → ((𝑆‘𝑦) = 1 ↔ (𝑆‘𝐵) = 1))
11	10	imbi2d 329	. . . . 5 ⊢ (𝑦 = 𝐵 → (((𝑆‘𝐴) = 1 → (𝑆‘𝑦) = 1) ↔ ((𝑆‘𝐴) = 1 → (𝑆‘𝐵) = 1)))
12		sseq2 3768	. . . . 5 ⊢ (𝑦 = 𝐵 → (𝐴 ⊆ 𝑦 ↔ 𝐴 ⊆ 𝐵))
13	11, 12	imbi12d 333	. . . 4 ⊢ (𝑦 = 𝐵 → ((((𝑆‘𝐴) = 1 → (𝑆‘𝑦) = 1) → 𝐴 ⊆ 𝑦) ↔ (((𝑆‘𝐴) = 1 → (𝑆‘𝐵) = 1) → 𝐴 ⊆ 𝐵)))
14	8, 13	rspc2v 3461	. . 3 ⊢ ((𝐴 ∈ Cℋ ∧ 𝐵 ∈ Cℋ ) → (∀𝑥 ∈ Cℋ ∀𝑦 ∈ Cℋ (((𝑆‘𝑥) = 1 → (𝑆‘𝑦) = 1) → 𝑥 ⊆ 𝑦) → (((𝑆‘𝐴) = 1 → (𝑆‘𝐵) = 1) → 𝐴 ⊆ 𝐵)))
15	2, 3, 14	mp2an 710	. 2 ⊢ (∀𝑥 ∈ Cℋ ∀𝑦 ∈ Cℋ (((𝑆‘𝑥) = 1 → (𝑆‘𝑦) = 1) → 𝑥 ⊆ 𝑦) → (((𝑆‘𝐴) = 1 → (𝑆‘𝐵) = 1) → 𝐴 ⊆ 𝐵))
16	1, 15	simplbiim 661	1 ⊢ (𝜑 → (((𝑆‘𝐴) = 1 → (𝑆‘𝐵) = 1) → 𝐴 ⊆ 𝐵))

Syntax hints:   → wi 4   ↔ wb 196   ∧ wa 383   = wceq 1632   ∈ wcel 2139  ∀wral 3050   ⊆ wss 3715  ‘cfv 6049  1c1 10149   C_ℋ cch 28116  Statescst 28149

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1988  ax-6 2054  ax-7 2090  ax-9 2148  ax-10 2168  ax-11 2183  ax-12 2196  ax-13 2391  ax-ext 2740

This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1074  df-tru 1635  df-ex 1854  df-nf 1859  df-sb 2047  df-clab 2747  df-cleq 2753  df-clel 2756  df-nfc 2891  df-ral 3055  df-rex 3056  df-rab 3059  df-v 3342  df-dif 3718  df-un 3720  df-in 3722  df-ss 3729  df-nul 4059  df-if 4231  df-sn 4322  df-pr 4324  df-op 4328  df-uni 4589  df-br 4805  df-iota 6012  df-fv 6057

This theorem is referenced by:  stcltr2i  29464  stcltrlem2  29466