Skip to content

Commit

Permalink
Update to Coq 8.9
Browse files Browse the repository at this point in the history
  • Loading branch information
damien rouhling committed Jul 5, 2019
1 parent a8231df commit 97a214a
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 5 deletions.
4 changes: 2 additions & 2 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -3,8 +3,8 @@
This repository contains a formal proof in Coq of LaSalle's invariance
principle.

It requires Coq v8.6, the Mathematical Components library v1.6.1 and the
Coquelicot library v3.0.0. It also depends on Daniel Schepler's proof of [Zorn's
It requires Coq v8.9.1, the Mathematical Components library v1.9.0 and the
Coquelicot library v3.0.2. It also depends on Daniel Schepler's proof of [Zorn's
lemma](https://github.com/coq-contribs/zorns-lemma).

It is organised as follows:
Expand Down
6 changes: 3 additions & 3 deletions tychonoff.v
Original file line number Diff line number Diff line change
Expand Up @@ -706,15 +706,15 @@ split=> [Aop|].
move=> [[J f] /= [finIf BeqUf]] v Av.
have : B (v ord0) by rewrite /B row_simpl.
rewrite BeqUf => - [j _ fjv]; have [K [toI [g [gop fjeqIg]]]] := finIf j.
suff [e ve_fj] : locally (v ord0) (f j).
suff [e ve_fj] : locally (v ord0 : _ -> _) (f j).
exists e => w ve_w; rewrite -[w]row_simpl -[A _]/(B _) BeqUf; exists j => //.
exact: ve_fj.
have := fjv; rewrite fjeqIg => Igv.
have v_g : forall k, locally (v ord0) (g k).
have v_g : forall k, locally (v ord0 : _ -> _) (g k).
move=> k; have [C [Cop geqCpreim]] := gop k.
rewrite geqCpreim; apply: locally_preimage (@continuous_component _ _ _ _) _.
by apply: Cop; have := Igv k; rewrite geqCpreim; apply.
have {v_g} v_g : forall k, {ek : posreal | ball (v ord0) ek `<=` g k}.
have {v_g} v_g : forall k, {ek : posreal | ball (v ord0 : _ -> _) ek `<=` g k}.
by move=> k; apply: constructive_indefinite_description; apply: v_g.
have := mem_enum K; case: (enum K)=> [K0|k l kleqK].
by exists (mkposreal _ Rlt_0_1)=> ?? i; have := K0 i.
Expand Down

0 comments on commit 97a214a

Please sign in to comment.