None, Some "cic:/Coq/Arith/Minus/mult.con"))
:: List.map acic2cexpr args));;
+Hashtbl.add symbol_table "cic:/Coq/Reals/Rdefinitions/Rminus.con"
+ (fun aid sid args acic2cexpr ->
+ Appl
+ (Some aid, (Symbol (Some sid, "minus",
+ None, Some "cic:/Coq/Reals/Rdefinitions/Rminus.con"))
+ :: List.map acic2cexpr args));;
+
+(* div *)
+Hashtbl.add symbol_table "cic:/Coq/Reals/Rdefinitions/Rdiv.con"
+ (fun aid sid args acic2cexpr ->
+ Appl
+ (Some aid, (Symbol (Some sid, "div",
+ None, Some "cic:/Coq/Reals/Rdefinitions/Rdiv.con"))
+ :: List.map acic2cexpr args));;
+