5(viii).als

// load fm signatures

open fm

one sig FM1, FM2, FMUnion, FMIntersection extends FM{}
one sig Fp, Fi, Fj, Fk, Fm, Fn extends Name{}

// == FM1

fact FM1Features {
	FM1.features = Fp + Fi + Fj + Fk
}

pred FM1Semantics[config:set Name] {
	--fixed
	config in FM1.features
	root[Fp,config]

	--relations
	alternative[Fp, Fi + Fj + Fk, config]

	--formulas
}

// == FM2

fact FM2Features {
	FM2.features = Fp + Fi + Fj + Fm + Fn
}

pred FM2Semantics[config:set Name] {
	--fixed
	config in FM2.features
	root[Fp,config]

	--relations
	alternative[Fp, Fi + Fj + Fm + Fn, config]

	--formulas
}
 
// == FMUnion

fact FMUnion{
	FMUnion.features = Fp + Fi + Fj + Fk + Fm + Fn
}

pred FMUnionSemantics[config:set Name] {
	--fixed
	config in FMUnion.features
	root[Fp, config]

	--relations
	alternative[Fp, Fi + Fj + Fk + Fm + Fn, config]

	--formulas
}

// == FMIntersection

fact FMIntersection{
	FMIntersection.features = Fp + Fi + Fj + Fk + Fm + Fn
}

pred FMIntersectionSemantics[config:set Name] {
	--fixed
	config in FMIntersection.features
	root[Fp, config]

	--relations
	alternative[Fp, Fi + Fj, config]
	nonselectable[Fp, Fk, config]
	nonselectable[Fp, Fm, config]
	nonselectable[Fp, Fn, config]

	--formulas
}


// == Hints to generate configurations

fact configurationHints {
	some  c: set Name | Fp + Fi  in c
	some  c: set Name | Fp + Fj in c
	some  c: set Name | Fp + Fk in c
	some  c: set Name | Fp + Fm in c
	some  c: set Name | Fp + Fn in c
	some  c: set Name | Fp + Fi + Fj in c
	some  c: set Name | Fp + Fi + Fk in c
	some  c: set Name | Fp + Fj + Fk in c
	some  c: set Name | Fp + Fi + Fm in c
	some  c: set Name | Fp + Fj + Fm in c
	some  c: set Name | Fp + Fi + Fn in c
	some  c: set Name | Fp + Fj + Fn in c
	some  c: set Name | Fp + Fi + Fj + Fk in c
	some  c: set Name | Fp + Fi + Fj + Fm in c
	some  c: set Name | Fp + Fi + Fj + Fn in c
	some  c: set Name | Fp + Fi + Fk + Fm in c
	some  c: set Name | Fp + Fi + Fk + Fn in c
	some  c: set Name | Fp + Fj + Fk + Fm in c
	some  c: set Name | Fp + Fj + Fk + Fn in c
	some  c: set Name | Fp + Fi + Fj + Fk + Fm in c
	some  c: set Name | Fp + Fi + Fj + Fk + Fn in c
	some  c: set Name | Fp + Fi + Fk + Fm + Fn in c
	some  c: set Name | Fp + Fj + Fk + Fm + Fn in c
	some  c: set Name | Fp + Fi + Fj + Fk + Fm + Fn in c
	some  c: set Name | Fp in c
	some  c: set Name | Fp not in c
	some  c: set Name | Fi in c
	some  c: set Name | Fi not in c
	some  c: set Name | Fj in c
	some  c: set Name | Fj not in c
	some  c: set Name | Fk in c
	some  c: set Name | Fk not in c
	some  c: set Name | Fm in c
	some  c: set Name | Fm not in c
	some  c: set Name | Fn in c
	some  c: set Name | Fn not in c
}


// == verifications

assert isUnion1{
    all c:set Name | FMUnionSemantics[c] => 
		(FM1Semantics[c] or FM2Semantics[c]) 
}

assert isUnion2 {
    no c:set Name | FM1Semantics[c] and not FMUnionSemantics[c]
}

assert isUnion3 {
     no c:set Name | FM2Semantics[c] and not FMUnionSemantics[c]
}

assert isIntersection1{
    all c:set Name | FMIntersectionSemantics[c] => 
		(FM1Semantics[c] and FM2Semantics[c]) 
}

assert isIntersection2{
    no c:set Name | (FM1Semantics[c] and FM2Semantics[c])  
		and not FMIntersectionSemantics[c]
}


check isUnion1 				for 35 FM, 5 Name
check isUnion2 				for 35 FM, 5 Name
check isUnion3 				for 35 FM, 5 Name

check isIntersection1 	for 35 FM, 5 Name
check isIntersection2		for 35 FM, 5 Name