(A-IWDSU+5193): Separate A-UU+5193.

(A-MJ007320): New abstract node; unify A-GT-02023; use
`<-denotational' for A-IWDSU+5193.
(MJ007320): Use A-GT-02023 instead of A-IWDSU+5193 as the mother.
(GT-02026): Ditto.
(A-UU+5193): New abstract node; unify A-GT-02023; use `<-denotational'
for A-IWDSU+5193; unify A-MJ007321, A-GT-02025 and A-GT-K06707.
(GT-02025): Use A-UU+5193 instead of A-IWDSU+5193 as the mother.
(UU+5193): Ditto.
(U+5193-itaiji-002): Add `ideographic-structure'.

diff --git a/lisp/utf-2000/Ideograph-R013-Down-Box.el b/lisp/utf-2000/Ideograph-R013-Down-Box.el
index ff04d7d..4a27cc3 100644 (file)
--- a/lisp/utf-2000/Ideograph-R013-Down-Box.el
+++ b/lisp/utf-2000/Ideograph-R013-Down-Box.el
@@ -1737,13 +1737,22 @@
      ((=ucs              . #x5189)     ; 冉
       ))
     (=>ucs@iwds-1      . #x5193)       ; &A-IWDSU+5193;
-    (=>ucs@unicode     . #x5193)       ; &A-IWDSU+5193;
     (=big5             . #xD0E0)       ; &A-IWDSU+5193;
     ))
 (define-char
   '((<-denotational
      ((=>ucs@iwds-1      . #x5193)     ; &A-IWDSU+5193;
-      (=>ucs@unicode     . #x5193)     ; &A-IWDSU+5193;
+      (=big5             . #xD0E0)     ; &A-IWDSU+5193;
+      ))
+    (ideographic-radical . 13) ; ⼌
+    (ideographic-strokes . 8)
+    (total-strokes      . 10)
+    (=>mj              . 007320)       ; &A-GT-02023;
+    (=>gt              . 02023)        ; &A-GT-02023;
+    ))
+(define-char
+  '((<-denotational
+     ((=>gt              . 02023)      ; &A-GT-02023;
       ))
     (ideographic-radical . 13) ; ⼌
     (ideographic-strokes . 8)
@@ -1777,8 +1786,18 @@
     ))
 (define-char
   '((<-denotational
+     ((=>gt              . 02023)      ; &A-GT-02023;
+      ))
+    (ideographic-radical . 13) ; ⼌
+    (ideographic-strokes . 8)
+    (total-strokes      . 10)
+    (=gt               . 02026)        ; &GT-02026;
+    (=gt-pj-9          . #x5237)       ; &GT-02026; [50-23]
+    ))
+(define-char
+  '((<-denotational
      ((=>ucs@iwds-1      . #x5193)     ; &A-IWDSU+5193;
-      (=>ucs@unicode     . #x5193)     ; &A-IWDSU+5193;
+      (=big5             . #xD0E0)     ; &A-IWDSU+5193;
       ))
     (ideographic-radical . 13) ; ⼌
     (ideographic-strokes . 8)
@@ -1789,29 +1808,37 @@
       )
      ((=big5-cdp         . #x8BB7)     ; &CDP-8BB7;
       )
-     ((=mj               . 007307)     ; &MJ007307;
+     ((=ucs              . #x5189)     ; 冉
       ))
-    (=gt               . 02025)        ; &GT-02025;
-    (=gt-k             . 06707)        ; &I-GT-K06707;
-    (=gt-pj-9          . #x3372)       ; &GT-02025; [19-82]
-    (=shinjigen                .  0522)        ; &GT-02025;
-    (=jef-china3       . #x43ED)       ; &I-JC3-43ED;
+    (=>ucs@unicode     . #x5193)       ; &A-GT-02025;
+    (=>mj              . 007321)       ; &A-GT-02025;
+    (=>gt              . 02025)        ; &A-GT-02025;
+    (=>gt-k            . 06707)        ; &A-GT-02025;
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@iwds-1      . #x5193)     ; &A-IWDSU+5193;
-      (=>ucs@unicode     . #x5193)     ; &A-IWDSU+5193;
+     ((=>ucs@unicode     . #x5193)     ; &A-GT-02025;
       ))
     (ideographic-radical . 13) ; ⼌
     (ideographic-strokes . 8)
     (total-strokes      . 10)
-    (=gt               . 02026)        ; &GT-02026;
-    (=gt-pj-9          . #x5237)       ; &GT-02026; [50-23]
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=big5-cdp         . #x8BB7)     ; &CDP-8BB7;
+      )
+     ((=mj               . 007307)     ; &MJ007307;
+      ))
+    (=gt               . 02025)        ; &GT-02025;
+    (=gt-k             . 06707)        ; &I-GT-K06707;
+    (=gt-pj-9          . #x3372)       ; &GT-02025; [19-82]
+    (=shinjigen                .  0522)        ; &GT-02025;
+    (=jef-china3       . #x43ED)       ; &I-JC3-43ED;
     ))
 (define-char
   '((<-denotational
-     ((=>ucs@iwds-1      . #x5193)     ; &A-IWDSU+5193;
-      (=>ucs@unicode     . #x5193)     ; &A-IWDSU+5193;
+     ((=>ucs@unicode     . #x5193)     ; &A-GT-02025;
       ))
     (ideographic-radical . 13) ; ⼌
     (ideographic-strokes . 8)
@@ -1898,6 +1925,14 @@
     (ideographic-radical . 13) ; ⼌
     (ideographic-strokes . 8)
     (total-strokes      . 10)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs              . #x2FF1)     ; ⿱
+      )
+     ((=big5-cdp         . #x86B1)     ; &CDP-86B1;
+      )
+     ((=mj               . 007307)     ; &MJ007307;
+      ))
     (=ucs-itaiji-002   . #x5193)       ; &U-i002+5193;
     ))
 (define-char