- Use `=>decomposition@fraction' instead of `->decomposition' for

  compatibility decomposition mapping tagged `fraction'.
- Use `<-compat/Roman-Numeral' instead of `->decomposition' for
  compatibility mapping from Roman-Numeral to single character.
- Use `=>decomposition@compat/Roman-Numeral' instead of
  `->decomposition' for compatibility mapping from Roman-Numeral.

diff --git a/lisp/utf-2000/u02150-Number-Forms.el b/lisp/utf-2000/u02150-Number-Forms.el
index a201854..523e657 100644 (file)
--- a/lisp/utf-2000/u02150-Number-Forms.el
+++ b/lisp/utf-2000/u02150-Number-Forms.el
@@ -5,7 +5,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 1/3)
-    (->decomposition   fraction #x0031 #x2044 #x0033)
+    (=>decomposition@fraction
+     ((name              . "DIGIT ONE")
+      (=ucs              . #x0031)     ; 1
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT THREE")
+      (=ucs              . #x0033)     ; 3
+      ))
     (=ucs              . #x2153)       ; ⅓
     (=ks-x1001         . #x2877)       ; &I-K0-2877; [08-87]
     (=jis-x0213-1-2000 . #x2778)       ; &I-JX1-2778; [07-88]
@@ -16,7 +25,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 2/3)
-    (->decomposition   fraction #x0032 #x2044 #x0033)
+    (=>decomposition@fraction
+     ((name              . "DIGIT TWO")
+      (=ucs              . #x0032)     ; 2
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT THREE")
+      (=ucs              . #x0033)     ; 3
+      ))
     (=ucs              . #x2154)       ; ⅔
     (=ks-x1001         . #x2878)       ; &I-K0-2878; [08-88]
     (=jis-x0213-1-2000 . #x2779)       ; &I-JX1-2779; [07-89]
@@ -27,7 +45,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 1/5)
-    (->decomposition   fraction #x0031 #x2044 #x0035)
+    (=>decomposition@fraction
+     ((name              . "DIGIT ONE")
+      (=ucs              . #x0031)     ; 1
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      ))
     (=ucs              . #x2155)       ; ⅕
     (=jis-x0213-1-2000 . #x277A)       ; &I-JX1-277A; [07-90]
     ))
@@ -37,7 +64,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 2/5)
-    (->decomposition   fraction #x0032 #x2044 #x0035)
+    (=>decomposition@fraction
+     ((name              . "DIGIT TWO")
+      (=ucs              . #x0032)     ; 2
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      ))
     (=ucs              . #x2156)       ; ⅖
     ))
 (define-char
@@ -46,7 +82,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 3/5)
-    (->decomposition   fraction #x0033 #x2044 #x0035)
+    (=>decomposition@fraction
+     ((name              . "DIGIT THREE")
+      (=ucs              . #x0033)     ; 3
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      ))
     (=ucs              . #x2157)       ; ⅗
     ))
 (define-char
@@ -55,7 +100,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 4/5)
-    (->decomposition   fraction #x0034 #x2044 #x0035)
+    (=>decomposition@fraction
+     ((name              . "DIGIT FOUR")
+      (=ucs              . #x0034)     ; 4
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      ))
     (=ucs              . #x2158)       ; ⅘
     ))
 (define-char
@@ -64,7 +118,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 1/6)
-    (->decomposition   fraction #x0031 #x2044 #x0036)
+    (=>decomposition@fraction
+     ((name              . "DIGIT ONE")
+      (=ucs              . #x0031)     ; 1
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT SIX")
+      (=ucs              . #x0036)     ; 6
+      ))
     (=ucs              . #x2159)       ; ⅙
     ))
 (define-char
@@ -73,7 +136,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 5/6)
-    (->decomposition   fraction #x0035 #x2044 #x0036)
+    (=>decomposition@fraction
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT SIX")
+      (=ucs              . #x0036)     ; 6
+      ))
     (=ucs              . #x215A)       ; ⅚
     ))
 (define-char
@@ -82,7 +154,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 1/8)
-    (->decomposition   fraction #x0031 #x2044 #x0038)
+    (=>decomposition@fraction
+     ((name              . "DIGIT ONE")
+      (=ucs              . #x0031)     ; 1
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT EIGHT")
+      (=ucs              . #x0038)     ; 8
+      ))
     (=ucs              . #x215B)       ; ⅛
     (=ks-x1001         . #x287B)       ; &I-K0-287B; [08-91]
     ))
@@ -92,7 +173,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 3/8)
-    (->decomposition   fraction #x0033 #x2044 #x0038)
+    (=>decomposition@fraction
+     ((name              . "DIGIT THREE")
+      (=ucs              . #x0033)     ; 3
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT EIGHT")
+      (=ucs              . #x0038)     ; 8
+      ))
     (=ucs              . #x215C)       ; ⅜
     (=ks-x1001         . #x287C)       ; &I-K0-287C; [08-92]
     ))
@@ -102,7 +192,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 5/8)
-    (->decomposition   fraction #x0035 #x2044 #x0038)
+    (=>decomposition@fraction
+     ((name              . "DIGIT FIVE")
+      (=ucs              . #x0035)     ; 5
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT EIGHT")
+      (=ucs              . #x0038)     ; 8
+      ))
     (=ucs              . #x215D)       ; ⅝
     (=ks-x1001         . #x287D)       ; &I-K0-287D; [08-93]
     ))
@@ -112,7 +211,16 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 7/8)
-    (->decomposition   fraction #x0037 #x2044 #x0038)
+    (=>decomposition@fraction
+     ((name              . "DIGIT SEVEN")
+      (=ucs              . #x0037)     ; 7
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      )
+     ((name              . "DIGIT EIGHT")
+      (=ucs              . #x0038)     ; 8
+      ))
     (=ucs              . #x215E)       ; ⅞
     (=ks-x1001         . #x287E)       ; &I-K0-287E; [08-94]
     ))
@@ -122,7 +230,13 @@
     (bidi-category     . "ON")
     (mirrored          . nil)
     (numeric-value     . 1)
-    (->decomposition   fraction #x0031 #x2044)
+    (=>decomposition@fraction
+     ((name              . "DIGIT ONE")
+      (=ucs              . #x0031)     ; 1
+      )
+     ((name              . "FRACTION SLASH")
+      (=ucs              . #x2044)     ; ⁄
+      ))
     (=ucs              . #x215F)       ; ⅟
     ))
 (define-char
@@ -131,11 +245,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 1)
-    (->decomposition   compat #x0049)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL ONE")
       (=ucs              . #x2170)     ; ⅰ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
     (=ucs              . #x2160)       ; Ⅰ
     (=gb2312           . #x2271)       ; &I-G0-2271; [02-81]
     (=ks-x1001         . #x2530)       ; &I-K0-2530; [05-16]
@@ -150,11 +267,17 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 2)
-    (->decomposition   compat #x0049 #x0049)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL TWO")
       (=ucs              . #x2171)     ; ⅱ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
     (=ucs              . #x2161)       ; Ⅱ
     (=gb2312           . #x2272)       ; &I-G0-2272; [02-82]
     (=ks-x1001         . #x2531)       ; &I-K0-2531; [05-17]
@@ -169,11 +292,20 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 3)
-    (->decomposition   compat #x0049 #x0049 #x0049)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL THREE")
       (=ucs              . #x2172)     ; ⅲ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
     (=ucs              . #x2162)       ; Ⅲ
     (=gb2312           . #x2273)       ; &I-G0-2273; [02-83]
     (=ks-x1001         . #x2532)       ; &I-K0-2532; [05-18]
@@ -188,11 +320,17 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 4)
-    (->decomposition   compat #x0049 #x0056)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL FOUR")
       (=ucs              . #x2173)     ; ⅳ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER V")
+      (=ucs              . #x0056)     ; V
+      ))
     (=ucs              . #x2163)       ; Ⅳ
     (=gb2312           . #x2274)       ; &I-G0-2274; [02-84]
     (=ks-x1001         . #x2533)       ; &I-K0-2533; [05-19]
@@ -207,11 +345,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 5)
-    (->decomposition   compat #x0056)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL FIVE")
       (=ucs              . #x2174)     ; ⅴ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER V")
+      (=ucs              . #x0056)     ; V
+      ))
     (=ucs              . #x2164)       ; Ⅴ
     (=gb2312           . #x2275)       ; &I-G0-2275; [02-85]
     (=ks-x1001         . #x2534)       ; &I-K0-2534; [05-20]
@@ -226,11 +367,17 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 6)
-    (->decomposition   compat #x0056 #x0049)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL SIX")
       (=ucs              . #x2175)     ; ⅵ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER V")
+      (=ucs              . #x0056)     ; V
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
     (=ucs              . #x2165)       ; Ⅵ
     (=gb2312           . #x2276)       ; &I-G0-2276; [02-86]
     (=ks-x1001         . #x2535)       ; &I-K0-2535; [05-21]
@@ -245,11 +392,20 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 7)
-    (->decomposition   compat #x0056 #x0049 #x0049)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL SEVEN")
       (=ucs              . #x2176)     ; ⅶ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER V")
+      (=ucs              . #x0056)     ; V
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
     (=ucs              . #x2166)       ; Ⅶ
     (=gb2312           . #x2277)       ; &I-G0-2277; [02-87]
     (=ks-x1001         . #x2536)       ; &I-K0-2536; [05-22]
@@ -264,11 +420,23 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 8)
-    (->decomposition   compat #x0056 #x0049 #x0049 #x0049)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL EIGHT")
       (=ucs              . #x2177)     ; ⅷ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER V")
+      (=ucs              . #x0056)     ; V
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
     (=ucs              . #x2167)       ; Ⅷ
     (=gb2312           . #x2278)       ; &I-G0-2278; [02-88]
     (=ks-x1001         . #x2537)       ; &I-K0-2537; [05-23]
@@ -283,11 +451,17 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 9)
-    (->decomposition   compat #x0049 #x0058)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL NINE")
       (=ucs              . #x2178)     ; ⅸ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER X")
+      (=ucs              . #x0058)     ; X
+      ))
     (=ucs              . #x2168)       ; Ⅸ
     (=gb2312           . #x2279)       ; &I-G0-2279; [02-89]
     (=ks-x1001         . #x2538)       ; &I-K0-2538; [05-24]
@@ -302,11 +476,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 10)
-    (->decomposition   compat #x0058)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL TEN")
       (=ucs              . #x2179)     ; ⅹ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER X")
+      (=ucs              . #x0058)     ; X
+      ))
     (=ucs              . #x2169)       ; Ⅹ
     (=gb2312           . #x227A)       ; &I-G0-227A; [02-90]
     (=ks-x1001         . #x2539)       ; &I-K0-2539; [05-25]
@@ -321,11 +498,17 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 11)
-    (->decomposition   compat #x0058 #x0049)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL ELEVEN")
       (=ucs              . #x217A)     ; ⅺ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER X")
+      (=ucs              . #x0058)     ; X
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
     (=ucs              . #x216A)       ; Ⅺ
     (=gb2312           . #x227B)       ; &I-G0-227B; [02-91]
     (=jis-x0213-1-2000 . #x2D3F)       ; &I-JX1-2D3F; [13-31]
@@ -336,11 +519,20 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 12)
-    (->decomposition   compat #x0058 #x0049 #x0049)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL TWELVE")
       (=ucs              . #x217B)     ; ⅻ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER X")
+      (=ucs              . #x0058)     ; X
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      )
+     ((name              . "LATIN CAPITAL LETTER I")
+      (=ucs              . #x0049)     ; I
+      ))
     (=ucs              . #x216B)       ; Ⅻ
     (=gb2312           . #x227C)       ; &I-G0-227C; [02-92]
     (=jis-x0213-1-2000 . #x2D57)       ; &I-JX1-2D57; [13-55]
@@ -351,11 +543,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 50)
-    (->decomposition   compat #x004C)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL FIFTY")
       (=ucs              . #x217C)     ; ⅼ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER L")
+      (=ucs              . #x004C)     ; L
+      ))
     (=ucs              . #x216C)       ; Ⅼ
     ))
 (define-char
@@ -364,11 +559,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 100)
-    (->decomposition   compat #x0043)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL ONE HUNDRED")
       (=ucs              . #x217D)     ; ⅽ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER C")
+      (=ucs              . #x0043)     ; C
+      ))
     (=ucs              . #x216D)       ; Ⅽ
     ))
 (define-char
@@ -377,11 +575,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 500)
-    (->decomposition   compat #x0044)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL FIVE HUNDRED")
       (=ucs              . #x217E)     ; ⅾ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER D")
+      (=ucs              . #x0044)     ; D
+      ))
     (=ucs              . #x216E)       ; Ⅾ
     ))
 (define-char
@@ -390,11 +591,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 1000)
-    (->decomposition   compat #x004D)
     (->lowercase
      ((name              . "SMALL ROMAN NUMERAL ONE THOUSAND")
       (=ucs              . #x217F)     ; ⅿ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN CAPITAL LETTER M")
+      (=ucs              . #x004D)     ; M
+      ))
     (=ucs              . #x216F)       ; Ⅿ
     ))
 (define-char
@@ -403,11 +607,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 1)
-    (->decomposition   compat #x0069)
     (->uppercase
      ((name              . "ROMAN NUMERAL ONE")
       (=ucs              . #x2160)     ; Ⅰ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
     (=ucs              . #x2170)       ; ⅰ
     (=ks-x1001         . #x2521)       ; &I-K0-2521; [05-01]
     (=cns11643-1       . #x2635)       ; &I-C1-2635; [06-21]
@@ -421,11 +628,17 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 2)
-    (->decomposition   compat #x0069 #x0069)
     (->uppercase
      ((name              . "ROMAN NUMERAL TWO")
       (=ucs              . #x2161)     ; Ⅱ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
     (=ucs              . #x2171)       ; ⅱ
     (=ks-x1001         . #x2522)       ; &I-K0-2522; [05-02]
     (=cns11643-1       . #x2636)       ; &I-C1-2636; [06-22]
@@ -439,11 +652,20 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 3)
-    (->decomposition   compat #x0069 #x0069 #x0069)
     (->uppercase
      ((name              . "ROMAN NUMERAL THREE")
       (=ucs              . #x2162)     ; Ⅲ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
     (=ucs              . #x2172)       ; ⅲ
     (=ks-x1001         . #x2523)       ; &I-K0-2523; [05-03]
     (=cns11643-1       . #x2637)       ; &I-C1-2637; [06-23]
@@ -457,11 +679,17 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 4)
-    (->decomposition   compat #x0069 #x0076)
     (->uppercase
      ((name              . "ROMAN NUMERAL FOUR")
       (=ucs              . #x2163)     ; Ⅳ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER V")
+      (=ucs              . #x0076)     ; v
+      ))
     (=ucs              . #x2173)       ; ⅳ
     (=ks-x1001         . #x2524)       ; &I-K0-2524; [05-04]
     (=cns11643-1       . #x2638)       ; &I-C1-2638; [06-24]
@@ -475,11 +703,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 5)
-    (->decomposition   compat #x0076)
     (->uppercase
      ((name              . "ROMAN NUMERAL FIVE")
       (=ucs              . #x2164)     ; Ⅴ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER V")
+      (=ucs              . #x0076)     ; v
+      ))
     (=ucs              . #x2174)       ; ⅴ
     (=ks-x1001         . #x2525)       ; &I-K0-2525; [05-05]
     (=cns11643-1       . #x2639)       ; &I-C1-2639; [06-25]
@@ -493,11 +724,17 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 6)
-    (->decomposition   compat #x0076 #x0069)
     (->uppercase
      ((name              . "ROMAN NUMERAL SIX")
       (=ucs              . #x2165)     ; Ⅵ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER V")
+      (=ucs              . #x0076)     ; v
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
     (=ucs              . #x2175)       ; ⅵ
     (=ks-x1001         . #x2526)       ; &I-K0-2526; [05-06]
     (=cns11643-1       . #x263A)       ; &I-C1-263A; [06-26]
@@ -511,11 +748,20 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 7)
-    (->decomposition   compat #x0076 #x0069 #x0069)
     (->uppercase
      ((name              . "ROMAN NUMERAL SEVEN")
       (=ucs              . #x2166)     ; Ⅶ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER V")
+      (=ucs              . #x0076)     ; v
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
     (=ucs              . #x2176)       ; ⅶ
     (=ks-x1001         . #x2527)       ; &I-K0-2527; [05-07]
     (=cns11643-1       . #x263B)       ; &I-C1-263B; [06-27]
@@ -529,11 +775,23 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 8)
-    (->decomposition   compat #x0076 #x0069 #x0069 #x0069)
     (->uppercase
      ((name              . "ROMAN NUMERAL EIGHT")
       (=ucs              . #x2167)     ; Ⅷ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER V")
+      (=ucs              . #x0076)     ; v
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
     (=ucs              . #x2177)       ; ⅷ
     (=ks-x1001         . #x2528)       ; &I-K0-2528; [05-08]
     (=cns11643-1       . #x263C)       ; &I-C1-263C; [06-28]
@@ -547,11 +805,17 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 9)
-    (->decomposition   compat #x0069 #x0078)
     (->uppercase
      ((name              . "ROMAN NUMERAL NINE")
       (=ucs              . #x2168)     ; Ⅸ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER X")
+      (=ucs              . #x0078)     ; x
+      ))
     (=ucs              . #x2178)       ; ⅸ
     (=ks-x1001         . #x2529)       ; &I-K0-2529; [05-09]
     (=cns11643-1       . #x263D)       ; &I-C1-263D; [06-29]
@@ -565,11 +829,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 10)
-    (->decomposition   compat #x0078)
     (->uppercase
      ((name              . "ROMAN NUMERAL TEN")
       (=ucs              . #x2169)     ; Ⅹ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER X")
+      (=ucs              . #x0078)     ; x
+      ))
     (=ucs              . #x2179)       ; ⅹ
     (=ks-x1001         . #x252A)       ; &I-K0-252A; [05-10]
     (=cns11643-1       . #x263E)       ; &I-C1-263E; [06-30]
@@ -583,11 +850,17 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 11)
-    (->decomposition   compat #x0078 #x0069)
     (->uppercase
      ((name              . "ROMAN NUMERAL ELEVEN")
       (=ucs              . #x216A)     ; Ⅺ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER X")
+      (=ucs              . #x0078)     ; x
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
     (=ucs              . #x217A)       ; ⅺ
     (=jis-x0213-1-2000 . #x2C3F)       ; &I-JX1-2C3F; [12-31]
     ))
@@ -597,11 +870,20 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 12)
-    (->decomposition   compat #x0078 #x0069 #x0069)
     (->uppercase
      ((name              . "ROMAN NUMERAL TWELVE")
       (=ucs              . #x216B)     ; Ⅻ
       ))
+    (=>decomposition@compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER X")
+      (=ucs              . #x0078)     ; x
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      )
+     ((name              . "LATIN SMALL LETTER I")
+      (=ucs              . #x0069)     ; i
+      ))
     (=ucs              . #x217B)       ; ⅻ
     (=jis-x0213-1-2000 . #x2C40)       ; &I-JX1-2C40; [12-32]
     ))
@@ -611,11 +893,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 50)
-    (->decomposition   compat #x006C)
     (->uppercase
      ((name              . "ROMAN NUMERAL FIFTY")
       (=ucs              . #x216C)     ; Ⅼ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER L")
+      (=ucs              . #x006C)     ; l
+      ))
     (=ucs              . #x217C)       ; ⅼ
     ))
 (define-char
@@ -624,11 +909,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 100)
-    (->decomposition   compat #x0063)
     (->uppercase
      ((name              . "ROMAN NUMERAL ONE HUNDRED")
       (=ucs              . #x216D)     ; Ⅽ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER C")
+      (=ucs              . #x0063)     ; c
+      ))
     (=ucs              . #x217D)       ; ⅽ
     ))
 (define-char
@@ -637,11 +925,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 500)
-    (->decomposition   compat #x0064)
     (->uppercase
      ((name              . "ROMAN NUMERAL FIVE HUNDRED")
       (=ucs              . #x216E)     ; Ⅾ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER D")
+      (=ucs              . #x0064)     ; d
+      ))
     (=ucs              . #x217E)       ; ⅾ
     ))
 (define-char
@@ -650,11 +941,14 @@
     (bidi-category     . "L")
     (mirrored          . nil)
     (numeric-value     . 1000)
-    (->decomposition   compat #x006D)
     (->uppercase
      ((name              . "ROMAN NUMERAL ONE THOUSAND")
       (=ucs              . #x216F)     ; Ⅿ
       ))
+    (<-compat/Roman-Numeral
+     ((name              . "LATIN SMALL LETTER M")
+      (=ucs              . #x006D)     ; m
+      ))
     (=ucs              . #x217F)       ; ⅿ
     ))
 (define-char