anchor.diff:              let! r' = dest_intconst r
               return! CONJUNCT2(INT_DIVMOD_CONV l' r')
           }
  -        |> Choice.mapError (fun e -> nestedFailure e "INT_MOD_CONV")
  -        );;
  +        |> Choice.mapError (fun e -> nestedFailure e "INT_MOD_CONV"));;
   
   /// Performs one arithmetic or relational operation on integer literals of type :int.
   let INT_RED_CONV = 
  
positive.code:                    |> THENC <| RATOR_CONV(RATOR_CONV(RAND_CONV NUM_EVEN_CONV))
                     |> THENC <| GEN_REWRITE_CONV I [tth]
                     |> THENC <| (fun tm -> 
                         if Choice.get <| rator tm = neg_tm
                         then RAND_CONV (RAND_CONV NUM_EXP_CONV) tm
                         else RAND_CONV NUM_EXP_CONV tm))
  
  /// Conversion to produce absolute value of an integer literal of type :int.
  let INT_ABS_CONV = 
  
negative.code:     let int_ty = (parse_type @"int")
      let INT_POLYEQ_CONV = GEN_REWRITE_CONV I [GSYM INT_SUB_0]
                            |> THENC <| LAND_CONV INT_POLY_CONV
  
      let ISOLATE_VARIABLE = 
          // CAUTION: change from value to function to delay System.Exception
          let pth() = INT_ARITH(parse_term @"!a x. a = &0 <=> x = x + a")
  