Definition tr1(t:True) : Prop :=False. Coercion tr1: True >-> Sortclass. Lemma FUCKMS: forall a : True, a->False. Proof. compute. firstorder. Qed.