Skip to content

Commit

Permalink
Update to Coq 8.6, Ssreflect 1.6.1
Browse files Browse the repository at this point in the history
  • Loading branch information
gstew5 committed Aug 30, 2017
1 parent 05ed9d5 commit 47c7317
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 8 deletions.
6 changes: 1 addition & 5 deletions numerics.v
Expand Up @@ -1030,11 +1030,7 @@ Section Z_to_int_lemmas.
Proof.
rewrite /Z_to_int.
case: r.
{ case: s => //.
move => p H; move: (Pos2Z.neg_is_nonpos p).
move/Zle_not_lt => H2.
move: (Zlt_neg_0 p) => H3.
omega. }
{ case: s => //. }
{ case: s.
{ move => p H.
move: (Pos2Z.is_pos p) => H2.
Expand Down
8 changes: 5 additions & 3 deletions potential.v
Expand Up @@ -123,6 +123,7 @@ Section BestResponseDynamics.
case=> H0 H1 H2 H3; inversion 1; subst.
rename H5 into Hmoves.
rename H6 into H5.
rename t'0 into t'.
have Hx: Phi t' < Phi t.
{ subst t'.
by apply: (cost_Phi_lt Hmoves).
Expand All @@ -135,8 +136,8 @@ Section BestResponseDynamics.
{ apply/eqP.
by rewrite ltr_eqF.
}
move: H7 H8 H9; rewrite !ler_eqVlt; case/orP; first by move/eqP=> <-.
move => H9 _ H10.
move: H7 H9; rewrite !ler_eqVlt; case/orP; first by move/eqP=> <-.
move => H9 H10.
have H11: Phi t' < Phi t'.
{ apply: ler_lt_trans.
apply: H8'.
Expand All @@ -150,7 +151,7 @@ Section BestResponseDynamics.
case: (s t') H6=> //= _.
rewrite (mem_enum sT _).
move=> He _; split.
{ by rewrite -H8 in He; rewrite He. }
{ by rewrite He. }
move=> t0; case/orP; first by move/eqP=> <-.
move=> H6.
apply: ltrW.
Expand All @@ -165,6 +166,7 @@ Section BestResponseDynamics.
Proof.
rewrite /halted=> H0; inversion 1; subst.
move: (H0 i)=> H4.
rename t'0 into t'.
generalize (ltr_le_asym (cost i t') (cost i t)).
by subst t'; rewrite H3 H4.
Qed.
Expand Down

0 comments on commit 47c7317

Please sign in to comment.