Commit 5a4efb25 authored by Guillaume Melquiond's avatar Guillaume Melquiond
Browse files

Fix compilation on Coq 8.3.

parent 8b5baf03
...@@ -19,7 +19,7 @@ Proof. ...@@ -19,7 +19,7 @@ Proof.
intros a a_WT l. intros a a_WT l.
induction l. induction l.
easy. easy.
change (1 + length l = Z.of_nat (S (List.length l)))%Z. change (1 + length l = Z_of_nat (S (List.length l)))%Z.
now rewrite inj_S, Zplus_comm, IHl. now rewrite inj_S, Zplus_comm, IHl.
Qed. Qed.
...@@ -39,6 +39,7 @@ Proof. ...@@ -39,6 +39,7 @@ Proof.
intros a a_WT [|h t] ; split ; try easy. intros a a_WT [|h t] ; split ; try easy.
unfold length. fold length. unfold length. fold length.
intros H. intros H.
exfalso.
generalize (Length_nonnegative t). generalize (Length_nonnegative t).
omega. omega.
Qed. Qed.
......
...@@ -19,6 +19,8 @@ easy. ...@@ -19,6 +19,8 @@ easy.
simpl. simpl.
generalize (Zeq_bool_if (i + 1) 0). generalize (Zeq_bool_if (i + 1) 0).
case Zeq_bool. case Zeq_bool.
intro H.
exfalso.
omega. omega.
intros _. intros _.
simpl in h1. simpl in h1.
......
...@@ -41,6 +41,7 @@ generalize (Zeq_bool_if i 0). ...@@ -41,6 +41,7 @@ generalize (Zeq_bool_if i 0).
case Zeq_bool. case Zeq_bool.
intros H'. intros H'.
rewrite H' in H. rewrite H' in H.
exfalso.
generalize (Length.Length_nonnegative q). generalize (Length.Length_nonnegative q).
omega. omega.
intros _. intros _.
......
...@@ -49,6 +49,7 @@ simpl. ...@@ -49,6 +49,7 @@ simpl.
generalize (Zeq_bool_if i 0). generalize (Zeq_bool_if i 0).
case Zeq_bool. case Zeq_bool.
intros Hi'. intros Hi'.
exfalso.
generalize (Length.Length_nonnegative l1). generalize (Length.Length_nonnegative l1).
omega. omega.
intros _. intros _.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment