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

Mark Bool.implb as native for the Coq driver.

parent 3afa7e59
......@@ -43,6 +43,7 @@ theory bool.Bool
syntax function orb "(orb %1 %2)"
syntax function xorb "(xorb %1 %2)"
syntax function notb "(negb %1)"
syntax function implb "(implb %1)"
end
......
......@@ -164,13 +164,6 @@ Definition neg_post(x:floating_point.DoubleFormat.double)
((value res) = (-(value x))%R) /\ (((exact res) = (-(exact 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 *)
Definition lt(x:floating_point.DoubleFormat.double)
(y:floating_point.DoubleFormat.double): Prop := ((value x) < (value y))%R.
......@@ -180,8 +173,3 @@ Definition gt(x:floating_point.DoubleFormat.double)
(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)
((value res) = (-(value x))%R) /\ (((exact res) = (-(exact 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 *)
Definition lt(x:floating_point.SingleFormat.single)
(y:floating_point.SingleFormat.single): Prop := ((value x) < (value y))%R.
......@@ -188,8 +181,3 @@ Definition gt(x:floating_point.SingleFormat.single)
(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