theorem instMoralCharacterAtToParent
theorem instMoralCharacterAtToParent: ∀ (x t : Type) [MoralCharacter.At x t], Quality.At x t
theorem instMoralCharacterAtToParent
theorem instMoralCharacterAtToParent: ∀ (x t : Type) [MoralCharacter.At x t], Quality.At x t