Isabelle_DOF
/
Isabelle_DOF
1
0
Fork 2
Code Issues 1 Pull Requests Releases Wiki Activity

deactivated class check.

This commit is contained in:
Burkhart Wolff 2020-11-04 14:25:14 +01:00
parent da0f3e63f1
commit 4ad06ce39a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/DOF/Isa_COL.thy
View File

@ -95,12 +95,12 @@ fun transform_cid thy NONE X = X
|transform_cid thy (SOME cid) (SOME (sub_cid,pos)) =
let val cid_long = DOF_core.read_cid_global thy cid
val sub_cid_long = DOF_core.read_cid_global thy sub_cid
in if DOF_core.is_subclass_global thy sub_cid_long cid_long
in if DOF_core.is_subclass_global thy sub_cid_long cid_long
then (SOME (sub_cid,pos))
else (SOME (sub_cid,pos))
(* BUG : check does not yet work for
type synonyms.
error("class must be sub-class of "^cid) *)
(* BUG : check reveals problem of Definition* misuse.
error("class "^sub_cid_long^
" must be sub-class of "^cid_long) *)
end
in