(A-compU+51B0): New abstract node; use `<-denotational' for BUCS+51B0.

(U+51B0): Use `<-denotational' for A-compU+51B0.
(U+51B0-itaiji-002): New character; use `<-denotational' for
A-compU+51B0.

diff --git a/lisp/utf-2000/Ideograph-R015-Ice.el b/lisp/utf-2000/Ideograph-R015-Ice.el
index fac13de..9947ba6 100644 (file)
--- a/lisp/utf-2000/Ideograph-R015-Ice.el
+++ b/lisp/utf-2000/Ideograph-R015-Ice.el
@@ -315,6 +315,15 @@
     (ideographic-radical . 15) ; ⼎
     (ideographic-strokes . 4)
     (total-strokes      . 6)
+    (=>ucs@component   . #x51B0)       ; &A-compU+51B0;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@component   . #x51B0)     ; &A-compU+51B0;
+      ))
+    (ideographic-radical . 15) ; ⼎
+    (ideographic-strokes . 4)
+    (total-strokes      . 6)
     (hanyu-dazidian    1 295 9)
     (ideographic-structure
      ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
@@ -342,7 +351,7 @@
       (=shinjigen        .  4051)      ; 氷
       ))
     (<-original*sources
-     shinjigen@1ed)
+     shinjigen)
     (<-same
      ((=ucs@cns                  . #x4ECC)     ; &C3-214C;
       (=cns11643-3       . #x214C)     ; &C3-214C; [01-44]
@@ -394,6 +403,29 @@
       ))
     ))
 (define-char
+  '((<-denotational
+     ((=>ucs@component   . #x51B0)     ; &A-compU+51B0;
+      ))
+    (ideographic-radical . 15) ; ⼎
+    (ideographic-strokes . 4)
+    (total-strokes      . 6)
+    (ideographic-structure
+     ((name              . "IDEOGRAPHIC DESCRIPTION CHARACTER OVERLAID")
+      (=ucs              . #x2FFB)     ; ⿻
+      )
+     ((=ucs              . #x6C34)     ; 水
+      )
+     ((=big5-cdp         . #x8971)     ; &CDP-8971;
+      ))
+    (=ucs-itaiji-002   . #x51B0)       ; &U-i002+51B0;
+    (<-formed@component
+     ((=ucs              . #x51B0)     ; 冰
+      ))
+    (->subsumptive
+     ((==ucs-itaiji-002          . #x51B0)     ; &g2-U-i002+51B0;
+      ))
+    ))
+(define-char
   '((ideographic-radical . 15) ; ⼎
     (ideographic-strokes . 4)
     (total-strokes      . 6)