induction n; intuition; simpl in *; intuition.
eapply ratMult_eqRat_compat; eauto.
Qed.

(* Specifications: *)
Lemma expRat_rel_left_total : forall (r1 : Rat -> Prop) n,
(exists r1', r1 r1') ->
(forall x1 x2, r1 x1 -> r1 x2 -> x1 == x2) ->
exists r3, expRat_rel r1 n r3.