simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-05 19:00:33 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(base/form): fix CNF for equiv

Browse source
This commit is contained in:
Simon Cruanes 2022-09-10 21:48:51 -04:00
parent fd39a414c3
commit c9127c6cd7
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/base/Form.ml
View file

@ -49,7 +49,7 @@ let view (t : T.t) : T.t view =
| E_const { Const.c_view = T.C_false; _ }, [] -> B_bool false
| E_const { Const.c_view = T.C_not; _ }, [ a ] -> B_not a
| E_const { Const.c_view = T.C_eq; _ }, [ _ty; a; b ] ->
if Ty.is_bool a then
if Ty.is_bool (Term.ty a) then
B_equiv (a, b)
else
B_eq (a, b)