Libelectrod.Simplify1SourceSimplifies Electrod models.
EXPECTED TO BE BE DONE AFTER CHECKING ARITIES.
val create_new_vars_and_assoc_list_and_comp_fml :
Ast.var Containers.List.t ->
int option ->
Ast.var list
* (Var.t, ('a, Ast.ident) Gen_goal.prim_exp) CCList.Assoc.t
* ('a, Ast.ident) Gen_goal.prim_fml