Skip to content
Merged
Show file tree
Hide file tree
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions OWL2/Sign.hs
Original file line number Diff line number Diff line change
Expand Up @@ -101,6 +101,8 @@ addSymbToSign sig ent =
return sig {objectProperties = Set.insert eIri $ objectProperties sig}
Entity _ NamedIndividual eIri ->
return sig {individuals = Set.insert eIri $ individuals sig}
Entity _ DataProperty eIri ->
return sig {dataProperties = Set.insert eIri $ dataProperties sig}
_ -> return sig

addSign :: Sign -> Sign -> Sign
Expand Down
2 changes: 2 additions & 0 deletions OWL2/StaticAnalysis.hs
Original file line number Diff line number Diff line change
Expand Up @@ -803,6 +803,8 @@ corr2theo _aname flag ssig tsig l1 l2 eMap1 eMap2 rref = do
AS.EquivalentClasses [] (AS.Expression . AS.cutIRI <$> [e1', e2'])
(AS.ObjectProperty, AS.ObjectProperty) -> AS.ObjectPropertyAxiom $
AS.EquivalentObjectProperties [] (AS.ObjectProp . AS.cutIRI <$> [e1', e2'])
(AS.DataProperty, AS.DataProperty) -> AS.DataPropertyAxiom $
AS.EquivalentDataProperties [] (AS.cutIRI <$> [e1', e2'])
(AS.NamedIndividual, AS.NamedIndividual) -> AS.Assertion $
AS.SameIndividual [] (AS.cutIRI <$> [e1', e2'])
_ -> error $ "use subsumption only between"
Expand Down
Loading