q r : (' q) * (' r) = ' (PairT.ml _ q r) := 1. Global Instance Z_negate@{} : Negate Z. Proof. red. apply (Z_rec (fun x => ' (PairT.opp@{UN UNalt} _ x))). intros;apply Z_path;eapply PairT.opp_respects;trivial. Defined.
Require Import HoTT.HIT.quotient Require Import Import ring_quote.Quoting.Instances. Module Import PairT.