Definition Qpositive_sub (w w' : Qpositive) :=
  let (p, q) := Qpositive_i w in
  let (p', q') := Qpositive_i w' in
  Qpositive_c (p * q' - p' * q) (q * q') (p * q' + p' * q + q * q').

Theorem Qpositive_sub_sub_assoc : forall w w' w'' : Qpositive, w' <> w'' -> Qpositive_le w'' w' -> w <> Qpositive_sub w' w'' -> Qpositive_le (Qpositive_sub w' w'') w -> Qpositive_sub w (Qpositive_sub w' w'') = Qpositive_sub (Qpositive_plus w w'') w'.