NotEquivalent

This commit is contained in:
Tibo De Peuter 2025-05-05 22:14:10 +02:00
parent 1179e6a29b
commit cdf2513e96
Signed by: tdpeuter
GPG key ID: 38297DE43F75FFE2
4 changed files with 12 additions and 1 deletions

View file

@ -87,7 +87,7 @@ open class TermsGrammar : Tokens() {
t2.fold(t1) { acc, (op, term) -> CompoundTerm(Atom(op), listOf(acc, term)) }
}
protected val op700: Parser<String> by (equivalent or equals or notEquals or isOp) use { text }
protected val op700: Parser<String> by (equivalent or notEquivalent or equals or notEquals or isOp) use { text }
protected val term700: Parser<Term> by (term500 * optional(op700 * term500)) use {
if (t2 == null) t1 else CompoundTerm(Atom(t2!!.t1), listOf(t1, t2!!.t2))
}