Commit 4665915e authored by Guillaume Melquiond's avatar Guillaume Melquiond
Browse files

Mark Bool.implb as native for the Coq driver.

parent 3afa7e59
...@@ -43,6 +43,7 @@ theory bool.Bool ...@@ -43,6 +43,7 @@ theory bool.Bool
syntax function orb "(orb %1 %2)" syntax function orb "(orb %1 %2)"
syntax function xorb "(xorb %1 %2)" syntax function xorb "(xorb %1 %2)"
syntax function notb "(negb %1)" syntax function notb "(negb %1)"
syntax function implb "(implb %1)"
end end
......
...@@ -164,13 +164,6 @@ Definition neg_post(x:floating_point.DoubleFormat.double) ...@@ -164,13 +164,6 @@ Definition neg_post(x:floating_point.DoubleFormat.double)
((value res) = (-(value x))%R) /\ (((exact res) = (-(exact x))%R) /\ ((value res) = (-(value x))%R) /\ (((exact res) = (-(exact x))%R) /\
((model res) = (-(model x))%R)). ((model res) = (-(model x))%R)).
(* Why3 assumption *)
Definition implb(x:bool) (y:bool): bool := match (x,
y) with
| (true, false) => false
| (_, _) => true
end.
(* Why3 assumption *) (* Why3 assumption *)
Definition lt(x:floating_point.DoubleFormat.double) Definition lt(x:floating_point.DoubleFormat.double)
(y:floating_point.DoubleFormat.double): Prop := ((value x) < (value y))%R. (y:floating_point.DoubleFormat.double): Prop := ((value x) < (value y))%R.
...@@ -180,8 +173,3 @@ Definition gt(x:floating_point.DoubleFormat.double) ...@@ -180,8 +173,3 @@ Definition gt(x:floating_point.DoubleFormat.double)
(y:floating_point.DoubleFormat.double): Prop := ((value y) < (value x))%R. (y:floating_point.DoubleFormat.double): Prop := ((value y) < (value x))%R.
(* (* Unused content named double
exact (t 53 1024).
Defined.
*)
*)
...@@ -172,13 +172,6 @@ Definition neg_post(x:floating_point.SingleFormat.single) ...@@ -172,13 +172,6 @@ Definition neg_post(x:floating_point.SingleFormat.single)
((value res) = (-(value x))%R) /\ (((exact res) = (-(exact x))%R) /\ ((value res) = (-(value x))%R) /\ (((exact res) = (-(exact x))%R) /\
((model res) = (-(model x))%R)). ((model res) = (-(model x))%R)).
(* Why3 assumption *)
Definition implb(x:bool) (y:bool): bool := match (x,
y) with
| (true, false) => false
| (_, _) => true
end.
(* Why3 assumption *) (* Why3 assumption *)
Definition lt(x:floating_point.SingleFormat.single) Definition lt(x:floating_point.SingleFormat.single)
(y:floating_point.SingleFormat.single): Prop := ((value x) < (value y))%R. (y:floating_point.SingleFormat.single): Prop := ((value x) < (value y))%R.
...@@ -188,8 +181,3 @@ Definition gt(x:floating_point.SingleFormat.single) ...@@ -188,8 +181,3 @@ Definition gt(x:floating_point.SingleFormat.single)
(y:floating_point.SingleFormat.single): Prop := ((value y) < (value x))%R. (y:floating_point.SingleFormat.single): Prop := ((value y) < (value x))%R.
(* (* Unused content named single
exact (t 24 128).
Defined.
*)
*)
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