This commit is contained in:
Clay Sweetser 2014-05-26 07:24:57 -04:00
commit ec23f5ec0a

View file

@ -484,7 +484,7 @@ proc factImplies(fact, prop: PNode): TImplication =
# == not a or not b == not (a and b) # == not a or not b == not (a and b)
let arg = fact.sons[1] let arg = fact.sons[1]
case arg.getMagic case arg.getMagic
of mIsNil: of mIsNil, mEqRef:
return ~factImplies(arg, prop) return ~factImplies(arg, prop)
of mAnd: of mAnd:
# not (a and b) means not a or not b: # not (a and b) means not a or not b: