Skip to content

Commit

Permalink
Now works ith 8.4pl4
Browse files Browse the repository at this point in the history
  • Loading branch information
Bas Spitters committed Apr 3, 2014
1 parent 6177545 commit d82c441
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions ode/metric.v
Expand Up @@ -13,7 +13,7 @@ Import peano_naturals.
Require Import CRGeometricSum.
Import Qround Qpower Qinf.notations.

Set Printing Coercions.
(* Set Printing Coercions.*)

Definition ext_plus {A} `{Plus B} : Plus (A -> B) := λ f g x, f x + g x.
Hint Extern 10 (Plus (_ -> _)) => apply @ext_plus : typeclass_instances.
Expand Down Expand Up @@ -492,7 +492,7 @@ Lemma lip_modulus_pos (L e : Q) : 0 ≤ L -> 0 < e -> 0 < lip_modulus L e.
Proof.
intros L_nonneg e_pos. unfold lip_modulus.
destruct (decide (L = 0)) as [A1 | A1]; [apply I |].
apply neq_symm in A1.
apply not_symmetry in A1.
change (0 < e / L). (* Changes from Qinf, which is not declared as ordered ring, to Q *)
assert (0 < L) by now apply QOrder.le_neq_lt. Qauto_pos.
Qed.
Expand Down

0 comments on commit d82c441

Please sign in to comment.