| author | Walther Neuper <neuper@ist.tugraz.at> |
| Thu, 12 Aug 2010 15:03:34 +0200 | |
| branch | isac-from-Isabelle2009-2 |
| changeset 37913 | 20e3616b2d9c |
| parent 105 | 216d6ed87399 |
| permissions | -rw-r--r-- |
| lcp@105 | 1 |
Gate2 = FOL + |
| lcp@105 | 2 |
consts "~&" :: "[o,o] => o" (infixl 35) |
| lcp@105 | 3 |
"#" :: "[o,o] => o" (infixl 30) |
| lcp@105 | 4 |
If :: "[o,o,o] => o" ("if _ then _ else _")
|
| lcp@105 | 5 |
rules nand_def "P ~& Q == ~(P & Q)" |
| lcp@105 | 6 |
xor_def "P # Q == P & ~Q | ~P & Q" |
| lcp@105 | 7 |
If_def "if P then Q else R == P&Q | ~P&R" |
| lcp@105 | 8 |
end |