Hint Rewrite
same_denom_add_1
same_denom_add_2
same_denom_add_3
same_denom_min_1
same_denom_min_2
same_denom_min_3
same_denom_mul_1
same_denom_mul_2
same_denom_mul_3
same_denom_div_1
same_denom_div_2
same_denom_div_3
: same_denom.

(* Specifications: *)
Lemma simp_frac_1: forall a : F,
a<>0 ->
a/a = 1.
Lemma simp_frac_2: forall a : F,
a<>0 ->
a * Finv a = 1.
Lemma simp_frac_3: forall a : F,
a<>0 ->
a * - Finv a = - (1).
Lemma simp_frac_4: forall a : F,
a<>0 ->
(-a) * - Finv a = 1.
Lemma simp_frac_5: forall a : F,
a<>0 ->
(-a) / a = - (1).
Lemma simp_frac_6: forall a : F,
-a<>0 ->
a / -a = - (1).
Lemma simp_frac_7: forall a : F,
-a<>0 ->
(-a) / -a = 1.
Lemma simp_frac_8: forall a b c : F,
a*c<>0 ->
(a*b) / (a*c) = b/c.
Lemma simp_frac_9: forall a b c : F,
c*a<>0 ->
(b*a) / (c*a) = b/c.
Lemma simp_frac_10 : forall a, a<>0 ->
0/a=0.
Lemma simp_frac_11 : forall a, a<>0 ->
a*(1/a)=1.
Lemma simp_frac_12: forall a b : F,
b<>0 ->
(a*b) / b = a.
Lemma simp_frac_13: forall a b : F,
a<>0 ->
(a*b) / a = b.
Lemma simp_frac_14: forall a b : F,
b<>0 ->
(-a) / b = -(a/b).
Lemma simp_frac_15: forall a : F,
a / 1 = a.
Lemma simp_frac_16: forall a b : F,
-b<>0 -> a/(-b) = - (a/b).
Lemma simp_frac_16_inv : forall a, -a<>0 -> a<>0.
Hint Rewrite
simp_frac_1
simp_frac_2
simp_frac_3
simp_frac_4
simp_frac_5
simp_frac_6
simp_frac_7
simp_frac_8
simp_frac_9
simp_frac_10
simp_frac_11
simp_frac_12
simp_frac_13
simp_frac_14
simp_frac_15
simp_frac_16
: field_simplification.