Commit 1699907b authored by POTTIER Francois's avatar POTTIER Francois

Added an assertion that shows [prefix == prefix' && suffix == suffix'].

It passes.
This will allow some serious simplification.
parent b5fb13e4
......@@ -143,6 +143,7 @@ let inline grammar =
let action', (used1', used2') =
Action.rename renaming_env phi pb.action
in
assert (prefix == prefix' && suffix == suffix');
let prefix = if used1 || used1' then prefix' else prefix in
let suffix = if used2 || used2' then suffix' else suffix 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