Theorem orbi1rVD 39083

Description: Virtual deduction proof of orbi1r 38716. The following user's proof is completed by invoking mmj2's unify command and using mmj2's StepSelector to pick all remaining steps of the Metamath proof.

1::	⊢ (   (𝜑 ↔ 𝜓)   ▶   (𝜑 ↔ 𝜓)   )
2::	⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜑)    ▶   (𝜒 ∨ 𝜑)   )
3:2,?: e2 38856	⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜑)    ▶   (𝜑 ∨ 𝜒)   )
4:1,3,?: e12 38951	⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜑)    ▶   (𝜓 ∨ 𝜒)   )
5:4,?: e2 38856	⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜑)    ▶   (𝜒 ∨ 𝜓)   )
6:5:	⊢ (   (𝜑 ↔ 𝜓)   ▶   ((𝜒 ∨ 𝜑) → (𝜒 ∨ 𝜓))   )
7::	⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜓)    ▶   (𝜒 ∨ 𝜓)   )
8:7,?: e2 38856	⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜓)    ▶   (𝜓 ∨ 𝜒)   )
9:1,8,?: e12 38951	⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜓)    ▶   (𝜑 ∨ 𝜒)   )
10:9,?: e2 38856	⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜓)    ▶   (𝜒 ∨ 𝜑)   )
11:10:	⊢ (   (𝜑 ↔ 𝜓)   ▶   ((𝜒 ∨ 𝜓) → (𝜒 ∨ 𝜑))   )
12:6,11,?: e11 38913	⊢ (   (𝜑 ↔ 𝜓)   ▶   ((𝜒 ∨ 𝜑) ↔ (𝜒 ∨ 𝜓))   )
qed:12:	⊢ ((𝜑 ↔ 𝜓) → ((𝜒 ∨ 𝜑) ↔ (𝜒 ∨ 𝜓)))

(Contributed by Alan Sare, 31-Dec-2011.) (Proof modification is discouraged.) (New usage is discouraged.)

Assertion

Ref	Expression
orbi1rVD	⊢ ((𝜑 ↔ 𝜓) → ((𝜒 ∨ 𝜑) ↔ (𝜒 ∨ 𝜓)))

Proof of Theorem orbi1rVD

Step	Hyp	Ref	Expression
1		idn1 38790	. . . . . 6 ⊢ (   (𝜑 ↔ 𝜓)   ▶   (𝜑 ↔ 𝜓)   )
2		idn2 38838	. . . . . . 7 ⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜑)   ▶   (𝜒 ∨ 𝜑)   )
3		pm1.4 401	. . . . . . 7 ⊢ ((𝜒 ∨ 𝜑) → (𝜑 ∨ 𝜒))
4	2, 3	e2 38856	. . . . . 6 ⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜑)   ▶   (𝜑 ∨ 𝜒)   )
5		orbi1 742	. . . . . . 7 ⊢ ((𝜑 ↔ 𝜓) → ((𝜑 ∨ 𝜒) ↔ (𝜓 ∨ 𝜒)))
6	5	biimpd 219	. . . . . 6 ⊢ ((𝜑 ↔ 𝜓) → ((𝜑 ∨ 𝜒) → (𝜓 ∨ 𝜒)))
7	1, 4, 6	e12 38951	. . . . 5 ⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜑)   ▶   (𝜓 ∨ 𝜒)   )
8		pm1.4 401	. . . . 5 ⊢ ((𝜓 ∨ 𝜒) → (𝜒 ∨ 𝜓))
9	7, 8	e2 38856	. . . 4 ⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜑)   ▶   (𝜒 ∨ 𝜓)   )
10	9	in2 38830	. . 3 ⊢ (   (𝜑 ↔ 𝜓)   ▶   ((𝜒 ∨ 𝜑) → (𝜒 ∨ 𝜓))   )
11		idn2 38838	. . . . . . 7 ⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜓)   ▶   (𝜒 ∨ 𝜓)   )
12		pm1.4 401	. . . . . . 7 ⊢ ((𝜒 ∨ 𝜓) → (𝜓 ∨ 𝜒))
13	11, 12	e2 38856	. . . . . 6 ⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜓)   ▶   (𝜓 ∨ 𝜒)   )
14	5	biimprd 238	. . . . . 6 ⊢ ((𝜑 ↔ 𝜓) → ((𝜓 ∨ 𝜒) → (𝜑 ∨ 𝜒)))
15	1, 13, 14	e12 38951	. . . . 5 ⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜓)   ▶   (𝜑 ∨ 𝜒)   )
16		pm1.4 401	. . . . 5 ⊢ ((𝜑 ∨ 𝜒) → (𝜒 ∨ 𝜑))
17	15, 16	e2 38856	. . . 4 ⊢ (   (𝜑 ↔ 𝜓)   ,   (𝜒 ∨ 𝜓)   ▶   (𝜒 ∨ 𝜑)   )
18	17	in2 38830	. . 3 ⊢ (   (𝜑 ↔ 𝜓)   ▶   ((𝜒 ∨ 𝜓) → (𝜒 ∨ 𝜑))   )
19		impbi 198	. . 3 ⊢ (((𝜒 ∨ 𝜑) → (𝜒 ∨ 𝜓)) → (((𝜒 ∨ 𝜓) → (𝜒 ∨ 𝜑)) → ((𝜒 ∨ 𝜑) ↔ (𝜒 ∨ 𝜓))))
20	10, 18, 19	e11 38913	. 2 ⊢ (   (𝜑 ↔ 𝜓)   ▶   ((𝜒 ∨ 𝜑) ↔ (𝜒 ∨ 𝜓))   )
21	20	in1 38787	1 ⊢ ((𝜑 ↔ 𝜓) → ((𝜒 ∨ 𝜑) ↔ (𝜒 ∨ 𝜓)))

Syntax hints:   → wi 4   ↔ wb 196   ∨ wo 383

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8

This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-vd1 38786  df-vd2 38794

This theorem is referenced by: (None)