(U-00027F2F): Use `->denotational' and `->subsumptive'.

(C7-3379): Unify U-0002F9D8; add `<-denotational' for U-00027F2F.
(U-00020804): Copied from Ideograph-R018-Knife.el.
(M-37235): Separate C7-3373; unify GT-49806; add `<-subsumptive' for
G-GT-02901.
(C7-3373): Unify U-0002F9D9.

diff --git a/lisp/utf-2000/Ideograph-R156-Run.el b/lisp/utf-2000/Ideograph-R156-Run.el
index 9b1c88e..1e50e06 100644 (file)
--- a/lisp/utf-2000/Ideograph-R156-Run.el
+++ b/lisp/utf-2000/Ideograph-R156-Run.el
@@ -2432,33 +2432,44 @@
     (=daikanwa         . 37229)        ; &I-M-37229;
     ))
 (define-char
-  '((=>ucs             . #x27F2F)      ; 𧼯
-    (ideographic-radical . 156)        ; ⾛
+  '((ideographic-radical . 156)        ; ⾛
     (ideographic-strokes . 9)
     (total-strokes      . 16)
-    (=daikanwa         . 37230)        ; &M-37230;
+    (=ucs              . #x27F2F)      ; 𧼯
     ))
 (define-char
-  '((morohashi-daikanwa        37230 0 0)
+  '((<-denotational
+     ((=ucs              . #x27F2F)    ; 𧼯
+      ))
     (ideographic-radical . 156)        ; ⾛
     (ideographic-strokes . 9)
     (total-strokes      . 16)
-    (=cns11643-7       . #x3379)       ; &C7-3379; [19-89]
+    (=daikanwa         . 37230)        ; &M-37230;
     ))
 (define-char
-  '((morohashi-daikanwa        37230 0 2)
+  '((<-denotational
+     ((=ucs              . #x27F2F)    ; 𧼯
+      ))
+    (=>ucs*            . #x27F2F)      ; 𧼯
     (ideographic-radical . 156)        ; ⾛
     (ideographic-strokes . 9)
     (total-strokes      . 16)
-    (=ucs              . #x27F2F)      ; 𧼯
+    (=ucs              . #x2F9D8)      ; 𧼯
+    (=cns11643-7       . #x3379)       ; &I-C7-3379; [19-89]
     ))
 (define-char
-  '((=>ucs             . #x27F2F)      ; 𧼯
-    (morohashi-daikanwa        37230 0 2)
+  '((<-denotational
+     ((=ucs              . #x27F2F)    ; 𧼯
+      ))
     (ideographic-radical . 156)        ; ⾛
     (ideographic-strokes . 9)
     (total-strokes      . 16)
-    (=cns11643-4       . #x5427)       ; &C4-5427; [52-07]
+    (=>>ucs@iso                . #x27F2F)      ; &G-IU+27F2F;
+    (->subsumptive
+     ((=ucs@iso                  . #x27F2F)    ; &U-00027F2F;
+      )
+     ((=cns11643-4       . #x5427)     ; &C4-5427; [52-07]
+      ))
     ))
 (define-char
   '((ideographic-radical . 156)        ; ⾛
@@ -2525,11 +2536,91 @@
     (=daikanwa         . 37234)        ; &I-M-37234;
     ))
 (define-char
-  '((ideographic-radical . 156)        ; ⾛
-    (ideographic-strokes . 9)
+  '((ideographic-radical@ucs . 18)     ; ⼑
+    (ideographic-strokes@ucs . 14)
+    (ideographic-radical@ucs*sources
+     daikanwa=02254 cns11643-5=0x535E)
+    (ideographic-strokes@ucs*sources
+     daikanwa=02254)
+    (ideographic-radical@ucs/compat . 156)     ; ⾛
+    (ideographic-strokes@ucs/compat . 9)
+    (ideographic-radical@ucs/compat*sources
+     daikanwa=37235 cns11643-7=0x3373)
+    (ideographic-strokes@ucs/compat*sources
+     daikanwa=37235)
+    (total-strokes      . 16)
+    (=ucs              . #x20804)      ; 𠠄
+    ))
+(define-char
+  '((<-denotational
+     ((=ucs              . #x20804)    ; 𠠄
+      ))
+    (ideographic-radical@r018 . 18)    ; ⼑
+    (ideographic-strokes@r018 . 14)
+    (ideographic-radical@r156 . 156)   ; ⾛
+    (ideographic-strokes@r156 . 9)
+    (total-strokes      . 16)
+    (=>ucs@iso         . #x20804)      ; &A-IU+20804;
+    (=>ucs@cns         . #x2F9D9)      ; &A-IU+20804;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@iso         . #x20804)    ; &A-IU+20804;
+      ))
+    (ideographic-radical@r018 . 18)    ; ⼑
+    (ideographic-strokes@r018 . 14)
+    (ideographic-radical@r018*sources
+     daikanwa=02254 gt=2901)
+    (ideographic-strokes@r018*sources
+     daikanwa=02254)
+    (ideographic-radical@r156 . 156)   ; ⾛
+    (ideographic-strokes@r156 . 9)
+    (ideographic-radical@r156*sources
+     daikanwa=37235 gt=49806)
+    (ideographic-strokes@r156*sources
+     daikanwa=37235)
+    (total-strokes      . 16)
+    (=>>>gt            . 02901)        ; &g2-GT-02901;
+    (=>>daikanwa       . 02254)        ; &g2-GT-02901;
+    (->subsumptive
+     ((ideographic-radical . 18)       ; ⼑
+      (ideographic-strokes . 14)
+      (=gt               . 02901)      ; &GT-02901;
+      (=gt-pj-2                  . #x437B)     ; &GT-02901; [35-91]
+      (=daikanwa         . 02254)      ; &I-M-02254;
+      )
+     ((ideographic-radical . 156)      ; ⾛
+      (ideographic-strokes . 9)
+      (=gt               . 49806)      ; &GT-49806;
+      (=gt-pj-7                  . #x4637)     ; &GT-49806; [38-23]
+      (=daikanwa         . 37235)      ; &I-M-37235;
+      ))
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@iso         . #x20804)    ; &A-IU+20804;
+      ))
+    (ideographic-radical@ucs . 18)     ; ⼑
+    (ideographic-strokes@ucs . 14)
+    (ideographic-radical@ucs/compat . 156)     ; ⾛
+    (ideographic-strokes@ucs/compat . 9)
+    (ideographic-radical@ucs/compat*sources
+     cns gt)
     (total-strokes      . 16)
-    (=cns11643-7       . #x3373)       ; &M-37235; [19-83]
-    (=daikanwa         . 37235)        ; &I-M-37235;
+    (=>>ucs@iso                . #x20804)      ; &G-GT-49807;
+    (=>>ucs@cns                . #x2F9D9)      ; &G-GT-49807;
+    (=>>gt             . 49807)        ; &G-GT-49807;
+    (->subsumptive
+     ((=ucs@iso                  . #x20804)    ; &GT-49807;
+      (=gt               . 49807)      ; &GT-49807;
+      (=gt-pj-10         . #x3B63)     ; &GT-49807; [27-67]
+      )
+     ((=>ucs*            . #x20804)    ; 𠠄
+      (ideographic-radical . 156)      ; ⾛
+      (ideographic-strokes . 9)
+      (=ucs              . #x2F9D9)    ; 𠠄
+      (=cns11643-7       . #x3373)     ; &I-C7-3373; [19-83]
+      ))
     ))
 (define-char
   '((ideographic-radical . 156)        ; ⾛