Ltac splitall := repeat (match goal with |- _ /\ _ => split end).

(* Specifications: *)
Lemma find_valnum_rhs_charact: forall rh v eqs, find_valnum_rhs rh eqs = Some v -> In (Eq v true rh) eqs.
Lemma find_valnum_rhs'_charact: forall rh v eqs, find_valnum_rhs' rh eqs = Some v -> exists strict, In (Eq v strict rh) eqs.
Lemma find_valnum_num_charact: forall v r eqs, find_valnum_num v eqs = Some r -> In (Eq v true r) eqs.