diff options
| author | Pierre-Marie Pédrot | 2017-08-02 01:15:55 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-08-02 01:16:52 +0200 |
| commit | a5419f01eb48b1cb3f5dee5482263530ad075ef4 (patch) | |
| tree | 965f2c9a03b133f1af5f45f7a95d3d9514fae266 /src | |
| parent | dd1343eb2680c202cf059e3db5788904b7d79782 (diff) | |
Fixup reification of egeneralize.
Diffstat (limited to 'src')
| -rw-r--r-- | src/tac2stdlib.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/tac2stdlib.ml b/src/tac2stdlib.ml index 8fdf9c6d8c..5c8337d41a 100644 --- a/src/tac2stdlib.ml +++ b/src/tac2stdlib.ml @@ -189,7 +189,7 @@ end let () = define_prim1 "tac_egeneralize" begin fun cl -> let cast = function | ValBlk (0, [| c; occs; na |]) -> - ((to_occurrences Value.to_int c, Value.to_constr c), to_name na) + ((to_occurrences Value.to_int occs, Value.to_constr c), to_name na) | _ -> assert false in let cl = Value.to_list cast cl in |