Commit f2886c41 authored by Sylvain Dailler's avatar Sylvain Dailler
Browse files

Make proof obsolete when shapes are different

Even when checksums are equal, we check that the shape are oks. This
allows to keep examples with up to date shape.
parent 6e0d9701
......@@ -910,7 +910,8 @@ module Pairing(Old: S)(New: S) = struct
let oldi = Hashtbl.find old_checksums c in
let oldg = table.table_old.(oldi) in
Hashtbl.remove old_checksums c;
result.(new_goal_index newg) <- (newg, Some (oldg, false))
let obs = Old.shape oldg <> New.shape newg in
result.(new_goal_index newg) <- (newg, Some (oldg, obs))
with Not_found ->
acc := mk_node table (New newi) :: !acc
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