fst (the (m : Nat ** m === 3) sing)
fst (the (m : Nat ** m === 5) sing)
:q