commit
be534279da
2 changed files with 15 additions and 1 deletions
|
|
@ -625,7 +625,7 @@ proc factImplies(fact, prop: PNode): TImplication =
|
|||
# == not a or not b == not (a and b)
|
||||
let arg = fact.sons[1]
|
||||
case arg.getMagic
|
||||
of mIsNil:
|
||||
of mIsNil, mEqRef:
|
||||
return ~factImplies(arg, prop)
|
||||
of mAnd:
|
||||
# not (a and b) means not a or not b:
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue