theorem HypotheticalWorldExample.NazisWonWWIIWorld.mk.injEq
theorem HypotheticalWorldExample.NazisWonWWIIWorld.mk.injEq
: ∀ (toModalWorld : h96pgtwf.ModalWorld)
(holds_eq : h96pgtwf.ModalWorld.holds toModalWorld = Axiom.getSemantics "world where Nazis won WWII")
(nazis_won : h96pgtwf.ModalWorld.holds toModalWorld stx8bhgr.HypotheticalWorldExample.NazisWon)
(pre1939 :
∀ (p : Prop),
Axiom.Actual p →
Axiom.Actual (stx8bhgr.HypotheticalWorldExample.OccurredBefore1939 p) →
h96pgtwf.ModalWorld.holds toModalWorld p)
(toModalWorld_1 : h96pgtwf.ModalWorld)
(holds_eq_1 : h96pgtwf.ModalWorld.holds toModalWorld_1 = Axiom.getSemantics "world where Nazis won WWII")
(nazis_won_1 : h96pgtwf.ModalWorld.holds toModalWorld_1 stx8bhgr.HypotheticalWorldExample.NazisWon)
(pre1939_1 :
∀ (p : Prop),
Axiom.Actual p →
Axiom.Actual (stx8bhgr.HypotheticalWorldExample.OccurredBefore1939 p) →
h96pgtwf.ModalWorld.holds toModalWorld_1 p),
(stx8bhgr.HypotheticalWorldExample.NazisWonWWIIWorld.mk toModalWorld holds_eq nazis_won pre1939 =
stx8bhgr.HypotheticalWorldExample.NazisWonWWIIWorld.mk toModalWorld_1 holds_eq_1 nazis_won_1 pre1939_1) =
(toModalWorld = toModalWorld_1)