diff options
| -rw-r--r-- | toplevel/command.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/command.ml b/toplevel/command.ml index 0a2f9c3c39..095bf5300f 100644 --- a/toplevel/command.ml +++ b/toplevel/command.ml @@ -926,7 +926,7 @@ let do_program_recursive local fixkind fixl ntns = in let (fixnames,fixdefs,fixtypes) = fix in let fiximps = List.map pi2 info in - let fixdefs = List.map Option.get fixdefs in + let fixdefs = List.map out_def fixdefs in let defs = List.map4 collect_evars fixnames fixdefs fixtypes fiximps in let () = if isfix then begin let possible_indexes = List.map compute_possible_guardness_evidences info in |