Theorem Arroweqd ≪ | index | src | ≫

theorem Arroweqd (_G: wff) (_A1 _A2 _B1 _B2: set):
  $ _G -> _A1 == _A2 $ >
  $ _G -> _B1 == _B2 $ >
  $ _G -> Arrow _A1 _B1 == Arrow _A2 _B2 $;


_G -> _A1 == _A2
_G -> (Dom f == _A1 <-> Dom f == _A2)
_G -> (isfun f /\ Dom f == _A1 <-> isfun f /\ Dom f == _A2)
_G -> _B1 == _B2
_G -> (Ran f C_ _B1 <-> Ran f C_ _B2)
_G -> (isfun f /\ Dom f == _A1 /\ Ran f C_ _B1 <-> isfun f /\ Dom f == _A2 /\ Ran f C_ _B2)
_G -> {f | isfun f /\ Dom f == _A1 /\ Ran f C_ _B1} == {f | isfun f /\ Dom f == _A2 /\ Ran f C_ _B2}
_G -> Arrow _A1 _B1 == Arrow _A2 _B2

Step	Hyp	Ref	Expression
1		hyp _Ah	_G -> _A1 == _A2
2	1	eqseq2d	_G -> (Dom f == _A1 <-> Dom f == _A2)
3	2	aneq2d	_G -> (isfun f /\ Dom f == _A1 <-> isfun f /\ Dom f == _A2)
4		hyp _Bh	_G -> _B1 == _B2
5	4	sseq2d	_G -> (Ran f C_ _B1 <-> Ran f C_ _B2)
6	3, 5	aneqd	_G -> (isfun f /\ Dom f == _A1 /\ Ran f C_ _B1 <-> isfun f /\ Dom f == _A2 /\ Ran f C_ _B2)
7	6	abeqd	_G -> {f \| isfun f /\ Dom f == _A1 /\ Ran f C_ _B1} == {f \| isfun f /\ Dom f == _A2 /\ Ran f C_ _B2}
8	7	conv Arrow	_G -> Arrow _A1 _B1 == Arrow _A2 _B2

Axiom use

axs_prop_calc (ax_1, ax_2, ax_3, ax_mp, itru), axs_pred_calc (ax_gen, ax_4, ax_5, ax_6, ax_7, ax_10, ax_11, ax_12), axs_set (elab, ax_8)