(FL)
(OR-DIST-INDUCT)
(LOG-INDUCT
 (6 1 (:REWRITE FL-OF-EVEN/2))
 (5 5 (:REWRITE DEFAULT-*-2))
 (5 5 (:REWRITE DEFAULT-*-1))
 (4 4 (:REWRITE NON-INTEGERP-<-INTEGERP))
 (4 4 (:REWRITE INTEGERP-<-NON-INTEGERP))
 (4 4 (:REWRITE DEFAULT-<-2))
 (4 4 (:REWRITE DEFAULT-<-1))
 (3 1 (:REWRITE FL-OF-ODD/2))
 (1 1 (:REWRITE FL-OF-NON-RATIONAL))
 (1 1 (:REWRITE FL-MINUS-GEN))
 (1 1 (:REWRITE FL-INT))
 (1 1 (:REWRITE A10))
 )
(LOGAND-THREE-ARGS-INDUCT
 (60 10 (:REWRITE FL-OF-EVEN/2))
 (32 32 (:REWRITE DEFAULT-*-2))
 (32 32 (:REWRITE DEFAULT-*-1))
 (30 10 (:REWRITE FL-OF-ODD/2))
 (15 6 (:REWRITE DEFAULT-<-1))
 (10 10 (:REWRITE FL-OF-NON-RATIONAL))
 (10 10 (:REWRITE FL-MINUS-GEN))
 (10 10 (:REWRITE FL-INT))
 (10 10 (:REWRITE A10))
 (6 6 (:REWRITE NON-INTEGERP-<-INTEGERP))
 (6 6 (:REWRITE INTEGERP-<-NON-INTEGERP))
 (6 6 (:REWRITE DEFAULT-<-2))
 (5 3 (:REWRITE DEFAULT-UNARY-MINUS))
 (5 1 (:REWRITE FL-STRONG-MONOTONE))
 (2 2 (:REWRITE DEFAULT-+-2))
 (2 2 (:REWRITE DEFAULT-+-1))
 )
(LOG-INDUCT-ALLOWS-NEGATIVES
 (60 10 (:REWRITE FL-OF-EVEN/2))
 (32 32 (:REWRITE DEFAULT-*-2))
 (32 32 (:REWRITE DEFAULT-*-1))
 (30 10 (:REWRITE FL-OF-ODD/2))
 (10 10 (:REWRITE FL-OF-NON-RATIONAL))
 (10 10 (:REWRITE FL-MINUS-GEN))
 (10 10 (:REWRITE FL-INT))
 (10 10 (:REWRITE A10))
 (7 4 (:REWRITE DEFAULT-<-1))
 (5 1 (:REWRITE FL-STRONG-MONOTONE))
 (4 4 (:REWRITE NON-INTEGERP-<-INTEGERP))
 (4 4 (:REWRITE INTEGERP-<-NON-INTEGERP))
 (4 4 (:REWRITE DEFAULT-<-2))
 (4 2 (:REWRITE DEFAULT-UNARY-MINUS))
 (2 2 (:REWRITE DEFAULT-+-2))
 (2 2 (:REWRITE DEFAULT-+-1))
 )
(OP-DIST-INDUCT)
(NATP-INDUCT)
