Definition Qcabs (x:Qc) : Qc := {| canon := Qcabs_canon x (canon x) |}.Notation "[ q ]" := (Qcabs q) : Qc_scope.Ltac Qc_unfolds :=
  unfold Qcabs, Qcminus, Qcopp, Qcplus, Qcmult, Qcle, Q2Qc, this.

Lemma Qcabs_neg x : x <= 0 -> [x] = - x.