let a, b be set ; :: thesis: ( a <> b implies Terminals (SingleGrammar a,b) = {b} )
assume A1:
a <> b
; :: thesis: Terminals (SingleGrammar a,b) = {b}
set E = SingleGrammar a,b;
A2:
( the carrier of (SingleGrammar a,b) = {a,b} & the InitialSym of (SingleGrammar a,b) = a & the Rules of (SingleGrammar a,b) = {[a,<*b*>]} & Terminals (SingleGrammar a,b) = { s where s is Symbol of (SingleGrammar a,b) : for n being FinSequence holds not s ==> n } )
by Def8;
then reconsider x = a, y = b as Symbol of (SingleGrammar a,b) by TARSKI:def 2;
[x,<*y*>] in the Rules of (SingleGrammar a,b)
by A2, TARSKI:def 1;
then A3:
x ==> <*y*>
by Def1;
thus
Terminals (SingleGrammar a,b) c= {b}
:: according to XBOOLE_0:def 10 :: thesis: {b} c= Terminals (SingleGrammar a,b)
let c be set ; :: according to TARSKI:def 3 :: thesis: ( not c in {b} or c in Terminals (SingleGrammar a,b) )
assume
c in {b}
; :: thesis: c in Terminals (SingleGrammar a,b)
then A5:
c = b
by TARSKI:def 1;
hence
c in Terminals (SingleGrammar a,b)
by A5; :: thesis: verum