import proveit
# Prepare this notebook for defining the theorems of a theory:
%theorems_notebook # Keep this at the top following 'import proveit'.
from proveit.logic import Forall, And, Or, Equals, InSet, NotInSet, Union, SubsetEq
from proveit import A, B, S, m, x
from proveit.core_expr_types import A_1_to_m
from proveit.logic.sets import x_in_any_A, x_notin_all_A, each_A_in_S
from proveit.numbers import NaturalPos
%begin theorems
membership_unfolding = Forall(m, Forall((x, A_1_to_m), x_in_any_A,
conditions=[InSet(x, Union(A_1_to_m))]),
domain=NaturalPos)
membership_folding = Forall(m, Forall((x, A_1_to_m), InSet(x, Union(A_1_to_m)),
conditions=[x_in_any_A]),
domain=NaturalPos)
nonmembership_equiv = Forall(m, Forall((x, A_1_to_m),
Equals(NotInSet(x, Union(A_1_to_m)),
x_notin_all_A)),
domain=NaturalPos)
nonmembership_folding = Forall(m, Forall((x, A_1_to_m),
NotInSet(x, Union(A_1_to_m)),
conditions=[x_notin_all_A]),
domain=NaturalPos)
union_inclusion = Forall(m, Forall((A_1_to_m, S),
SubsetEq(Union(A_1_to_m), S),
conditions=[each_A_in_S]),
domain=NaturalPos)
%end theorems