From 5094edccd2abe0e52d59ec564d9ae7ca85c21549 Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Sun, 24 Dec 2017 14:53:02 +0900
Subject: [PATCH] (A-cgnU+3521): New abstract node. (U+3521): Add
 `<-denotational' for A-cgnU+3521; apply new conventions for
 glyph granularity. (U-00020892): Likewise.

---
 lisp/utf-2000/Ideograph-R019-Power.el |   75 +++++++++++++++++++++++++++++++--
 1 file changed, 71 insertions(+), 4 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 808ec57..76ef705 100644
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -4875,20 +4875,87 @@
   '((ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=>ucs@cognate	  . #x23B09)	; &A-cgnU+23B09;
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (=>ucs@cognate	. #x3521)	; &A-cgnU+3521;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs@cognate	  . #x3521)	; &A-cgnU+3521;
+      ))
+    (ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 10)
+    (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs		  . #x23B09)	; 𣬉
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (sound@ja/on/go	"heti")
+    (sound@ja/on/kan	"hetu")
     (=ucs		. #x3521)	; 㔡
     (=cns11643-4	. #x364B)	; &I-C4-364B; [22-43]
     (=daikanwa		. 02405)	; &I-M-02405;
+    (->formed
+     ((=mj		  . 033463)	; &MJ033463;
+      (=daikanwa	  . 05940)	; &I-M-05940;
+      ))
+    (->formed*sources
+     jiyun daikanwa)
+    (->subsumptive
+     ((==daikanwa	  . 02405)	; &g2-M-02405;
+      )
+     ((==ucs@cns	  . #x3521)	; &g2-CU+3521;
+      (==cns11643-4	  . #x364B)	; &g2-CU+3521; [22-43]
+      )
+     ((==ucs@unicode	  . #x3521)	; &g2-UU+3521;
+      (==ucs@JP/hanazono  . nil)
+      ))
     ))
 (define-char
-  '((ideographic-radical . 19)	; ⼒
+  '((<-denotational
+     ((=>ucs@cognate	  . #x3521)	; &A-cgnU+3521;
+      ))
+    (ideographic-radical . 19)	; ⼒
     (ideographic-strokes . 10)
     (total-strokes	 . 12)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER LEFT TO RIGHT")
+      (=ucs		  . #x2FF0)	; â¿°
+      )
+     ((=ucs-itaiji-001	  . #x23B0B)	; &U-i001+23B0B;
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (sound@ja/on	"hetu")
     (=ucs		. #x20892)	; 𠢒
+    (=cns11643-6	. #x4671)	; &I-C6-4671; [38-81]
+    (=daikanwa		. 02406)	; &I-M-02406;
+    (<-same
+     ((=ucs		  . #x3521)	; 㔡
+      (=daikanwa	  . 02405)	; &I-M-02405;
+      ))
+    (<-same*sources
+     zihui-bu daikanwa)
     (->subsumptive
-     ((=daikanwa	  . 02406)	; &M-02406;
+     ((==daikanwa	  . 02406)	; &g2-M-02406;
       )
-     ((=ucs@iso		  . #x20892)	; &C6-4671;
-      (=cns11643-6	  . #x4671)	; &C6-4671; [38-81]
+     ((==ucs@iso	  . #x20892)	; &g2-IU-00020892;
+      (==cns11643-6	  . #x4671)	; &g2-IU-00020892; [38-81]
+      (->subsumptive
+       ((===cns11643-6	    . #x4671)	; &R-C6-4671; [38-81]
+	)
+       ((===ucs@iso	    . #x20892)	; &R-U-00020892;
+	))
       ))
     ))
 (define-char
-- 
1.7.10.4