Some examples of formulas.

Here is how the previous formulas (and some more) look like. Implication is material implication here.

(1) (((¬A∨C)∧B)→F)

In[2]:=

F1 = Impl[Conj[Disj[Neg["A"], "C"], "B"], ""]

General :: spell1 : Possible spelling error: new symbol name \"Disj\" is similar to existing symbol \"Disk\".  More…

Out[2]=

Impl[Conj[Disj[Neg[A], C], B], ]

(2) ∀x.(((¬A∨C)∧B)→F)

In[3]:=

F2 = Un["x", Impl[Conj[Disj[Neg["A"], "C"], "B"], ""]]

Out[3]=

Un[x, Impl[Conj[Disj[Neg[A], C], B], ]]

(3) ∃x.(((¬A∨C)∧B)→F)

In[4]:=

F3 = Ex["x", Impl[Conj[Disj[Neg["A"], "C"], "B"], ""]]

Out[4]=

Ex[x, Impl[Conj[Disj[Neg[A], C], B], ]]

(4) "If the map f has a minimum point, then the unequation system f(x)≤f(g(x))∧f(x)≤f(h(x) has a solution"
(∃x.∀y.f(x)≤f(y)→∃x.(f(x)≤f(g(x))∧f(x)≤f(h(x))))

In[5]:=

F4 = Impl[Ex["x", Un["y", "f(x)≤f(y)"]], Ex["x", Conj["f(x)≤f(g(x))", "f(x)≤f(h(x))"]]]

Out[5]=

Impl[Ex[x, Un[y, f(x)≤f(y)]], Ex[x, Conj[f(x)≤f(g(x)), f(x)≤f(h(x))]]]

(5) "Excluded Middle for ∃y.P(x,y) is not false"
∀x.¬¬(∃y.P(x,y)∨¬∃y.P(x,y))

In[6]:=

F5 = Un["x", Neg[Neg[Disj[Ex["y", "P(x,y)"], Neg[Ex["y", "P(x,y)"]]]]]]

Out[6]=

Un[x, Neg[Neg[Disj[Ex[y, P(x,y)], Neg[Ex[y, P(x,y)]]]]]]

(6) "The map f has a minimum point"

∃x.∀y.f(x)≤f(y)

In[7]:=

F6 = Ex["x", Un["y", "f(x)≤f(y)"]]

Out[7]=

Ex[x, Un[y, f(x)≤f(y)]]

(7) "Excluded Middle for ∃y.∀z.P(x,y,z)"
∀x.(∃y.∀z.P(x,y,z)∨∀y.∃z.¬P(x,y,z))

In[8]:=

F7 = Un["x", Disj[Ex["y", Un["z", "P(x,y,z)"]], Un["y", Ex["z", Neg["P(x,y,z)"]]]]]

Out[8]=

Un[x, Disj[Ex[y, Un[z, P(x,y,z)]], Un[y, Ex[z, Neg[P(x,y,z)]]]]]

(8) "Between any two numbers there is a third one."
∀x.∀y.(x<y→∃z.(x<z∧z<y))

In[9]:=

F8 = Un["x", Un["y", Impl["x<y", Ex["z", Conj["x<z", "z<y"]]]]]

Out[9]=

Un[x, Un[y, Impl[x<y, Ex[z, Conj[x<z, z<y]]]]]

(9) "If f:N→N is any map, there are x < y < z such that f(x)≤f(y)≤f(z)."
∃x.∃y.( (x<y∧f(x)≤f(y)) ∧ ∃z.(y<z∧f(y)≤f(z)) )

In[10]:=

F9 = Ex["x", Ex["y", Conj[Conj["x<y", "f(x)≤f(y)"], Ex["z", Conj["y<z", "f(y)≤f(z)"]]]]]

Out[10]=

Ex[x, Ex[y, Conj[Conj[x<y, f(x)≤f(y)], Ex[z, Conj[y<z, f(y)≤f(z)]]]]]


Created by Mathematica  (October 17, 2006)