Commit 7780bfbb authored by Martin Clochard's avatar Martin Clochard Committed by Guillaume Melquiond

inline_trivial: terms containing epsilons are non-trivial

parent 28854bb9
......@@ -104,6 +104,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