anchor.diff:  let TREAL_MUL_ASSOC = 
       prove((parse_term @"!x y z. (x treal_mul (y treal_mul z)) treal_eq
              ((x treal_mul y) treal_mul z)"),
  -          SIMP_TAC [FORALL_PAIR_THM
  -                    TREAL_EQ_AP
  -                    treal_mul
  -                    HREAL_ADD_LDISTRIB
  -                    HREAL_ADD_RDISTRIB
  -                    GSYM HREAL_MUL_ASSOC
  +          SIMP_TAC [FORALL_PAIR_THM;
  +                    TREAL_EQ_AP;
  +                    treal_mul;
  +                    HREAL_ADD_LDISTRIB;
  +                    HREAL_ADD_RDISTRIB;
  +                    GSYM HREAL_MUL_ASSOC;
                       HREAL_ADD_AC])
   
   let TREAL_MUL_LID = 
  
positive.code: (* ------------------------------------------------------------------------- *)
  (* Define operations on representatives of signed reals.                     *)
  (* ------------------------------------------------------------------------- *)
  let treal_of_num = new_definition(parse_term @"treal_of_num n = (&n, &0)")
  
  let treal_neg = 
  
negative.code:             real_le_antisym, real_le_trans, real_le_total, real_le_ladd_imp, 
              real_le_mul, real_inv_0, real_mul_linv, real_of_num_eq, real_of_num_le, 
              real_of_num_add, real_of_num_mul
      | _ -> 
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case.",
          Choice.failwith "realFuncs: Unhandled case."
  
  parse_as_prefix "--"
  parse_as_infix("/", (22, "left"))
  