MAJ terminée. Nous sommes passés en version 14.6.2 . Pour consulter les "releases notes" associées c'est ici :

https://about.gitlab.com/releases/2022/01/11/security-release-gitlab-14-6-2-released/
https://about.gitlab.com/releases/2022/01/04/gitlab-14-6-1-released/

Commit 60b61466 authored by Guillaume Melquiond's avatar Guillaume Melquiond
Browse files

Avoid some spurious blank lines in the Coq printer.

parent c7756ed4
......@@ -58,4 +58,3 @@ Proof.
now intros [|] [|].
Qed.
......@@ -178,4 +178,3 @@ Definition lt (x:floating_point.DoubleFormat.double)
Definition gt (x:floating_point.DoubleFormat.double)
(y:floating_point.DoubleFormat.double): Prop := ((value y) < (value x))%R.
......@@ -10,7 +10,6 @@ Definition double : Type.
exact (t 53 1024).
Defined.
Global Instance double_WhyType : WhyType double.
Proof.
apply t_WhyType.
......
......@@ -13,4 +13,3 @@ Inductive mode :=
Axiom mode_WhyType : WhyType mode.
Existing Instance mode_WhyType.
......@@ -189,4 +189,3 @@ Definition lt (x:floating_point.SingleFormat.single)
Definition gt (x:floating_point.SingleFormat.single)
(y:floating_point.SingleFormat.single): Prop := ((value y) < (value x))%R.
......@@ -10,7 +10,6 @@ Definition single : Type.
exact (t 24 128).
Defined.
Global Instance single_WhyType : WhyType single.
Proof.
apply t_WhyType.
......
......@@ -33,4 +33,3 @@ Lemma Abs_pos : forall (x:Z), (0%Z <= (Zabs x))%Z.
exact Zabs_pos.
Qed.
......@@ -141,4 +141,3 @@ apply Zmult_le_0_compat with (1 := Hy).
now apply Zlt_le_weak.
Qed.
......@@ -18,4 +18,3 @@ simpl in H1.
omega.
Qed.
......@@ -191,4 +191,3 @@ ring.
auto with zarith.
Qed.
......@@ -112,5 +112,4 @@ rewrite IHn.
now rewrite Assoc, <- (Assoc y), (Comm y), 2!Assoc.
Qed.
End Exponentiation.
......@@ -160,4 +160,3 @@ Proof.
exact Zmult_le_compat_r.
Qed.
......@@ -78,4 +78,3 @@ intros x y _.
apply Zmin_comm.
Qed.
......@@ -79,4 +79,3 @@ rewrite 3!power_is_exponentiation ; auto with zarith.
apply Power_mult2 ; auto with zarith.
Qed.
......@@ -82,4 +82,3 @@ apply in_split.
now apply Mem.mem_std.
Qed.
......@@ -19,4 +19,3 @@ Definition tl {a:Type} {a_WT:WhyType a} (l:(list a)): (option (list a)) :=
| (cons _ t) => (Some t)
end.
......@@ -44,4 +44,3 @@ generalize (Length_nonnegative t).
omega.
Qed.
......@@ -3,9 +3,6 @@
Require Import BuiltIn.
Require BuiltIn.
Global Instance list_WhyType : forall T {T_WT : WhyType T}, WhyType (list T).
split.
apply nil.
......
......@@ -11,7 +11,6 @@ Fixpoint mem {a:Type} {a_WT:WhyType a} (x:a) (l:(list a)) {struct l}: Prop :=
| (cons y r) => (x = y) \/ (mem x r)
end.
Lemma mem_std :
forall {a:Type} {a_WT:WhyType a} (x:a) (l:list a),
mem x l <-> List.In x l.
......
......@@ -34,4 +34,3 @@ generalize (Zeq_bool_if n 0).
now case Zeq_bool.
Qed.
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