apply Nat.le_of_pred_lt
case h
n a b : ℕ
npos : 0 < n
hfa : trunc n a = a
le_ulp : b ≤ ulp n a
size_lt : 2 ^ (Nat.size a - 1) < a
⊢ Nat.size a ≤ Nat.size (a - b)
case h.a
n a b : ℕ
npos : 0 < n
hfa : trunc n a = a
le_ulp : b ≤ ulp n a
size_lt : 2 ^ (Nat.size a - 1) < a
⊢ Nat.pred (Nat.size a) < Nat.size (a - b)