Mark Bool.implb as native for the Coq driver.

drivers/coq-common.gen

@@ -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
 

lib/coq/floating_point/Double.v

@@ -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.
- *)
-*)

lib/coq/floating_point/Single.v

@@ -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.
- *)
-*)