File tree Expand file tree Collapse file tree 3 files changed +5
-5
lines changed
Expand file tree Collapse file tree 3 files changed +5
-5
lines changed Original file line number Diff line number Diff line change 4242 (operands (first-operand exp ))))
4343 exp ))
4444
45- (defun addiction (exp p)
46- " Addiction in inference rule ::
45+ (defun addition (exp p)
46+ " Addition in inference rule ::
4747 p => (v p q)"
4848 (make-disjunction exp p))
4949
Original file line number Diff line number Diff line change 1010 # :modus-ponens ; ; inferences
1111 # :modus-tollens
1212 # :syllogism-disjunctive
13- # :addiction
13+ # :addition
1414 # :conjunction
1515 # :simplification-first
1616 # :simplification-second
Original file line number Diff line number Diff line change 1919 ' (=> X Z))
2020 " Inference: SYLLOGISM-HYPOTHETICAL" )
2121
22- (ok (equal (addiction ' p ' q)
22+ (ok (equal (addition ' p ' q)
2323 ' (v p q))
24- " Inference: ADDICTION " )
24+ " Inference: ADDITION " )
2525
2626 (ok (equal (conjunction ' (=> p q) ' p)
2727 ' (^ (=> P Q) P))
You can’t perform that action at this time.
0 commit comments