Ltac prop_right_cautious :=
try solve [simple apply prop_right; auto].
(**********************************************************)
(* testing Parameter f: nat -> Prop. Parameter g h : mpred.  Goal ( !! f 1 && ((h && !! f 2) && h ) && (!! f 3 && (g && (!!f 4 && !! f 5) && !! f 6)) |-- FF).  *)
(*****************************************************************)
Ltac subst_any :=
repeat match goal with
| H: ?x = ?y |- _ => first [ subst x | subst y ]
end.

Lemma unsigned_eq_eq: forall i j, Int.unsigned i = Int.unsigned j -> i = j.
Ltac solve_mod_eq :=
unfold Int.add, Int.mul;
repeat rewrite Int.unsigned_repr_eq;
repeat
(repeat rewrite Zmod_mod;
repeat rewrite Zmult_mod_idemp_l;
repeat rewrite Zmult_mod_idemp_r;
repeat rewrite Zplus_mod_idemp_l;
repeat rewrite Zplus_mod_idemp_r).