From 171955451aa221a44e82c24fed5509f42abb21af Mon Sep 17 00:00:00 2001
From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 24 Jun 2021 15:18:35 +0900
Subject: [PATCH] (A-U+6740-itaiji-003): New abstract node.
 (U+6740-itaiji-003): New character; use `<-denotational'
 for A-U+6740-itaiji-003.

---
 lisp/utf-2000/Ideograph-R019-Power.el |   42 +++++++++++++++++++++++++++++----
 1 file changed, 37 insertions(+), 5 deletions(-)

diff --git a/lisp/utf-2000/Ideograph-R019-Power.el b/lisp/utf-2000/Ideograph-R019-Power.el
index 9bd8ddc..913d106 100644
--- a/lisp/utf-2000/Ideograph-R019-Power.el
+++ b/lisp/utf-2000/Ideograph-R019-Power.el
@@ -762,9 +762,9 @@
     (=koseki		. 026810)	; &MJ012942;
     (=daikanwa		. 02308)	; &I-M-02308;
     (<-formed
-     ((=ucs@unicode	  . #x3A7B)	; &C4-2D40;
-      (=cns11643-4	  . #x2D40)	; &C4-2D40; [13-32]
-      (=daikanwa	  . 13072)	; &I-M-13072;
+     ((=ucs@unicode	  . #x3A7B)	; &MJ001498;
+      (=mj		  . 001498)	; &MJ001498;
+      (=koseki		  . 147400)	; &MJ001498;
       )
      ((=ucs@unicode	  . #x6532)	; &AJ1-17718;
       (=adobe-japan1-5	  . 17718)	; &AJ1-17718;
@@ -776,8 +776,8 @@
     (<-formed*sources
      koseki mj)
     (<-same
-     ((=ucs@unicode	  . #x3A7B)	; &C4-2D40;
-      (=cns11643-4	  . #x2D40)	; &C4-2D40; [13-32]
+     ((=ucs@unicode	  . #x3A7B)	; &MJ001498;
+      (=mj		  . 001498)	; &MJ001498;
       (=daikanwa	  . 13072)	; &I-M-13072;
       ))
     (<-same*sources
@@ -1903,6 +1903,38 @@
     (=gt-pj-9		. #x4057)	; &I-GT-00068; [32-55]
     ))
 (define-char
+  '((ideographic-radical . 19)	; ⼒
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=>ucs@iwds-1	  . #x51FA)	; &A-IWDSU+51FA;
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (=>ucs-itaiji-003	. #x6740)	; &A-U-i003+6740;
+    ))
+(define-char
+  '((<-denotational
+     ((=>ucs-itaiji-003	  . #x6740)	; &A-U-i003+6740;
+      ))
+    (ideographic-radical . 19)	; ⼒
+    (ideographic-strokes . 5)
+    (total-strokes	 . 7)
+    (ideographic-structure
+     ((name . "IDEOGRAPHIC DESCRIPTION CHARACTER ABOVE TO BELOW")
+      (=ucs		  . #x2FF1)	; ⿱
+      )
+     ((=ucs		  . #x51FA)	; 出
+      )
+     ((=ucs		  . #x529B)	; 力
+      ))
+    (=ucs-itaiji-003	. #x6740)	; &U-i003+6740;
+    (->subsumptive
+     ((==ucs-itaiji-003	  . #x6740)	; &g2-U-i003+6740;
+      ))
+    ))
+(define-char
   '((<-denotational
      ((==>ucs@bucs	  . #x5026)	; &BUCS+5026;
       ))
-- 
1.7.10.4