End MapC.

(* Specifications: *)
Lemma FSetDelta_assoc_c :
forall s s' s'':FSet,
mapcanon unit s ->
mapcanon unit s' ->
mapcanon unit s'' ->
MapDelta _ (MapDelta _ s s') s'' = MapDelta _ s (MapDelta _ s' s'').
Lemma FSet_ext_c :
forall s s':FSet,
mapcanon unit s ->
mapcanon unit s' -> (forall a:ad, in_FSet a s = in_FSet a s') -> s = s'.
Lemma FSetUnion_comm_c :
forall s s':FSet,
mapcanon unit s -> mapcanon unit s' -> FSetUnion s s' = FSetUnion s' s.
Lemma FSetUnion_assoc_c :
forall s s' s'':FSet,
mapcanon unit s ->
mapcanon unit s' ->
mapcanon unit s'' ->
FSetUnion (FSetUnion s s') s'' = FSetUnion s (FSetUnion s' s'').
Lemma FSetUnion_M0_s_c : forall s:FSet, FSetUnion (M0 unit) s = s.
Lemma FSetUnion_s_M0_c : forall s:FSet, FSetUnion s (M0 unit) = s.
Lemma FSetUnion_idempotent :
forall s:FSet, mapcanon unit s -> FSetUnion s s = s.
Lemma FSetInter_comm_c :
forall s s':FSet,
mapcanon unit s -> mapcanon unit s' -> FSetInter s s' = FSetInter s' s.
Lemma FSetInter_assoc_c :
forall s s' s'':FSet,
mapcanon unit s ->
FSetInter (FSetInter s s') s'' = FSetInter s (FSetInter s' s'').
Lemma FSetInter_M0_s_c : forall s:FSet, FSetInter (M0 unit) s = M0 unit.
Lemma FSetInter_s_M0_c : forall s:FSet, FSetInter s (M0 unit) = M0 unit.
Lemma FSetInter_idempotent :
forall s:FSet, mapcanon unit s -> FSetInter s s = s.
Lemma FSetUnion_Inter_l_c :
forall s s' s'':FSet,
mapcanon unit s ->
mapcanon unit s'' ->
FSetUnion (FSetInter s s') s'' =
FSetInter (FSetUnion s s'') (FSetUnion s' s'').
Lemma FSetUnion_Inter_r :
forall s s' s'':FSet,
mapcanon unit s ->
mapcanon unit s' ->
FSetUnion s (FSetInter s' s'') =
FSetInter (FSetUnion s s') (FSetUnion s s'').
Lemma FSetInter_Union_l_c :
forall s s' s'':FSet,
mapcanon unit s ->
mapcanon unit s' ->
FSetInter (FSetUnion s s') s'' =
FSetUnion (FSetInter s s'') (FSetInter s' s'').
Lemma FSetInter_Union_r :
forall s s' s'':FSet,
mapcanon unit s ->
mapcanon unit s' ->
FSetInter s (FSetUnion s' s'') =
FSetUnion (FSetInter s s') (FSetInter s s'').