Skip to content
Snippets Groups Projects
Commit d7732dcb authored by Robbert Krebbers's avatar Robbert Krebbers
Browse files

Fix compilation with Coq 8.10 (which has a weaker `lia`).

parent 9782eda9
No related branches found
No related tags found
No related merge requests found
...@@ -148,7 +148,8 @@ Section seqZ. ...@@ -148,7 +148,8 @@ Section seqZ.
Proof. Proof.
intros. unfold seqZ. rewrite Z2Nat.inj_add, seq_app, fmap_app by done. intros. unfold seqZ. rewrite Z2Nat.inj_add, seq_app, fmap_app by done.
f_equal. rewrite Nat.add_comm, <-!fmap_add_seq, <-list_fmap_compose. f_equal. rewrite Nat.add_comm, <-!fmap_add_seq, <-list_fmap_compose.
apply list_fmap_ext; naive_solver auto with lia. apply list_fmap_ext; [|done]; intros j; simpl.
rewrite Nat2Z.inj_add, Z2Nat.id by done. lia.
Qed. Qed.
Lemma seqZ_S m i : seqZ m (S i) = seqZ m i ++ [m + i]. Lemma seqZ_S m i : seqZ m (S i) = seqZ m i ++ [m + i].
...@@ -162,7 +163,7 @@ Section seqZ. ...@@ -162,7 +163,7 @@ Section seqZ.
Proof. Proof.
rewrite elem_of_list_lookup. rewrite elem_of_list_lookup.
setoid_rewrite lookup_seqZ. split; [naive_solver lia|]. setoid_rewrite lookup_seqZ. split; [naive_solver lia|].
exists (Z.to_nat (k - m)). lia. exists (Z.to_nat (k - m)). rewrite Z2Nat.id by lia. lia.
Qed. Qed.
Lemma Forall_seqZ (P : Z Prop) m n : Lemma Forall_seqZ (P : Z Prop) m n :
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment