Theorem imimorbdc 795

Description: Simplify an implication between implications, for a decidable proposition. (Contributed by Jim Kingdon, 18-Mar-2018.)

Assertion

Ref	Expression
imimorbdc	|- (DECID ps -> ( ( ( ps -> ch ) -> ( ph -> ch ) ) <-> ( ph -> ( ps \/ ch ) ) ) )

Proof of Theorem imimorbdc

Step	Hyp	Ref	Expression
1		dfor2dc 794	. . 3 |- (DECID ps -> ( ( ps \/ ch ) <-> ( ( ps -> ch ) -> ch ) ) )
2	1	imbi2d 219	. 2 |- (DECID ps -> ( ( ph -> ( ps \/ ch ) ) <-> ( ph -> ( ( ps -> ch ) -> ch ) ) ) )
3		bi2.04 237	. 2 |- ( ( ( ps -> ch ) -> ( ph -> ch ) ) <-> ( ph -> ( ( ps -> ch ) -> ch ) ) )
4	2, 3	syl6rbbr 188	1 |- (DECID ps -> ( ( ( ps -> ch ) -> ( ph -> ch ) ) <-> ( ph -> ( ps \/ ch ) ) ) )

Syntax hints:   -> wi 4   <-> wb 98   \/ wo 629  DECID wdc 742

This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 99  ax-ia2 100  ax-ia3 101  ax-in1 544  ax-in2 545  ax-io 630

This theorem depends on definitions:  df-bi 110  df-dc 743

This theorem is referenced by: (None)