(CB07314): New character; subsume GT-K00251 and GT-K00252.

(GT-K00251): Use `<-subsumptive' for CB07314 instead of
`<-denotational' for A-UU+5342.
(GT-K00252): Likewise.

diff --git a/lisp/utf-2000/Ideograph-R024-Ten.el b/lisp/utf-2000/Ideograph-R024-Ten.el
index abc32d4..37fee74 100644 (file)
--- a/lisp/utf-2000/Ideograph-R024-Ten.el
+++ b/lisp/utf-2000/Ideograph-R024-Ten.el
@@ -157,16 +157,7 @@
     (ideographic-radical . 24) ; ⼗
     (ideographic-strokes . 1)
     (total-strokes      . 3)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
-      (=ucs              . #x2FF9)     ; ⿹
-      )
-     ((=gt-k             . 00007)      ; &GT-K00007;
-      )
-     ((=ucs              . #x20087)    ; 𠂇
-      ))
-    (=gt-k             . 00251)        ; &GT-K00251;
-    (=gt-pj-k1         . #x3163)       ; &GT-K00251; [17-67]
+    (=big5-cdp         . #x88EC)       ; &CDP-88EC;
     ))
 (define-char
   '((<-denotational
@@ -180,23 +171,16 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
       (=ucs              . #x2FF9)     ; ⿹
       )
-     ((name              . "CJK RADICAL SECOND THREE")
-      (=ucs              . #x2E84)     ; ⺄
+     ((=gt-k             . 00007)      ; &GT-K00007;
       )
-     ((=ucs              . #x20087)    ; 𠂇
+     ((=ucs              . #x5341)     ; 十
       ))
-    (=gt-k             . 00252)        ; &GT-K00252;
-    (=gt-pj-k1         . #x3A26)       ; &GT-K00252; [26-06]
-    ))
-(define-char
-  '((<-denotational
-     ((=>ucs@iwds-1      . #x5342)     ; &A-IWDSU+5342;
-      (=>ucs@unicode     . #x5342)     ; &A-IWDSU+5342;
+    (=ucs@cns          . #x5342)       ; &C4-2130;
+    (=cns11643-4       . #x2130)       ; &C4-2130; [01-16]
+    (->subsumptive
+     ((==ucs@cns         . #x5342)     ; &g2-CU+5342;
+      (==cns11643-4      . #x2130)     ; &g2-CU+5342; [01-16]
       ))
-    (ideographic-radical . 24) ; ⼗
-    (ideographic-strokes . 1)
-    (total-strokes      . 3)
-    (=big5-cdp         . #x88EC)       ; &CDP-88EC;
     ))
 (define-char
   '((<-denotational
@@ -210,15 +194,28 @@
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
       (=ucs              . #x2FF9)     ; ⿹
       )
-     ((=gt-k             . 00007)      ; &GT-K00007;
+     ((name              . "CJK RADICAL SECOND THREE")
+      (=ucs              . #x2E84)     ; ⺄
       )
-     ((=ucs              . #x5341)     ; 十
+     ((=ucs              . #x20087)    ; 𠂇
       ))
-    (=ucs@cns          . #x5342)       ; &C4-2130;
-    (=cns11643-4       . #x2130)       ; &C4-2130; [01-16]
+    (=cbeta            . 07314)        ; &CB07314;
     (->subsumptive
-     ((==ucs@cns         . #x5342)     ; &g2-CU+5342;
-      (==cns11643-4      . #x2130)     ; &g2-CU+5342; [01-16]
+     ((==cbeta           . 07314)      ; &g2-CB07314;
+      )
+     ((ideographic-structure
+       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM UPPER RIGHT")
+       (=ucs               . #x2FF9)   ; ⿹
+       )
+       ((=gt-k             . 00007)    ; &GT-K00007;
+       )
+       ((=ucs              . #x20087)  ; 𠂇
+       ))
+      (=gt-k             . 00251)      ; &GT-K00251;
+      (=gt-pj-k1         . #x3163)     ; &GT-K00251; [17-67]
+      )
+     ((=gt-k             . 00252)      ; &GT-K00252;
+      (=gt-pj-k1         . #x3A26)     ; &GT-K00252; [26-06]
       ))
     ))
 (define-char