Commit 0f5afce8 authored by Martin Clochard's avatar Martin Clochard

inline_trivial: terms containing epsilons are non-trivial

parent 13028e76
......@@ -107,6 +107,7 @@ let trivial tl =
let add vs t = match t.t_node with
| Tvar v when Mvs.mem v vs -> raise Util.FoldSkip
| Tvar v -> Svs.add v vs
| Teps _ -> raise Util.FoldSkip
| _ when t_closed t -> vs
| _ -> raise Util.FoldSkip
in
......
Markdown is supported
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