theorem MurderCase.mk.injEq
theorem MurderCase.mk.injEq
: ∀ (murder : etsbfws7.Murder) (murderer victim : z69f3rb3.Person) (punishment : etsbfws7.PunishmentSpec)
(murders_involvement : etsbfws7.MurderInvolves (Subtype.val murder) (Subtype.val victim) (Subtype.val murderer))
(deserved_punishment :
etsbfws7.DeservesPunishmentFor (Subtype.val murderer) (Subtype.val punishment) (Subtype.val murder))
(murder_1 : etsbfws7.Murder) (murderer_1 victim_1 : z69f3rb3.Person) (punishment_1 : etsbfws7.PunishmentSpec)
(murders_involvement_1 :
etsbfws7.MurderInvolves (Subtype.val murder_1) (Subtype.val victim_1) (Subtype.val murderer_1))
(deserved_punishment_1 :
etsbfws7.DeservesPunishmentFor (Subtype.val murderer_1) (Subtype.val punishment_1) (Subtype.val murder_1)),
(etsbfws7.MurderCase.mk murder murderer victim punishment murders_involvement deserved_punishment =
etsbfws7.MurderCase.mk murder_1 murderer_1 victim_1 punishment_1 murders_involvement_1 deserved_punishment_1) =
(murder = murder_1 ∧ murderer = murderer_1 ∧ victim = victim_1 ∧ punishment = punishment_1)