fix bug in proof emission

This commit is contained in:
Simon Cruanes 2021-10-21 20:53:06 -04:00
parent 84f7a39423
commit a871192c5e
No known key found for this signature in database
GPG key ID: 4AC01D0849AA62B6

View file

@ -191,6 +191,7 @@ let rec emit_term_ (self:t) (t:Term.t) : term_id =
in in
let id = alloc_id self in let id = alloc_id self in
Term.Tbl.add self.map_term t id;
emit_step_ self {id; view}; emit_step_ self {id; view};
id id