n : _ <~> IsPrime n := ltac:(issig). Global Instance ishprop_isprime `{Funext} n : IsHProp (IsPrime n). Proof. nrapply istrunc_equiv_istrunc. 1: apply . rapply istrunc_sigma. intros H1. snrapply istrunc_forall. intros m. snrapply istrunc_forall. intros d. rapply ishprop_sum. intros p q. nrapply (snd neq_iff_lt_or_gt _ (p^ @ q)). by left. Defined.
Require Import Basics.Overture Basics.Tactics Basics.Trunc Basics.Classes