Set Exercises

Manipulate[TableForm[{"P \[Intersection] Q"->Intersection[P,Q],
"P \[Intersection] R"->Intersection[P,R],
"Q \[Intersection] R"->Intersection[Q,R],
"P \[Intersection] Q \[Intersection] R"->Intersection[P,Q,R]}],
{P,{{"a",3,2,"c",1,"ф","⎈","D"},
{"N",8,2,"c",1,"ф","⎈","D"}}},
{Q,{{"ф",7,"a","⎈",2,1,"B","\[Theta]"},
{"ф",5,"a","⎈",2,8,"N","\[Theta]"}}},
{R,{{8,"N","a","\[Theta]",4,"P","⎈","r"},
{1,"N","a","\[Theta]",7,"P","⎈","r"}}}]

Manipulate[TableForm[{"P \[Union] Q "->Union[P,Q],
"P \[Union] R"->Union[P,R],
"Q \[Union] R"->Union[Q,R],
"P \[Union] Q \[Union] R"->Union[P,Q,R]}],
{P,{{"a",3,2,"c",1,"ф","⎈","D"},
{"N",8,2,"c",1,"ф","⎈","D"}}},
{Q,{{"ф",7,"a","⎈",2,1,"B","\[Theta]"},
{"ф",5,"a","⎈",2,8,"N","\[Theta]"}}},
{R,{{8,"N","a","\[Theta]",4,"P","⎈","r"},
{1,"N","a","\[Theta]",7,"P","⎈","r"}}}]