Fraction -> Fraction -> Fraction := fun '(Build_Fraction n1 d1 p1) '(Build_Fraction n2 d2 p2) => Build_Fraction (n1 * d2 + n2 * d1) (d1 * d2) (mss_mult p1 p2).
Require Import Basics.Overture Basics.Trunc Basics.Tactics Colimits.Quotient