(A-cgnU+51F6): New abstract node.

(U+51F6): Add `<-denotational' for A-cgnU+51F6.
(CB04552): Unify HD-KS021320; add `<-denotational' for A-cgnU+51F6.

diff --git a/lisp/utf-2000/Ideograph-R017-Open-Box.el b/lisp/utf-2000/Ideograph-R017-Open-Box.el
index b697f86..67060e5 100644 (file)
--- a/lisp/utf-2000/Ideograph-R017-Open-Box.el
+++ b/lisp/utf-2000/Ideograph-R017-Open-Box.el
@@ -114,6 +114,13 @@
     ))
 (define-char
   '((ideographic-radical . 17) ; ⼐
+    (=>ucs@cognate     . #x51F6)       ; &A-cgnU+51F6;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@cognate     . #x51F6)     ; &A-cgnU+51F6;
+      ))
+    (ideographic-radical . 17) ; ⼐
     (ideographic-strokes . 2)
     (total-strokes      . 4)
     (hanyu-dazidian    1 306 19)
@@ -235,6 +242,34 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs@cognate     . #x51F6)     ; &A-cgnU+51F6;
+      ))
+    (ideographic-radical . 17) ; ⼐
+    (ideographic-strokes . 2)
+    (total-strokes      . 4)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW")
+      (=ucs              . #x2FF6)     ; ⿶
+      )
+     ((=ucs              . #x51F5)     ; 凵
+      )
+     ((=ucs              . #x53C8)     ; 又
+      ))
+    (=hanyo-denshi/ks  . 021320)       ; &HD-KS-021320;
+    (=cbeta            . 04552)        ; &I-CB04552;
+    (->subsumptive
+     ((==hanyo-denshi/ks  . 021320)    ; &g2-HD-KS-021320;
+      (==cbeta           . 04552)      ; &g2-HD-KS-021320;
+      (->subsumptive
+       ((===hanyo-denshi/ks . 021320)  ; &R-HD-KS-021320;
+       (=hanyo-denshi/ks/mf . #x0854)  ; &R-HD-KS-021320;
+       )
+       ((===cbeta          . 04552)    ; &R-CB04552;
+       ))
+      ))
+    ))
+(define-char
   '((ideographic-radical . 17) ; ⼐
     (ideographic-strokes . 2)
     (total-strokes      . 4)
@@ -280,31 +315,6 @@
     ))
 (define-char
   '((ideographic-radical . 17) ; ⼐
-    (ideographic-strokes . 2)
-    (total-strokes      . 4)
-    (ideographic-structure
-     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW")
-      (=ucs              . #x2FF6)     ; ⿶
-      )
-     ((=ucs              . #x51F5)     ; 凵
-      )
-     ((=ucs              . #x53C8)     ; 又
-      ))
-    (=cbeta            . 04552)        ; &CB04552;
-    (->subsumptive
-     ((ideographic-structure
-       ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER SURROUND FROM BELOW")
-       (=ucs               . #x2FF6)   ; ⿶
-       )
-       ((=ucs              . #x51F5)   ; 凵
-       )
-       ((=gt-k             . 00064)    ; &GT-K00064;
-       ))
-      (==cbeta           . 04552)      ; &g2-CB04552;
-      ))
-    ))
-(define-char
-  '((ideographic-radical . 17) ; ⼐
     (ideographic-strokes . 3)
     (total-strokes      . 5)
     (=>iwds-1*note     "132a+72+312")