Commit 46d2aaa5 authored by Johannes Kanig's avatar Johannes Kanig
Browse files

close_epsilon: fixed use of on_theory

parent 3f90cabb
......@@ -82,7 +82,10 @@ and rewriteF f = f_map rewriteT rewriteF f
let close d = [decl_map rewriteT rewriteF d]
let close_epsilon =
Trans.on_theory highord_theory (fun _ -> Trans.decl close None)
let td = create_null_clone highord_theory in
Trans.on_theory highord_theory (fun tds ->
if Stdecl.mem td tds.tds_set then Trans.decl close None
else Trans.identity)
let () = Trans.register_transform "close_epsilon" close_epsilon
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment