fact: Record Z8 : Set := {z8crr :> Z * Z * (Z * Z) * (Z * Z * (Z * Z)); z8prf : (0 <= fst (fst (fst z8crr)))%Z /\ (0 <= snd (fst (fst z8crr)))%Z /\ (0 <= fst (snd (fst z8crr)))%Z /\ (0 <= snd (snd (fst z8crr)))%Z /\ (0 <= fst (fst (snd z8crr)))%Z /\ (0 <= snd (fst (snd z8crr)))%Z /\ (0 <= fst (snd (snd z8crr)))%Z /\ (0 <= snd (snd (snd z8crr)))%Z}.
imports: QArithSternBrocot(Merge_Order)