Remark decompose_int_thumb_nil:
  forall N n p, decompose_int_thumb N n p = nil -> n = Int.zero.

Lemma cond_for_float_cmp_correct: forall c n1 n2 rs, eval_testcond (cond_for_float_cmp c) (nextinstr (compare_float rs (Vfloat n1) (Vfloat n2))) = Some(Float.cmp c n1 n2).