281 files changed, 8759 insertions, 2294 deletions
diff --git a/.gitignore b/.gitignore
index 7434f6212..64c49b008 100644
--- a/.gitignore
+++ b/.gitignore
@@ -43,6 +43,7 @@ TAGS
 .DS_Store
 .pc
 bin/
+_build_ci
 _build
 myocamlbuild_config.ml
 config/Makefile
@@ -122,10 +123,10 @@ g_*.ml
 ide/project_file.ml
 parsing/compat.ml
 parsing/cLexer.ml
-ltac/coretactics.ml
-ltac/extratactics.ml
-ltac/extraargs.ml
-ltac/profile_ltac_tactics.ml
+plugins/ltac/coretactics.ml
+plugins/ltac/extratactics.ml
+plugins/ltac/extraargs.ml
+plugins/ltac/profile_ltac_tactics.ml
 ide/coqide_main.ml
 plugins/ssrmatching/ssrmatching.ml
 
diff --git a/.merlin b/.merlin
index 7410e601b..bda18d549 100644
--- a/.merlin
+++ b/.merlin
@@ -34,6 +34,8 @@ S stm
 B stm
 S toplevel
 B toplevel
+S vernac
+B vernac
 
 S tools
 B tools
diff --git a/.travis.yml b/.travis.yml
new file mode 100644
index 000000000..7138d5c61
--- /dev/null
+++ b/.travis.yml
@@ -0,0 +1,123 @@
+dist: trusty
+# Travis builds are slower using sudo: false (the container-based
+# infrastructure) as of March 2017; see
+# https://github.com/coq/coq/pull/467 for some discussion.
+sudo: required
+# Until Ocaml becomes a language, we set a known one.
+language: c
+cache:
+  apt: true
+  directories:
+  - $HOME/.opam
+addons:
+  apt:
+    sources:
+    - avsm
+    packages:
+    - opam
+    - aspcud
+    - gcc-multilib
+env:
+  global:
+  - NJOBS=2
+  # system is == 4.02.3
+  - COMPILER="system"
+  # Main test suites
+  matrix:
+  - TEST_TARGET="test-suite" COMPILER="4.02.3+32bit"
+  - TEST_TARGET="validate"                           TW="travis_wait"
+  - TEST_TARGET="validate"   COMPILER="4.02.3+32bit" TW="travis_wait"
+  - TEST_TARGET="ci-color"
+  - TEST_TARGET="ci-compcert"
+  - TEST_TARGET="ci-coquelicot"
+  - TEST_TARGET="ci-geocoq"
+  - TEST_TARGET="ci-fiat-crypto"
+  - TEST_TARGET="ci-fiat-parsers"
+  - TEST_TARGET="ci-flocq"
+  - TEST_TARGET="ci-hott"
+  - TEST_TARGET="ci-iris-coq"
+  - TEST_TARGET="ci-math-classes"
+  - TEST_TARGET="ci-math-comp"
+  - TEST_TARGET="ci-sf"
+  - TEST_TARGET="ci-unimath"
+  # Not ready yet for 8.7
+  # - TEST_TARGET="ci-cpdt"
+  # - TEST_TARGET="ci-metacoq"
+  # - TEST_TARGET="ci-tlc"
+
+matrix:
+
+  allow_failures:
+  - env: TEST_TARGET="ci-geocoq"
+
+  # Full Coq test-suite with two compilers
+  # [TODO: use yaml refs and avoid duplication for packages list]
+  include:
+    - env:
+      - TEST_TARGET="test-suite"
+      - EXTRA_CONF="-coqide opt -with-doc yes"
+      - EXTRA_OPAM="lablgtk-extras hevea"
+      addons:
+        apt:
+          sources:
+          - avsm
+          packages:
+          - opam
+          - aspcud
+          - libgtk2.0-dev
+          - libgtksourceview2.0-dev
+          - texlive-latex-base
+          - texlive-latex-recommended
+          - texlive-latex-extra
+          - texlive-math-extra
+          - texlive-fonts-recommended
+          - texlive-fonts-extra
+          - latex-xcolor
+          - ghostscript
+          - transfig
+          - imagemagick
+    - env:
+      - TEST_TARGET="test-suite"
+      - COMPILER="4.04.0"
+      - EXTRA_CONF="-coqide opt -with-doc yes"
+      - EXTRA_OPAM="lablgtk-extras hevea"
+      addons:
+        apt:
+          sources:
+          - avsm
+          packages:
+          - opam
+          - aspcud
+          - libgtk2.0-dev
+          - libgtksourceview2.0-dev
+          - texlive-latex-base
+          - texlive-latex-recommended
+          - texlive-latex-extra
+          - texlive-math-extra
+          - texlive-fonts-recommended
+          - texlive-fonts-extra
+          - latex-xcolor
+          - ghostscript
+          - transfig
+          - imagemagick
+
+install:
+- opam init -j ${NJOBS} --compiler=${COMPILER} -n -y
+- eval $(opam config env)
+- opam config var root
+- opam install -j ${NJOBS} -y camlp5 ocamlfind ${EXTRA_OPAM}
+- opam list
+
+script:
+
+- echo 'Configuring Coq...' && echo -en 'travis_fold:start:coq.config\\r'
+- ./configure -local -usecamlp5 -native-compiler yes ${EXTRA_CONF}
+- echo -en 'travis_fold:end:coq.config\\r'
+
+- echo 'Building Coq...' && echo -en 'travis_fold:start:coq.build\\r'
+- make -j ${NJOBS}
+- echo -en 'travis_fold:end:coq.build\\r'
+
+- echo 'Running tests...' && echo -en 'travis_fold:start:coq.test\\r'
+- ${TW} make -j ${NJOBS} ${TEST_TARGET}
+- echo -en 'travis_fold:end:coq.test\\r'
diff --git a/CHANGES b/CHANGES
index 090f7c13b..a7cba9aa4 100644
--- a/CHANGES
+++ b/CHANGES
@@ -7,6 +7,25 @@ Tactics
   functional extensionality in H supposed to be a quantified equality
   until giving a bare equality.
 
+Libraries
+
+- New file PropExtensionality.v to explicitly work in the axiomatic
+  context of propositional extensionality.
+- New file SetoidChoice.v axiomatically providing choice over setoids,
+  and, consequently, choice of representatives in equivalence classes.
+  Various proof-theoretic characterizations of choice over setoids in
+  file ChoiceFacts.v.
+
+Changes from V8.6beta1 to V8.6
+==============================
+
+Kernel
+
+- Fixed critical bug #5248 in VM long multiplication on 32-bit
+  architectures. Was there only since 8.6beta1, so no stable release impacted.
+
+Other bug fixes in universes, type class shelving,...
+
 Changes from V8.5 to V8.6beta1
 ==============================
 
diff --git a/INSTALL b/INSTALL
index df9e85527..9454bba4a 100644
--- a/INSTALL
+++ b/INSTALL
@@ -29,17 +29,18 @@ WHAT DO YOU NEED ?
 
    To compile Coq V8.6 yourself, you need:
 
-   - Objective Caml version 4.01.0 or later
+   - OCaml version 4.02.1 or later
      (available at http://caml.inria.fr/)
 
+     OCaml version 4.02.0 is not supported because of a severe performance
+     issue increasing compilation time.
+
    - Findlib (included in OCaml binary distribution under windows,
      probably available in your distribution and for sure at
      http://projects.camlcity.org/projects/findlib.html)
 
    - Camlp5 (version >= 6.02) (Coq compiles with Camlp4 but might be
-     less well supported, for instance, Objective Caml version 4.02.1
-     is then needed or a patched version of 4.01.0 as e.g. version
-     4.01.0-4 in Debian Jessie)
+     less well supported)
 
    - GNU Make version 3.81 or later
 
@@ -65,8 +66,8 @@ INSTALLATION PROCEDURE IN DETAILS (NORMAL USERS).
    computer and that "ocamlc" (or, better, its native code version
    "ocamlc.opt") lies in a directory which is present in your $PATH
    environment variable. At the time of writing this sentence, all
-   versions of Objective Caml later or equal to 4.01.0 are
-   supported to the exception of Objective Caml 4.02.0.
+   versions of Objective Caml later or equal to 4.02.1 are
+   supported.
 
    To get Coq in native-code, (it runs 4 to 10 times faster than
    bytecode, but it takes more time to get compiled and the binary is
diff --git a/INSTALL.ide b/INSTALL.ide
index cb7ca325f..513e37c91 100644
--- a/INSTALL.ide
+++ b/INSTALL.ide
@@ -22,7 +22,7 @@ Else, read the rest of this document to compile your own CoqIde.
 
 COMPILATION REQUIREMENTS
 
-- OCaml >= 4.01 with native threads support.
+- OCaml >= 4.02.1 with native threads support.
 - make world must succeed.
 - The graphical toolkit GTK+ 2.x. See http://www.gtk.org.
   The official supported version is at least 2.24.x.
diff --git a/META.coq b/META.coq
index 5be69d5fd..83134d4a0 100644
--- a/META.coq
+++ b/META.coq
@@ -1,5 +1,15 @@
+# TODO: Move to META.in once coq_makefile2 is merged.
+# We need to reuse:
+# - The variable substitution mechanism.
+# - Sourcing of "coq_install_path" and "coq_version" variables.
+#
+# With this rules, we would have:
+#  version = ${coq_version}
+# and
+#  linkopts(byte)   = "-dllpath ${coq_install_path}/kernel/byterun/ -dllib -lcoqrun"
+
 description = "The Coq Proof Assistant Plugin API"
-version = "8.6"
+version = "8.7"
 
 directory = ""
 requires = "camlp5"
@@ -7,7 +17,7 @@ requires = "camlp5"
 package "config" (
 
   description = "Coq Configuration Variables"
-  version     = "8.6"
+  version     = "8.7"
 
   directory   = "config"
 
@@ -16,7 +26,7 @@ package "config" (
 package "lib" (
 
   description = "Base Coq Library"
-  version     = "8.6"
+  version     = "8.7"
 
   directory   = "lib"
 
@@ -33,22 +43,16 @@ package "lib" (
 package "vm" (
 
   description = "Coq VM"
+  version     = "8.7"
 
-  version     = "8.6"
-
-# EJGA FIXME: Unfortunately dllpath is dependent on the type of Coq
-# install. In a local one we'll want kernel/byterun, in a non-local
-# one we want to set it to coqlib. We should thus generate this file
-# at configure time, but let's hear for some more feedback from
-# experts.
+  directory        = "kernel/byterun"
 
-# Enable for local native & byte builds
-#  directory        = "kernel/byterun"
+# We should generate this file at configure time for local byte builds
+# to work properly.
 
-# Enable for local byte builds and set up properly
-#  linkopts(byte)   = "-dllpath /path/to/coq/kernel/byterun/ -dllib -lcoqrun"
+# Enable this setting for local byte builds, disabling the one below.
+#  linkopts(byte)   = "-dllpath path_to_coq/kernel/byterun/ -dllib -lcoqrun"
 
-# Disable for local byte builds
   linkopts(byte)   = "-dllib -lcoqrun"
   linkopts(native) = "-cclib -lcoqrun"
 
@@ -56,8 +60,8 @@ package "vm" (
 
 package "kernel" (
 
-  description = "The Coq's Kernel"
-  version     = "8.6"
+  description = "Coq's Kernel"
+  version     = "8.7"
 
   directory   = "kernel"
 
@@ -71,7 +75,7 @@ package "kernel" (
 package "library" (
 
   description = "Coq Libraries (vo) support"
-  version     = "8.6"
+  version     = "8.7"
 
   requires    = "coq.kernel"
 
@@ -85,7 +89,7 @@ package "library" (
 package "intf" (
 
   description = "Coq Public Data Types"
-  version     = "8.6"
+  version     = "8.7"
 
   requires    = "coq.library"
 
@@ -95,8 +99,8 @@ package "intf" (
 
 package "engine" (
 
-  description = "Coq Libraries (vo) support"
-  version     = "8.6"
+  description = "Coq Tactic Engine"
+  version     = "8.7"
 
   requires    = "coq.library"
   directory   = "engine"
@@ -109,7 +113,7 @@ package "engine" (
 package "pretyping" (
 
   description = "Coq Pretyper"
-  version     = "8.6"
+  version     = "8.7"
 
   requires    = "coq.engine"
   directory   = "pretyping"
@@ -122,7 +126,7 @@ package "pretyping" (
 package "interp" (
 
   description = "Coq Term Interpretation"
-  version     = "8.6"
+  version     = "8.7"
 
   requires    = "coq.pretyping"
   directory   = "interp"
@@ -135,7 +139,7 @@ package "interp" (
 package "grammar" (
 
   description = "Coq Base Grammar"
-  version     = "8.6"
+  version     = "8.7"
 
   requires    = "coq.interp"
   directory   = "grammar"
@@ -147,7 +151,7 @@ package "grammar" (
 package "proofs" (
 
   description = "Coq Proof Engine"
-  version     = "8.6"
+  version     = "8.7"
 
   requires    = "coq.interp"
   directory   = "proofs"
@@ -160,7 +164,7 @@ package "proofs" (
 package "parsing" (
 
   description = "Coq Parsing Engine"
-  version     = "8.6"
+  version     = "8.7"
 
   requires    = "coq.proofs"
   directory   = "parsing"
@@ -172,8 +176,8 @@ package "parsing" (
 
 package "printing" (
 
-  description = "Coq Printing Libraries"
-  version     = "8.6"
+  description = "Coq Printing Engine"
+  version     = "8.7"
 
   requires    = "coq.parsing"
   directory   = "printing"
@@ -185,8 +189,8 @@ package "printing" (
 
 package "tactics" (
 
-  description = "Coq Tactics"
-  version     = "8.6"
+  description = "Coq Basic Tactics"
+  version     = "8.7"
 
   requires    = "coq.printing"
   directory   = "tactics"
@@ -196,12 +200,25 @@ package "tactics" (
 
 )
 
+package "vernac" (
+
+  description = "Coq Vernacular Interpreter"
+  version     = "8.7"
+
+  requires    = "coq.tactics"
+  directory   = "vernac"
+
+  archive(byte)    = "vernac.cma"
+  archive(native)  = "vernac.cmxa"
+
+)
+
 package "stm" (
 
   description = "Coq State Transactional Machine"
-  version     = "8.6"
+  version     = "8.7"
 
-  requires    = "coq.tactics"
+  requires    = "coq.vernac"
   directory   = "stm"
 
   archive(byte)    = "stm.cma"
@@ -212,7 +229,7 @@ package "stm" (
 package "toplevel" (
 
   description = "Coq Toplevel"
-  version     = "8.6"
+  version     = "8.7"
 
   requires    = "coq.stm"
   directory   = "toplevel"
@@ -225,7 +242,7 @@ package "toplevel" (
 package "highparsing" (
 
   description = "Coq Extra Parsing"
-  version     = "8.6"
+  version     = "8.7"
 
   requires    = "coq.toplevel"
   directory   = "parsing"
@@ -238,12 +255,12 @@ package "highparsing" (
 package "ltac" (
 
   description = "Coq LTAC Plugin"
-  version     = "8.6"
+  version     = "8.7"
 
   requires    = "coq.highparsing"
-  directory   = "ltac"
+  directory   = "plugins/ltac"
 
-  archive(byte)    = "ltac.cma"
-  archive(native)  = "ltac.cmxa"
+  archive(byte)    = "ltac_plugin.cmo"
+  archive(native)  = "ltac_plugin.cmx"
 
 )
diff --git a/Makefile b/Makefile
index 0f9619c01..e1d6e8e1d 100644
--- a/Makefile
+++ b/Makefile
@@ -246,6 +246,11 @@ devdocclean:
 	rm -f $(OCAMLDOCDIR)/html/*.html
 
 ###########################################################################
+# Continuous Intregration Tests
+###########################################################################
+include Makefile.ci
+
+###########################################################################
 # Emacs tags
 ###########################################################################
 
diff --git a/Makefile.ci b/Makefile.ci
new file mode 100644
index 000000000..897318c4d
--- /dev/null
+++ b/Makefile.ci
@@ -0,0 +1,11 @@
+CI_TARGETS=ci-all ci-hott ci-math-comp ci-compcert ci-sf ci-cpdt \
+           ci-color ci-math-classes ci-tlc ci-fiat-crypto ci-fiat-parsers \
+           ci-coquelicot ci-flocq ci-iris-coq ci-metacoq ci-geocoq \
+           ci-unimath
+
+.PHONY: $(CI_TARGETS)
+
+# Generic rule, we use make to easy travis integraton with mixed rules
+$(CI_TARGETS): ci-%:
+	./dev/ci/ci-$*.sh
+
diff --git a/Makefile.common b/Makefile.common
index 49fe1fd93..1e71bcf7d 100644
--- a/Makefile.common
+++ b/Makefile.common
@@ -53,16 +53,16 @@ INSTALLSH:=./install.sh
 MKDIR:=install -d
 
 CORESRCDIRS:=\
-  config 	lib		kernel		kernel/byterun	library \
-  proofs 	tactics 	pretyping	interp		stm \
-  toplevel	parsing 	printing	intf	engine	ltac
+  config 	lib		kernel	intf	kernel/byterun	library \
+  engine 	pretyping	interp	proofs	parsing 	printing \
+  tactics 	vernac		stm		toplevel
 
 PLUGINDIRS:=\
   omega		romega 		micromega 	quote \
   setoid_ring 	extraction 	fourier \
   cc 		funind 		firstorder 	derive \
   rtauto 	nsatz           syntax          decl_mode	btauto \
-  ssrmatching
+  ssrmatching	ltac
 
 SRCDIRS:=\
   $(CORESRCDIRS)  \
@@ -77,14 +77,13 @@ BYTERUN:=$(addprefix kernel/byterun/, \
   coq_fix_code.o coq_memory.o coq_values.o coq_interp.o )
 
 # LINK ORDER:
-# Beware that highparsing.cma should appear before ltac.cma
 # respecting this order is useful for developers that want to load or link
 # the libraries directly
 
 CORECMA:=lib/clib.cma lib/lib.cma kernel/kernel.cma library/library.cma \
         engine/engine.cma pretyping/pretyping.cma interp/interp.cma proofs/proofs.cma \
-        parsing/parsing.cma printing/printing.cma tactics/tactics.cma \
-	stm/stm.cma toplevel/toplevel.cma parsing/highparsing.cma ltac/ltac.cma
+        parsing/parsing.cma printing/printing.cma tactics/tactics.cma vernac/vernac.cma \
+	stm/stm.cma toplevel/toplevel.cma parsing/highparsing.cma
 
 TOPLOOPCMA:=stm/proofworkertop.cma stm/tacworkertop.cma stm/queryworkertop.cma
 
@@ -120,9 +119,10 @@ OTHERSYNTAXCMO:=$(addprefix plugins/syntax/, \
         string_syntax_plugin.cmo )
 DECLMODECMO:=plugins/decl_mode/decl_mode_plugin.cmo
 DERIVECMO:=plugins/derive/derive_plugin.cmo
+LTACCMO:=plugins/ltac/ltac_plugin.cmo
 SSRMATCHINGCMO:=plugins/ssrmatching/ssrmatching_plugin.cmo
 
-PLUGINSCMO:=$(OMEGACMO) $(ROMEGACMO) $(MICROMEGACMO) $(DECLMODECMO) \
+PLUGINSCMO:=$(LTACCMO) $(OMEGACMO) $(ROMEGACMO) $(MICROMEGACMO) $(DECLMODECMO) \
         $(QUOTECMO) $(RINGCMO) \
         $(FOURIERCMO) $(EXTRACTIONCMO) \
         $(CCCMO)  $(FOCMO) $(RTAUTOCMO) $(BTAUTOCMO) \
diff --git a/Makefile.dev b/Makefile.dev
index 8c1812da1..ea6b8b919 100644
--- a/Makefile.dev
+++ b/Makefile.dev
@@ -121,10 +121,9 @@ pretyping: pretyping/pretyping.cma
 highparsing: parsing/highparsing.cma
 stm: stm/stm.cma
 toplevel: toplevel/toplevel.cma
-ltac: ltac/ltac.cma
 
 .PHONY: lib kernel byterun library proofs tactics interp parsing pretyping
-.PHONY: engine highparsing stm toplevel ltac
+.PHONY: engine highparsing stm toplevel
 
 ######################
 ### 3) theories files
@@ -183,6 +182,7 @@ RTAUTOVO:=$(filter plugins/rtauto/%, $(PLUGINSVO))
 EXTRACTIONVO:=$(filter plugins/extraction/%, $(PLUGINSVO))
 CCVO:=
 DERIVEVO:=$(filter plugins/derive/%, $(PLUGINSVO))
+LTACVO:=$(filter plugins/ltac/%, $(PLUGINSVO))
 
 omega: $(OMEGAVO) $(OMEGACMO) $(ROMEGAVO) $(ROMEGACMO)
 micromega: $(MICROMEGAVO) $(MICROMEGACMO) $(CSDPCERT)
@@ -194,9 +194,10 @@ funind: $(FUNINDCMO) $(FUNINDVO)
 cc: $(CCVO) $(CCCMO)
 rtauto: $(RTAUTOVO) $(RTAUTOCMO)
 btauto: $(BTAUTOVO) $(BTAUTOCMO)
+ltac: $(LTACVO) $(LTACCMO)
 
 .PHONY: omega micromega setoid_ring nsatz extraction
-.PHONY: fourier funind cc rtauto btauto
+.PHONY: fourier funind cc rtauto btauto ltac
 
 #################################
 ### Misc other development rules
diff --git a/Makefile.doc b/Makefile.doc
index cdd9852e8..9ae20ba76 100644
--- a/Makefile.doc
+++ b/Makefile.doc
@@ -201,15 +201,17 @@ doc/refman/styles.hva: doc/common/styles/html/$(HTMLSTYLE)/styles.hva
 	$(INSTALLLIB) $< doc/refman
 
 INDEXES:= doc/refman/html/command-index.html doc/refman/html/tactic-index.html
-ALLINDEXES:= doc/refman/html/index.html $(INDEXES)
 
-refman-html-dir $(ALLINDEXES): doc/refman/Reference-Manual.html $(REFMANPNGFILES) \
+refman-html-dir $(INDEXES): doc/refman/html/index.html ;
+
+doc/refman/html/index.html: doc/refman/Reference-Manual.html $(REFMANPNGFILES) \
 	       doc/refman/cover.html doc/refman/styles.hva doc/refman/index.html
 	- rm -rf doc/refman/html
 	$(MKDIR) doc/refman/html
 	$(INSTALLLIB) $(REFMANPNGFILES) doc/refman/html
 	(cd doc/refman/html; $(HACHA) -nolinks -tocbis -o toc.html ../styles.hva ../Reference-Manual.html)
 	$(INSTALLLIB) doc/refman/cover.html doc/refman/html/index.html
+	@touch $(INDEXES)
 	-$(INSTALLLIB) doc/common/styles/html/$(HTMLSTYLE)/*.css doc/refman/html
 
 refman-quick:
diff --git a/Makefile.install b/Makefile.install
index 4800ea0b9..bde035551 100644
--- a/Makefile.install
+++ b/Makefile.install
@@ -104,11 +104,12 @@ install-library:
 	$(MKDIR) $(FULLCOQLIB)
 	$(INSTALLSH) $(FULLCOQLIB) $(LIBFILES) $(PLUGINS)
 	$(MKDIR) $(FULLCOQLIB)/user-contrib
+	$(MKDIR) $(FULLCOQLIB)/kernel/byterun
 ifndef CUSTOM
-	$(INSTALLLIB) $(DLLCOQRUN) $(FULLCOQLIB)
+	$(INSTALLLIB) $(DLLCOQRUN) $(FULLCOQLIB)/kernel/byterun
 endif
 ifeq ($(BEST),opt)
-	$(INSTALLLIB) $(LIBCOQRUN) $(FULLCOQLIB)
+	$(INSTALLLIB) $(LIBCOQRUN) $(FULLCOQLIB)/kernel/byterun
 	$(INSTALLSH) $(FULLCOQLIB) $(PLUGINSOPT)
 endif
 # csdpcert is not meant to be directly called by the user; we install
diff --git a/README.ci b/README.ci
new file mode 100644
index 000000000..dcf93cf00
--- /dev/null
+++ b/README.ci
@@ -0,0 +1,77 @@
+**WARNING:** This document is a work in progress and intended as a RFC.
+If you are not a Coq Developer, don't follow this instructions yet.
+
+Introduction
+============
+
+The Coq Travis CI infrastructure is meant to provide lightweight
+automatics testing of pull requests.
+
+More comprehensive testing is the responsability of Coq's [Jenkins CI
+server](https://ci.inria.fr/coq/) see, [XXX: add document] for
+instructions on how to add your development to Jenkins.
+
+How to submit your development for Coq Travis CI
+================================================
+
+Travis CI provides a convenient way to perform testing of Coq changes
+versus a set of curated libraries.
+
+Are you an author of a Coq library who would be interested in having
+the latest Coq changes validated against your development?
+
+If so, keep reading! Getting Coq changes tested against your library
+is easy, all that you need to do is:
+
+1.- Put you development in a public repository tracking coq trunk.
+2.- Make sure that your development builds in less than 35 minutes.
+3.- Submit a PR adding you development.
+4.- ?
+5.- Profit! Your library is now part of Coq's continous integration!
+
+Note that by partipating in this program, you assume a reasonable
+compromise to discuss and eventually integrate compatibility changes
+upstream.
+
+Get in touch with us to discuss any special need your development may
+have.
+
+Maintaining your contribution manually [current method]
+======================================
+
+To add your contribution to the Coq Travis CI set, add a script for
+building your library to `dev/ci/`, update `.travis.yml` and
+`Makefile.ci`. Then, submit a PR.
+
+Maintaining your contribution as an OPAM package [work in progress] [to be implemented]
+================================================
+
+You can also provide an opam package for your contribution XXX at
+https://github.com/coq/opam-coq-archive
+
+Then, add a `ci-opam-XXX` target to the `.travis.yml` file, the
+package XXX.dev will be tested against each Coq commit and pull
+request.
+
+- TODO: The main question here is what to do with `.opam` caching. We
+  could disable it altogether, however this will have an impact. We
+  could install a dummy Coq package, but `coq-*` dependencies will be
+  botched too. Need to think more.
+
+PR Overlays [work in progress] [to be implemented]
+===========
+
+It is common for PR to break some of the external tests. To this
+purpose, we provide a method for particular PR to overlay the
+repositories of some of the tests so they can provide fixed
+developments.
+
+The general idea is that the PR author will drop a file
+`dev/ci/overlays/$branch.overlay` where branch name is taken from
+`${TRAVIS_PULL_REQUEST_BRANCH:-$TRAVIS_BRANCH}`
+that is to say, the name of the original branch for the PR.
+
+The `.overlay` file will contain a set of variables that will be used
+to do the corresponding `opam pin` or to overload the corresponding
+git repositories, etc...
+
diff --git a/configure b/configure
index 09585e59e..79c512f8a 100755
--- a/configure
+++ b/configure
@@ -26,7 +26,7 @@ done
 
 ## We check that $cmd is ok before the real exec $cmd
 
-`$cmd -version > /dev/null 2>&1` && exec $cmd $script "$@"
+`$cmd -version > /dev/null 2>&1` && exec $cmd -w "-3" $script "$@"
 
 ## If we're still here, something is wrong with $cmd
 
diff --git a/configure.ml b/configure.ml
index 989f2ee22..82ce931d6 100644
--- a/configure.ml
+++ b/configure.ml
@@ -12,10 +12,10 @@
 open Printf
 
 let coq_version = "trunk"
-let coq_macos_version = "8.4.90" (** "[...] should be a string comprised of
+let coq_macos_version = "8.6.90" (** "[...] should be a string comprised of
 three non-negative, period-separated integers [...]" *)
-let vo_magic = 8591
-let state_magic = 58591
+let vo_magic = 8691
+let state_magic = 58691
 let distributed_exec = ["coqtop";"coqc";"coqchk";"coqdoc";"coqmktop";"coqworkmgr";
 "coqdoc";"coq_makefile";"coq-tex";"gallina";"coqwc";"csdpcert";"coqdep"]
 
@@ -261,7 +261,7 @@ module Prefs = struct
   let withdoc = ref false
   let geoproof = ref false
   let byteonly = ref false
-  let debug = ref false
+  let debug = ref true
   let profile = ref false
   let annotate = ref false
   let nativecompiler = ref (not (os_type_win32 || os_type_cygwin))
@@ -336,7 +336,9 @@ let args_options = Arg.align [
   "-byteonly", Arg.Set Prefs.byteonly,
     " Compiles only bytecode version of Coq";
   "-debug", Arg.Set Prefs.debug,
-    " Add debugging information in the Coq executables";
+    " Deprecated";
+  "-nodebug", Arg.Clear Prefs.debug,
+    " Do not add debugging information in the Coq executables";
   "-profile", Arg.Set Prefs.profile,
     " Add profiling information in the Coq executables";
   "-annotate", Arg.Set Prefs.annotate,
@@ -381,7 +383,7 @@ let coq_debug_flag = if !Prefs.debug then "-g" else ""
 let coq_profile_flag = if !Prefs.profile then "-p" else ""
 let coq_annotate_flag =
   if !Prefs.annotate
-  then if program_in_path "ocamlmerlin" then "-bin-annot" else "-dtypes"
+  then if program_in_path "ocamlmerlin" then "-bin-annot" else "-annot"
   else ""
 
 let cflags = "-Wall -Wno-unused -g -O2"
@@ -487,19 +489,14 @@ let caml_version_nums =
          "Is it installed properly?")
 
 let check_caml_version () =
-  if caml_version_nums >= [4;1;0] then
-    if caml_version_nums = [4;2;0] && not !Prefs.force_caml_version then
-      die ("Your version of OCaml is 4.02.0 which suffers from a bug inducing\n" ^
-        "very slow compilation times. If you still want to use it, use \n" ^
-        "option -force-caml-version.\n")
-    else
-      printf "You have OCaml %s. Good!\n" caml_version
+  if caml_version_nums >= [4;2;1] then
+    printf "You have OCaml %s. Good!\n" caml_version
   else
     let () = printf "Your version of OCaml is %s.\n" caml_version in
     if !Prefs.force_caml_version then
       printf "*Warning* Your version of OCaml is outdated.\n"
     else
-      die "You need OCaml 4.01 or later."
+      die "You need OCaml 4.02.1 or later."
 
 let _ = check_caml_version ()
 
@@ -514,6 +511,20 @@ let camltag = match caml_version_list with
 (** * CamlpX configuration *)
 
 (* Convention: we use camldir as a prioritary location for camlpX, if given *)
+(* i.e., in the case of camlp5, we search for a copy of camlp5o which *)
+(* answers the right camlp5 lib dir *)
+
+let strip_slash dir =
+  let n = String.length dir in
+  if n>0 && dir.[n - 1] = '/' then String.sub dir 0 (n-1) else dir
+
+let which_camlp5o_for camlp5lib =
+  let camlp5o = Filename.concat camlbin "camlp5o" in
+  let camlp5lib = strip_slash camlp5lib in
+  if fst (tryrun camlp5o ["-where"]) = camlp5lib then camlp5o else
+  let camlp5o = which "camlp5o" in
+  if fst (tryrun camlp5o ["-where"]) = camlp5lib then camlp5o else
+  die ("Error: cannot find Camlp5 binaries corresponding to Camlp5 library " ^ camlp5lib)
 
 let which_camlpX base =
   let file = Filename.concat camlbin base in
@@ -528,7 +539,7 @@ let check_camlp5 testcma = match !Prefs.camlp5dir with
   | Some dir ->
     if Sys.file_exists (dir/testcma) then
       let camlp5o =
-        try which_camlpX "camlp5o"
+        try which_camlp5o_for dir
         with Not_found -> die "Error: cannot find Camlp5 binaries in path.\n" in
       dir, camlp5o
     else
@@ -549,18 +560,11 @@ let check_camlp5 testcma = match !Prefs.camlp5dir with
 let check_camlp5_version camlp5o =
   let version_line, _ = run ~err:StdOut camlp5o ["-v"] in
   let version = List.nth (string_split ' ' version_line) 2 in
-  match string_split '.' version with
+  match numeric_prefix_list version with
   | major::minor::_ when s2i major > 6 || (s2i major, s2i minor) >= (6,6) ->
     printf "You have Camlp5 %s. Good!\n" version; version
   | _ -> die "Error: unsupported Camlp5 (version < 6.06 or unrecognized).\n"
 
-let check_caml_version_for_camlp4 () =
-  if caml_version_nums = [4;1;0] && !Prefs.debug && not !Prefs.force_caml_version then
-    die ("Your version of OCaml is detected to be 4.01.0 which fails to compile\n" ^
-         "Coq in -debug mode with Camlp4. Remove -debug option or use a different\n" ^
-         "version of OCaml or use Camlp5, or bypass this test by using option\n" ^
-         "-force-caml-version.\n")
-
 let config_camlpX () =
   try
     if not !Prefs.usecamlp5 then raise NoCamlp5;
@@ -579,7 +583,6 @@ let config_camlpX () =
       let camlp4orf = which_camlpX "camlp4orf" in
       let version_line, _ = run ~err:StdOut camlp4orf ["-v"] in
       let camlp4_version = List.nth (string_split ' ' version_line) 2 in
-      check_caml_version_for_camlp4 ();
       "camlp4", camlp4orf, Filename.dirname camlp4orf, camlp4libdir, camlp4mod, camlp4_version
     with _ -> die "No Camlp4 installation found.\n"
 
@@ -923,7 +926,7 @@ let config_runtime () =
   | _ ->
     let ld="CAML_LD_LIBRARY_PATH" in
     build_loadpath := sprintf "export %s:='%s/kernel/byterun':$(%s)" ld coqtop ld;
-    ["-dllib";"-lcoqrun";"-dllpath";libdir]
+    ["-dllib";"-lcoqrun";"-dllpath";libdir/"kernel/byterun"]
 
 let vmbyteflags = config_runtime ()
 
diff --git a/dev/Makefile.oug b/dev/Makefile.oug
deleted file mode 100644
index ee69ea80d..000000000
--- a/dev/Makefile.oug
+++ /dev/null
@@ -1,74 +0,0 @@
-#######################################################################
-#  v      #   The Coq Proof Assistant  /  The Coq Development Team    #
-# <O___,, #        INRIA-Rocquencourt  &  LRI-CNRS-Orsay              #
-#   \VV/  #############################################################
-#    //   #      This file is distributed under the terms of the      #
-#         #       GNU Lesser General Public License Version 2.1       #
-#######################################################################
-
-
-#### Source Code Analysis via Oug ####
-#### Cf http://home.gna.org/oug ####
-
-
-# To be used from top dir : make -f dev/Makefile.oug ...
-
-include Makefile.build
-
-# Oug location: in the path by default, native version
-
-OUG:=oug.x
-
-# NB: coq should have been compiled with the same ocaml version as oug
-
-# NOTA: it seems we obtain more useless elements reported when _not_
-# providing the .mli files, and also when giving a precise start point.
-# TO BE INVESTIGATED
-
-ml_of_cma = $(patsubst %.cmo,%.ml,$(filter %.cmo,$(shell cat $(1:.cma=.mllib.d))))
-local_ml_of_cma = $(filter $(dir $(1))%,$(call ml_of_cma,$(1)))
-mli_of_ml = $(foreach ml,$(1),$(wildcard $(ml)i))
-
-# Analysis of coqtop, without plugins
-
-COREML:=config/coq_config.ml $(call ml_of_cma, $(CORECMA))
-COREMLI:=$(call mli_of_ml,$(COREML))
-
-core.oug:
-	$(OUG) --dump-data $@ -rectypes $(MLINCLUDES) $(COREML)
-
-core.useless: core.oug
-	$(OUG) --load-data $< --no-reduce --print-loc --roots "<Coqtop.start>" --useless-elements $@
-
-core_intf.oug:
-	$(OUG) --dump-data $@ -rectypes $(MLINCLUDES) $(COREML) $(COREMLI)
-
-core_intf.useless: core_intf.oug
-	$(OUG) --load-data $< --no-reduce --print-loc --roots "<Coqtop.start>" --useless-elements $@
-
-# Analysis of coqchk, considering only files in the checker/ subdir
-
-CHECKERML:=$(call local_ml_of_cma,checker/check.cma)
-CHECKERMLI:=$(call mli_of_ml,$(CHECKERML))
-
-## BUG: in oug, include dirs have reversed priority compared with ocaml, cannot use CHKLIBS
-MYCHKINCL:=$(MLINCLUDES) -I checker
-
-checker.oug:
-	$(OUG) --dump-data $@ -rectypes $(MYCHKINCL) $(CHECKERML) #$(CHECKERMLI)
-
-checker.useless: checker.oug
-	$(OUG) --load-data $< --no-reduce --print-loc --roots "<Checker.start>" --useless-elements $@
-
-# Analysis of extraction
-
-EXTRACTIONML:=$(call local_ml_of_cma,$(EXTRACTIONCMA))
-EXTRACTIONMLI:=$(call mli_of_ml,$(EXTRACTIONMLI))
-
-extraction.oug:
-	$(OUG) --dump-data $@ -rectypes $(MLINCLUDES) $(EXTRACTIONML) #$(EXTRACTIONMLI)
-
-extraction.useless: extraction.oug
-	$(OUG) --load-data $< --no-reduce --print-loc --useless-elements $@
-
-# More to come ...
-\ No newline at end of file
diff --git a/dev/base_include b/dev/base_include
index 0abcefc38..242405ae2 100644
--- a/dev/base_include
+++ b/dev/base_include
@@ -17,7 +17,7 @@
 #directory "grammar";;
 #directory "intf";;
 #directory "stm";;
-#directory "ltac";;
+#directory "vernac";;
 
 #directory "+camlp4";; (* lazy solution: add both of camlp4/5 so that *)
 #directory "+camlp5";; (* Gramext is found in top_printers.ml *)
@@ -195,7 +195,7 @@ let qid = Libnames.qualid_of_string;;
 (* parsing of terms *)
 
 let parse_constr = Pcoq.parse_string Pcoq.Constr.constr;;
-let parse_tac    = Pcoq.parse_string Pltac.tactic;;
+let parse_tac    = Pcoq.parse_string Ltac_plugin.Pltac.tactic;;
 let parse_vernac = Pcoq.parse_string Pcoq.Vernac_.vernac;;
 
 (* build a term of type glob_constr without type-checking or resolution of 
diff --git a/dev/build/windows/MakeCoq_86_abs_ocaml.bat b/dev/build/windows/MakeCoq_86_abs_ocaml.bat
new file mode 100644
index 000000000..50483c4d4
--- /dev/null
+++ b/dev/build/windows/MakeCoq_86_abs_ocaml.bat
@@ -0,0 +1,10 @@
+call MakeCoq_SetRootPath
+
+call MakeCoq_MinGW.bat ^
+  -arch=64 ^
+  -mode=absolute ^
+  -ocaml=Y ^
+  -make=Y ^
+  -coqver=8.6 ^
+  -destcyg=%ROOTPATH%\cygwin_coq64_86_abs ^
+  -destcoq=%ROOTPATH%\coq64_86_abs
diff --git a/dev/build/windows/MakeCoq_86_installer.bat b/dev/build/windows/MakeCoq_86_installer.bat
new file mode 100644
index 000000000..263520ff1
--- /dev/null
+++ b/dev/build/windows/MakeCoq_86_installer.bat
@@ -0,0 +1,8 @@
+call MakeCoq_SetRootPath
+
+call MakeCoq_MinGW.bat ^
+  -arch=64 ^
+  -installer=Y ^
+  -coqver=8.6 ^
+  -destcyg=%ROOTPATH%\cygwin_coq64_86_inst ^
+  -destcoq=%ROOTPATH%\coq64_86_inst
diff --git a/dev/build/windows/MakeCoq_86_installer_32.bat b/dev/build/windows/MakeCoq_86_installer_32.bat
new file mode 100644
index 000000000..14921dd7c
--- /dev/null
+++ b/dev/build/windows/MakeCoq_86_installer_32.bat
@@ -0,0 +1,8 @@
+call MakeCoq_SetRootPath
+
+call MakeCoq_MinGW.bat ^
+  -arch=32 ^
+  -installer=Y ^
+  -coqver=8.6 ^
+  -destcyg=%ROOTPATH%\cygwin_coq32_86_inst ^
+  -destcoq=%ROOTPATH%\coq32_86_inst
diff --git a/dev/build/windows/MakeCoq_86beta1_abs_ocaml.bat b/dev/build/windows/MakeCoq_86beta1_abs_ocaml.bat
new file mode 100644
index 000000000..914c332f4
--- /dev/null
+++ b/dev/build/windows/MakeCoq_86beta1_abs_ocaml.bat
@@ -0,0 +1,10 @@
+call MakeCoq_SetRootPath
+
+call MakeCoq_MinGW.bat ^
+  -arch=64 ^
+  -mode=absolute ^
+  -ocaml=Y ^
+  -make=Y ^
+  -coqver=8.6beta1 ^
+  -destcyg=%ROOTPATH%\cygwin_coq64_86beta1_abs ^
+  -destcoq=%ROOTPATH%\coq64_86beta1_abs
diff --git a/dev/build/windows/MakeCoq_86beta1_installer.bat b/dev/build/windows/MakeCoq_86beta1_installer.bat
new file mode 100644
index 000000000..76a5bb35a
--- /dev/null
+++ b/dev/build/windows/MakeCoq_86beta1_installer.bat
@@ -0,0 +1,8 @@
+call MakeCoq_SetRootPath
+
+call MakeCoq_MinGW.bat ^
+  -arch=64 ^
+  -installer=Y ^
+  -coqver=8.6beta1 ^
+  -destcyg=%ROOTPATH%\cygwin_coq64_86beta1_inst ^
+  -destcoq=%ROOTPATH%\coq64_86beta1_inst
diff --git a/dev/build/windows/MakeCoq_86beta1_installer_32.bat b/dev/build/windows/MakeCoq_86beta1_installer_32.bat
new file mode 100644
index 000000000..f53232b65
--- /dev/null
+++ b/dev/build/windows/MakeCoq_86beta1_installer_32.bat
@@ -0,0 +1,8 @@
+call MakeCoq_SetRootPath
+
+call MakeCoq_MinGW.bat ^
+  -arch=32 ^
+  -installer=Y ^
+  -coqver=8.6beta1 ^
+  -destcyg=%ROOTPATH%\cygwin_coq32_86beta1_inst ^
+  -destcoq=%ROOTPATH%\coq32_86beta1_inst
diff --git a/dev/build/windows/MakeCoq_86rc1_abs_ocaml.bat b/dev/build/windows/MakeCoq_86rc1_abs_ocaml.bat
new file mode 100644
index 000000000..c0669f01d
--- /dev/null
+++ b/dev/build/windows/MakeCoq_86rc1_abs_ocaml.bat
@@ -0,0 +1,10 @@
+call MakeCoq_SetRootPath
+
+call MakeCoq_MinGW.bat ^
+  -arch=64 ^
+  -mode=absolute ^
+  -ocaml=Y ^
+  -make=Y ^
+  -coqver=8.6rc1 ^
+  -destcyg=%ROOTPATH%\cygwin_coq64_86rc1_abs ^
+  -destcoq=%ROOTPATH%\coq64_86rc1_abs
diff --git a/dev/build/windows/MakeCoq_86rc1_installer.bat b/dev/build/windows/MakeCoq_86rc1_installer.bat
new file mode 100644
index 000000000..66234ebbd
--- /dev/null
+++ b/dev/build/windows/MakeCoq_86rc1_installer.bat
@@ -0,0 +1,8 @@
+call MakeCoq_SetRootPath
+
+call MakeCoq_MinGW.bat ^
+  -arch=64 ^
+  -installer=Y ^
+  -coqver=8.6rc1 ^
+  -destcyg=%ROOTPATH%\cygwin_coq64_86rc1_inst ^
+  -destcoq=%ROOTPATH%\coq64_86rc1_inst
diff --git a/dev/build/windows/MakeCoq_86rc1_installer_32.bat b/dev/build/windows/MakeCoq_86rc1_installer_32.bat
new file mode 100644
index 000000000..96f43e16a
--- /dev/null
+++ b/dev/build/windows/MakeCoq_86rc1_installer_32.bat
@@ -0,0 +1,8 @@
+call MakeCoq_SetRootPath
+
+call MakeCoq_MinGW.bat ^
+  -arch=32 ^
+  -installer=Y ^
+  -coqver=8.6rc1 ^
+  -destcyg=%ROOTPATH%\cygwin_coq32_86rc1_inst ^
+  -destcoq=%ROOTPATH%\coq32_86rc1_inst
diff --git a/dev/ci/ci-basic-overlay.sh b/dev/ci/ci-basic-overlay.sh
new file mode 100644
index 000000000..da5b42579
--- /dev/null
+++ b/dev/ci/ci-basic-overlay.sh
@@ -0,0 +1,103 @@
+#!/usr/bin/env bash
+
+# This is the basic overlay set for repositories in the CI.
+
+# Maybe we should just use Ruby to have real objects...
+
+########################################################################
+# MathComp
+########################################################################
+: ${mathcomp_CI_BRANCH:=master}
+: ${mathcomp_CI_GITURL:=https://github.com/math-comp/math-comp.git}
+
+########################################################################
+# UniMath
+########################################################################
+: ${UniMath_CI_BRANCH:=master}
+: ${UniMath_CI_GITURL:=https://github.com/UniMath/UniMath.git}
+
+########################################################################
+# Unicoq + Metacoq
+########################################################################
+: ${unicoq_CI_BRANCH:=master}
+: ${unicoq_CI_GITURL:=https://github.com/unicoq/unicoq.git}
+
+: ${metacoq_CI_BRANCH:=master}
+: ${metacoq_CI_GITURL:=https://github.com/MetaCoq/MetaCoq.git}
+
+########################################################################
+# Mathclasses + Corn
+########################################################################
+: ${math_classes_CI_BRANCH:=v8.6}
+: ${math_classes_CI_GITURL:=https://github.com/math-classes/math-classes.git}
+
+: ${Corn_CI_BRANCH:=v8.6}
+: ${Corn_CI_GITURL:=https://github.com/c-corn/corn.git}
+
+########################################################################
+# Iris
+########################################################################
+: ${stdpp_CI_BRANCH:=master}
+: ${stdpp_CI_GITURL:=https://gitlab.mpi-sws.org/robbertkrebbers/coq-stdpp.git}
+
+: ${Iris_CI_BRANCH:=master}
+: ${Iris_CI_GITURL:=https://gitlab.mpi-sws.org/FP/iris-coq.git}
+
+########################################################################
+# HoTT
+########################################################################
+: ${HoTT_CI_BRANCH:=mz-8.7}
+: ${HoTT_CI_GITURL:=https://github.com/ejgallego/HoTT.git}
+
+########################################################################
+# GeoCoq
+########################################################################
+: ${GeoCoq_CI_BRANCH:=master}
+: ${GeoCoq_CI_GITURL:=https://github.com/GeoCoq/GeoCoq.git}
+
+########################################################################
+# Flocq
+########################################################################
+: ${Flocq_CI_BRANCH:=master}
+: ${Flocq_CI_GITURL:=https://scm.gforge.inria.fr/anonscm/git/flocq/flocq.git}
+
+########################################################################
+# Coquelicot
+########################################################################
+: ${Coquelicot_CI_BRANCH:=master}
+: ${Coquelicot_CI_GITURL:=https://scm.gforge.inria.fr/anonscm/git/coquelicot/coquelicot.git}
+
+########################################################################
+# Coquelicot
+########################################################################
+: ${CompCert_CI_BRANCH:=master}
+: ${CompCert_CI_GITURL:=https://github.com/AbsInt/CompCert.git}
+
+########################################################################
+# fiat_parsers
+########################################################################
+: ${fiat_parsers_CI_BRANCH:=master}
+: ${fiat_parsers_CI_GITURL:=https://github.com/mit-plv/fiat.git}
+
+########################################################################
+# fiat_crypto
+########################################################################
+: ${fiat_crypto_CI_BRANCH:=master}
+: ${fiat_crypto_CI_GITURL:=https://github.com/mit-plv/fiat-crypto.git}
+
+########################################################################
+# CoLoR
+########################################################################
+: ${Color_CI_SVNURL:=https://scm.gforge.inria.fr/anonscm/svn/color/trunk/color}
+
+########################################################################
+# SF
+########################################################################
+: ${sf_CI_TARURL:=https://www.cis.upenn.edu/~bcpierce/sf/current/sf.tgz}
+
+########################################################################
+# TLC
+########################################################################
+: ${tlc_CI_BRANCH:=master}
+: ${tlc_CI_GITURL:=https://gforge.inria.fr/git/tlc/tlc.git}
+
diff --git a/dev/ci/ci-color.sh b/dev/ci/ci-color.sh
new file mode 100755
index 000000000..3f0716511
--- /dev/null
+++ b/dev/ci/ci-color.sh
@@ -0,0 +1,10 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+Color_CI_DIR=${CI_BUILD_DIR}/color
+
+svn checkout ${Color_CI_SVNURL} ${Color_CI_DIR}
+
+( cd ${Color_CI_DIR} && make -j ${NJOBS} )
diff --git a/dev/ci/ci-common.sh b/dev/ci/ci-common.sh
new file mode 100644
index 000000000..c94f15026
--- /dev/null
+++ b/dev/ci/ci-common.sh
@@ -0,0 +1,62 @@
+#!/usr/bin/env bash
+
+set -xe
+
+# Coq's tools need an ending slash :S, we should fix them.
+export COQBIN=`pwd`/bin/
+export PATH=`pwd`/bin:$PATH
+
+ls `pwd`/bin
+
+# Where we clone and build external developments
+CI_BUILD_DIR=`pwd`/_build_ci
+
+source ${ci_dir}/ci-user-overlay.sh
+source ${ci_dir}/ci-basic-overlay.sh
+
+mathcomp_CI_DIR=${CI_BUILD_DIR}/math-comp
+
+# git_checkout branch url dest will create a git repository
+# in <dest> (if it does not exist already) and checkout the
+# remote branch <branch> from <url>
+git_checkout()
+{
+  local _BRANCH=${1}
+  local _URL=${2}
+  local _DEST=${3}
+
+  mkdir -p ${_DEST}
+  ( cd ${_DEST}                                                && \
+    if [ ! -d .git ] ; then git clone --depth 1 ${_URL} . ; fi && \
+    echo "Checking out ${_DEST}"                               && \
+    git fetch ${_URL} ${_BRANCH}                               && \
+    git checkout FETCH_HEAD                                    && \
+    echo "${_DEST}: `git log -1 --format='%s | %H | %cd | %aN'`" )
+}
+
+checkout_mathcomp()
+{
+  git_checkout ${mathcomp_CI_BRANCH} ${mathcomp_CI_GITURL} ${1}
+}
+
+# this installs just the ssreflect library of math-comp
+install_ssreflect()
+{
+  echo 'Installing ssreflect' && echo -en 'travis_fold:start:ssr.install\\r'
+
+  checkout_mathcomp ${mathcomp_CI_DIR}
+  ( cd ${mathcomp_CI_DIR}/mathcomp   && \
+    sed -i.bak '/ssrtest/d'     Make && \
+    sed -i.bak '/odd_order/d'   Make && \
+    sed -i.bak '/all\/all.v/d'  Make && \
+    sed -i.bak '/character/d'   Make && \
+    sed -i.bak '/real_closed/d' Make && \
+    sed -i.bak '/solvable/d'    Make && \
+    sed -i.bak '/field/d'       Make && \
+    sed -i.bak '/fingroup/d'    Make && \
+    sed -i.bak '/algebra/d'     Make && \
+    make Makefile.coq && make -f Makefile.coq -j ${NJOBS} all && make install )
+
+  echo -en 'travis_fold:end:ssr.install\\r'
+
+}
diff --git a/dev/ci/ci-compcert.sh b/dev/ci/ci-compcert.sh
new file mode 100755
index 000000000..c78ffdc2c
--- /dev/null
+++ b/dev/ci/ci-compcert.sh
@@ -0,0 +1,12 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+CompCert_CI_DIR=${CI_BUILD_DIR}/CompCert
+
+opam install -j ${NJOBS} -y menhir
+git_checkout ${CompCert_CI_BRANCH} ${CompCert_CI_GITURL} ${CompCert_CI_DIR}
+
+# Patch to avoid the upper version limit
+( cd ${CompCert_CI_DIR} && sed -i.bak 's/8.6)/8.6|trunk)/' configure && ./configure x86_32-linux && make -j ${NJOBS} )
diff --git a/dev/ci/ci-coquelicot.sh b/dev/ci/ci-coquelicot.sh
new file mode 100755
index 000000000..40eff03b7
--- /dev/null
+++ b/dev/ci/ci-coquelicot.sh
@@ -0,0 +1,12 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+Coquelicot_CI_DIR=${CI_BUILD_DIR}/coquelicot
+
+install_ssreflect
+
+git_checkout ${Coquelicot_CI_BRANCH} ${Coquelicot_CI_GITURL} ${Coquelicot_CI_DIR}
+
+( cd ${Coquelicot_CI_DIR} && ./autogen.sh && ./configure && ./remake -j${NJOBS} )
diff --git a/dev/ci/ci-cpdt.sh b/dev/ci/ci-cpdt.sh
new file mode 100755
index 000000000..0e791ebbf
--- /dev/null
+++ b/dev/ci/ci-cpdt.sh
@@ -0,0 +1,10 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+wget http://adam.chlipala.net/cpdt/cpdt.tgz
+tar xvfz cpdt.tgz
+
+( cd cpdt && make clean && make -j ${NJOBS} )
+
diff --git a/dev/ci/ci-fiat-crypto.sh b/dev/ci/ci-fiat-crypto.sh
new file mode 100755
index 000000000..93d39aab0
--- /dev/null
+++ b/dev/ci/ci-fiat-crypto.sh
@@ -0,0 +1,10 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+fiat_crypto_CI_DIR=${CI_BUILD_DIR}/fiat-crypto
+
+git_checkout ${fiat_crypto_CI_BRANCH} ${fiat_crypto_CI_GITURL} ${fiat_crypto_CI_DIR}
+
+( cd ${fiat_crypto_CI_DIR} && make -j ${NJOBS} )
diff --git a/dev/ci/ci-fiat-parsers.sh b/dev/ci/ci-fiat-parsers.sh
new file mode 100755
index 000000000..c62aa1d85
--- /dev/null
+++ b/dev/ci/ci-fiat-parsers.sh
@@ -0,0 +1,10 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+fiat_parsers_CI_DIR=${CI_BUILD_DIR}/fiat
+
+git_checkout ${fiat_parsers_CI_BRANCH} ${fiat_parsers_CI_GITURL} ${fiat_parsers_CI_DIR}
+
+( cd ${fiat_parsers_CI_DIR} && make -j ${NJOBS} parsers )
diff --git a/dev/ci/ci-flocq.sh b/dev/ci/ci-flocq.sh
new file mode 100755
index 000000000..ec19bd993
--- /dev/null
+++ b/dev/ci/ci-flocq.sh
@@ -0,0 +1,10 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+Flocq_CI_DIR=${CI_BUILD_DIR}/flocq
+
+git_checkout ${Flocq_CI_BRANCH} ${Flocq_CI_GITURL} ${Flocq_CI_DIR}
+
+( cd ${Flocq_CI_DIR} && ./autogen.sh && ./configure && ./remake -j${NJOBS} )
diff --git a/dev/ci/ci-geocoq.sh b/dev/ci/ci-geocoq.sh
new file mode 100755
index 000000000..4e5aa2687
--- /dev/null
+++ b/dev/ci/ci-geocoq.sh
@@ -0,0 +1,16 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+GeoCoq_CI_DIR=${CI_BUILD_DIR}/GeoCoq
+
+git_checkout ${GeoCoq_CI_BRANCH} ${GeoCoq_CI_GITURL} ${GeoCoq_CI_DIR}
+
+( cd ${GeoCoq_CI_DIR}                                     && \
+  ./configure.sh                                          && \
+  sed -i.bak '/Ch16_coordinates_with_functions\.v/d' Make && \
+  sed -i.bak '/Elements\/Book_1\.v/d'                Make && \
+  sed -i.bak '/Elements\/Book_3\.v/d'                Make && \
+  coq_makefile -f Make -o Makefile                        && \
+  make -j ${NJOBS} )
diff --git a/dev/ci/ci-hott.sh b/dev/ci/ci-hott.sh
new file mode 100755
index 000000000..1bf6e9a87
--- /dev/null
+++ b/dev/ci/ci-hott.sh
@@ -0,0 +1,10 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+HoTT_CI_DIR=${CI_BUILD_DIR}/HoTT
+
+git_checkout ${HoTT_CI_BRANCH} ${HoTT_CI_GITURL} ${HoTT_CI_DIR}
+
+( cd ${HoTT_CI_DIR} && ./autogen.sh && ./configure && make -j ${NJOBS} )
diff --git a/dev/ci/ci-iris-coq.sh b/dev/ci/ci-iris-coq.sh
new file mode 100755
index 000000000..eb1d1be07
--- /dev/null
+++ b/dev/ci/ci-iris-coq.sh
@@ -0,0 +1,22 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+stdpp_CI_DIR=${CI_BUILD_DIR}/coq-stdpp
+
+Iris_CI_DIR=${CI_BUILD_DIR}/iris-coq
+
+install_ssreflect
+
+# Setup stdpp
+
+git_checkout ${stdpp_CI_BRANCH} ${stdpp_CI_GITURL} ${stdpp_CI_DIR}
+
+( cd ${stdpp_CI_DIR} && make -j ${NJOBS} && make install )
+
+# Setup Iris
+
+git_checkout ${Iris_CI_BRANCH} ${Iris_CI_GITURL} ${Iris_CI_DIR}
+
+( cd ${Iris_CI_DIR} && make -j ${NJOBS} )
diff --git a/dev/ci/ci-math-classes.sh b/dev/ci/ci-math-classes.sh
new file mode 100755
index 000000000..beb75773b
--- /dev/null
+++ b/dev/ci/ci-math-classes.sh
@@ -0,0 +1,20 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+math_classes_CI_DIR=${CI_BUILD_DIR}/math-classes
+
+Corn_CI_DIR=${CI_BUILD_DIR}/corn
+
+# Setup Math-Classes
+
+git_checkout ${math_classes_CI_BRANCH} ${math_classes_CI_GITURL} ${math_classes_CI_DIR}
+
+( cd ${math_classes_CI_DIR} && make -j ${NJOBS} && make install )
+
+# Setup Corn
+
+git_checkout ${Corn_CI_BRANCH} ${Corn_CI_GITURL} ${Corn_CI_DIR}
+
+( cd ${Corn_CI_DIR} && make -j ${NJOBS} )
diff --git a/dev/ci/ci-math-comp.sh b/dev/ci/ci-math-comp.sh
new file mode 100755
index 000000000..bb8188da4
--- /dev/null
+++ b/dev/ci/ci-math-comp.sh
@@ -0,0 +1,15 @@
+#!/usr/bin/env bash
+
+# $0 is not the safest way, but...
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+mathcomp_CI_DIR=${CI_BUILD_DIR}/math-comp
+
+checkout_mathcomp ${mathcomp_CI_DIR}
+
+# odd_order takes too much time for travis.
+( cd ${mathcomp_CI_DIR}/mathcomp                  && \
+  sed -i.bak '/PFsection/d'                  Make && \
+  sed -i.bak '/stripped_odd_order_theorem/d' Make && \
+  make Makefile.coq && make -f Makefile.coq -j ${NJOBS} all )
diff --git a/dev/ci/ci-metacoq.sh b/dev/ci/ci-metacoq.sh
new file mode 100755
index 000000000..e31691179
--- /dev/null
+++ b/dev/ci/ci-metacoq.sh
@@ -0,0 +1,19 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+unicoq_CI_DIR=${CI_BUILD_DIR}/unicoq
+metacoq_CI_DIR=${CI_BUILD_DIR}/MetaCoq
+
+# Setup UniCoq
+
+git_checkout ${unicoq_CI_BRANCH} ${unicoq_CI_GITURL} ${unicoq_CI_DIR}
+
+( cd ${unicoq_CI_DIR} && coq_makefile -f Make -o Makefile && make -j ${NJOBS} && make install )
+
+# Setup MetaCoq
+
+git_checkout ${metacoq_CI_BRANCH} ${metacoq_CI_GITURL} ${metacoq_CI_DIR}
+
+( cd ${metacoq_CI_DIR} && coq_makefile -f _CoqProject -o Makefile && make -j ${NJOBS} )
diff --git a/dev/ci/ci-sf.sh b/dev/ci/ci-sf.sh
new file mode 100755
index 000000000..7d23ccad9
--- /dev/null
+++ b/dev/ci/ci-sf.sh
@@ -0,0 +1,12 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+# XXX: Needs fixing to properly set the build directory.
+wget ${sf_CI_TARURL}
+tar xvfz sf.tgz
+
+( cd sf && sed -i.bak 's/(K,N)/((K,N))/' LibTactics.v && make clean && make -j ${NJOBS} )
+
+
diff --git a/dev/ci/ci-template.sh b/dev/ci/ci-template.sh
new file mode 100755
index 000000000..700105aed
--- /dev/null
+++ b/dev/ci/ci-template.sh
@@ -0,0 +1,12 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+Template_CI_BRANCH=master
+Template_CI_GITURL=https://github.com/Template/Template
+Template_CI_DIR=${CI_BUILD_DIR}/Template
+
+git_checkout ${Template_CI_BRANCH} ${Template_CI_GITURL} ${Template_CI_DIR}
+
+( cd ${Template_CI_DIR} && make -j ${NJOBS} )
diff --git a/dev/ci/ci-tlc.sh b/dev/ci/ci-tlc.sh
new file mode 100755
index 000000000..ce2639937
--- /dev/null
+++ b/dev/ci/ci-tlc.sh
@@ -0,0 +1,10 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+tlc_CI_DIR=${CI_BUILD_DIR}/tlc
+
+git_checkout ${tlc_CI_BRANCH} ${tlc_CI_GITURL} ${tlc_CI_DIR}
+
+( cd ${tlc_CI_DIR} && make -j ${NJOBS} )
diff --git a/dev/ci/ci-unimath.sh b/dev/ci/ci-unimath.sh
new file mode 100755
index 000000000..175b82b5f
--- /dev/null
+++ b/dev/ci/ci-unimath.sh
@@ -0,0 +1,14 @@
+#!/usr/bin/env bash
+
+ci_dir="$(dirname "$0")"
+source ${ci_dir}/ci-common.sh
+
+UniMath_CI_DIR=${CI_BUILD_DIR}/UniMath
+
+git_checkout ${UniMath_CI_BRANCH} ${UniMath_CI_GITURL} ${UniMath_CI_DIR}
+
+( cd ${UniMath_CI_DIR}                        && \
+  sed -i.bak '/Folds/d'              Makefile && \
+  sed -i.bak '/HomologicalAlgebra/d' Makefile && \
+  make -j ${NJOBS} BUILD_COQ=no )
+
diff --git a/dev/ci/ci-user-overlay.sh b/dev/ci/ci-user-overlay.sh
new file mode 100644
index 000000000..028574743
--- /dev/null
+++ b/dev/ci/ci-user-overlay.sh
@@ -0,0 +1,22 @@
+#!/usr/bin/env bash
+
+# Add user overlays here. You can use some logic to detect if you are
+# in your travis branch and conditionally enable the overlay.
+
+# Some useful Travis variables:
+# (https://docs.travis-ci.com/user/environment-variables/#Default-Environment-Variables)
+#
+# - TRAVIS_BRANCH: For builds not triggered by a pull request this is
+#   the name of the branch currently being built; whereas for builds
+#   triggered by a pull request this is the name of the branch
+#   targeted by the pull request (in many cases this will be master).
+#
+# - TRAVIS_COMMIT: The commit that the current build is testing.
+#
+# - TRAVIS_PULL_REQUEST: The pull request number if the current job is
+#   a pull request, “false” if it’s not a pull request.
+#
+# - TRAVIS_PULL_REQUEST_BRANCH: If the current job is a pull request,
+#   the name of the branch from which the PR originated. "" if the
+#   current job is a push build.
+
diff --git a/dev/core.dbg b/dev/core.dbg
index 38b9b2946..f04e5c07b 100644
--- a/dev/core.dbg
+++ b/dev/core.dbg
@@ -12,7 +12,8 @@ load_printer proofs.cma
 load_printer parsing.cma
 load_printer printing.cma
 load_printer tactics.cma
+load_printer vernac.cma
 load_printer stm.cma
 load_printer toplevel.cma
 load_printer highparsing.cma
-load_printer ltac.cma
+load_printer ltac_plugin.cmo
diff --git a/dev/doc/api.txt b/dev/doc/api.txt
new file mode 100644
index 000000000..5827257b5
--- /dev/null
+++ b/dev/doc/api.txt
@@ -0,0 +1,10 @@
+Recommendations in using the API:
+
+The type of terms: constr (see kernel/constr.ml and kernel/term.ml)
+
+- On type constr, the canonical equality on CIC (up to
+  alpha-conversion and cast removal) is Constr.equal
+- The type constr is abstract, use mkRel, mkSort, etc. to build
+  elements in constr; use "kind_of_term" to analyze the head of a
+  constr; use destRel, destSort, etc. when the head constructor is
+  known
diff --git a/dev/doc/changes.txt b/dev/doc/changes.txt
index f54f3fcc8..12c3ec454 100644
--- a/dev/doc/changes.txt
+++ b/dev/doc/changes.txt
@@ -39,6 +39,26 @@ important things:
   instead
 - Some printing functions were moved from Pptactic to Pputils
 - A part of Tacexpr has been moved to Tactypes
+- The TacFun tactic expression constructor now takes a `Name.t list` for the 
+  variable list rather than an `Id.t option list`.
+
+The folder itself has been turned into a plugin. This does not change much,
+but because it is a packed plugin, it may wreak havoc for third-party plugins
+depending on any module defined in the ltac/ directory. Namely, even if
+everything looks OK at compile time, a plugin can fail to load at link time
+because it mistakenly looks for a module Foo instead of Ltac_plugin.Foo, with
+an error of the form:
+
+Error: while loading myplugin.cmxs, no implementation available for Foo.
+
+In particular, most EXTEND macros will trigger this problem even if they
+seemingly do not use any Ltac module, as their expansion do.
+
+The solution is simple, and consists in adding a statement "open Ltac_plugin"
+in each file using a Ltac module, before such a module is actually called. An
+alternative solution would be to fully qualify Ltac modules, e.g. turning any
+call to Tacinterp into Ltac_plugin.Tacinterp. Note that this solution does not
+work for EXTEND macros though.
 
 ** Error handling **
 
diff --git a/dev/doc/style.txt b/dev/doc/style.txt
index 27695a09b..2ee3dadd7 100644
--- a/dev/doc/style.txt
+++ b/dev/doc/style.txt
@@ -1,75 +1,142 @@
-
-<< L'uniformité du style est plus importante que le style lui-même. >>
-(Kernigan & Pike, The Practice of Programming)
-
-Mode Emacs
-==========
-   Tuareg, que l'on trouve ici :  http://www.prism.uvsq.fr/~acohen/tuareg/
-
-   avec le réglage suivant :     (setq tuareg-in-indent 2)
-
-Types récursifs et filtrages
-============================
-   Une barre de séparation y compris sur le premier constructeur
-
-type t =
-  | A 
-  | B of machin
-
-match expr with
-  | A -> ...
-  | B x -> ...
-
-Remarque : à partir de la 8.2 environ, la tendance est à utiliser le
-format suivant qui permet de limiter l'escalade d'indentation tout en
-produisant un aspect visuel intéressant de bloc :
-
-type t =
-| A 
-| B of machin
-
-match expr with
-| A -> ...
-| B x -> ...
-
-let f expr = match expr with
-| A -> ...
-| B x -> ...
-
-let f expr = function
-| A -> ...
-| B x -> ...
-
-Le deuxième cas est obtenu sous tuareg avec les réglages
-
-  (setq tuareg-with-indent 0)
-  (setq tuareg-function-indent 0)
-  (setq tuareg-let-always-indent nil) /// notons que cette dernière est bien 
-                                      /// pour les let mais pas pour les let-in
-
-Conditionnelles
-===============
-  if condition then
-    premier-cas
-  else
-    deuxieme-cas
-
-  Si effets de bord dans les branches, utilisez begin ... end et non des
-  parenthèses i.e.
-
-  if condition then begin
-    instr1;
-    instr2
-  end else begin
-    instr3;
-    instr4
-  end
-    
-  Si la première branche lève une exception, évitez le else i.e.
-
-    if condition then                     if condition then error "machin";
-      error "machin"          ----->      suite
+<< Style uniformity is more important than style itself >>
+   (Kernigan & Pike, The Practice of Programming)
+
+OCaml Style:
+- Spacing and indentation
+  - indent your code (using tuareg default)
+  - no strong constraints in formatting "let in"; possible styles are:
+    "let x = ... in"
+    "let x =
+       ... in"
+    "let
+       x = ...
+     in"
+  - but: no extra indentation before a "in" coming on next line,
+    otherwise, it first shifts further and further on the right,
+    reducing the amount of space available; second, it is not robust to
+    insertion of a new "let"
+  - it is established usage to have space around "|" as in
+    "match c with
+     | [] | [a] -> ...
+     | a::b::l -> ..."
+  - in a one-line "match", it is preferred to have no "|" in front of
+    the first case (this saves spaces for the match to hold in the line)
+  - from about 8.2, the tendency is to use the following format which
+    limit excessive indentation while providing an interesting "block" aspect
+    type t =
+    | A 
+    | B of machin
+
+    let f expr = match expr with
+    | A -> ...
+    | B x -> ...
+
+    let f expr = function
+    | A -> ...
+    | B x -> ...
+  - add spaces around = and == (make the code "breaths")
+  - the common usage is to write "let x,y = ... in ..." rather than
+    "let (x,y) = ... in ..."
+  - parenthesizing with either "(" and ")" or with "begin" and "end" is
+    common practice
+  - preferred layout for conditionals:
+    if condition then
+      premier-cas
     else
-      suite
-
-  
+      deuxieme-cas
+  - in case of effects in branches, use "begin ... end" rather than
+    parentheses
+    if condition then begin
+      instr1;
+      instr2
+    end else begin
+      instr3;
+      instr4
+    end
+  - if the first branch raises an exception, avoid the "else", i.e.:
+    if condition then                     if condition then error "foo";
+      error "foo"          ----->         bar
+    else
+      bar
+  - it is the usage not to use ;; to end OCaml sentences (however,
+    inserting ";;" can be useful for debugging syntax errors crossing
+    the boundary of functions)
+  - relevant options in tuareg:
+    (setq tuareg-in-indent 2)
+    (setq tuareg-with-indent 0)
+    (setq tuareg-function-indent 0)
+    (setq tuareg-let-always-indent nil)
+
+- Coding methodology
+  - no "try ... with _ -> ..." which catches even Sys.Break (Ctrl-C),
+    Out_of_memory, Stack_overflow, etc.
+    at least, use "try with e when Errors.noncritical e -> ..."
+    (to be detailed, Pierre L. ?)
+  - do not abuse of fancy combinators: sometimes what a "let rec" loop
+    does is more readable and simpler to grasp than what a "fold" does
+  - do not break abstractions: if an internal property is hidden
+    behind an interface, do no rely on it in code which uses this
+    interface (e.g. do not use List.map thinking it is left-to-right,
+    use map_left)
+  - in particular, do not use "=" on abstract types: there is no
+    reason a priori that it is the intended equality on this type; use the
+    "equal" function normally provided with the abstract type
+  - avoid polymorphically typed "=" whose implementation is not
+    optimized in OCaml and which has moreover no reason to be the
+    intended implementation of the equality when it comes to be
+    instantiated on a particular type (e.g. use List.mem_f,
+    List.assoc_f, rather than List.mem, List.assoc, etc, unless it is
+    absolutely clear that "=" will implement the intended equality, and
+    with the right complexity)
+  - any new general-purpose enough combinator on list should be put in
+    cList.ml, on type option in cOpt.ml, etc.
+  - unless of a good reason not to so, follow the style of the
+    surrounding code in the same file as much as possible,
+    the general guidelines are otherwise "let spacing breaths" (we
+    have large screen nowadays), "make your code easy to read and
+    to understand"
+  - document what is tricky, but do not overdocument, sometimes the
+    choice of names and the structuration of the code is a better
+    documentation than a long discourse; use of unicode in comments is
+    welcome if it can make comments more readable (then
+    "toggle-enable-multibyte-characters" can help when using the
+    debugger in emacs)
+  - all of initial "open File", or of small-scope File.(...), or
+    per-ident File.foo are common practices
+
+- Choice of variable names
+  - be consistent when naming from one function to another
+  - be consistent with the naming adopted in the functions from the
+    same file, or with the naming used elsewhere by similar functions
+  - use variable names which express meaning
+  - keep "cst" for constants and avoid it for constructors which is
+    otherwise a source of confusion
+  - for constructors, use "cstr" in type constructor (resp. "cstru" in
+    constructor puniverse); avoid "constr" for "constructor" which
+    could be think as the name of an arbitrary Constr.t
+  - for inductive types, use "ind" in the type inductive (resp "indu"
+    in inductive puniverse)
+  - for env, use "env"
+  - for evar_map, use "sigma", with tolerance into "evm" and "evd"
+  - for named_context or rel_context, use "ctxt" or "ctx" (or "sign")
+  - for formal/actual indices of inductive types: "realdecls", "realargs"
+  - for formal/actual parameters of inductive types: "paramdecls", "paramargs"
+  - for terms, use e.g. c, b, a, ...
+  - if a term is known to be a function: f, ...
+  - if a term is known to be a type: t, u, typ, ...
+  - for a declaration, use d or "decl"
+  - for errors, exceptions, use e
+
+- Common OCaml pitfalls
+  - in "match ... with Case1 -> try ... with ... -> ... | Case2 -> ...", or in
+    "match ... with Case1 -> match ... with SubCase -> ... | Case2 -> ...", or in
+    parentheses are needed around the "try" and the inner "match"
+  - even if stream are lazy, the Pp.(++) combinator is strict and
+    forces the evaluation of its arguments (use a "lazy" or a "fun () ->")
+    to make it lazy explicitly
+  - in "if ... then ... else ... ++ ...", the default parenthesizing
+    is somehow counter-intuitive; use "(if ... then ... else ...) ++ ..."
+  - in "let myspecialfun = mygenericfun args", be sure that it does no
+    do side-effect; prefer otherwise "let mygenericfun arg =
+    mygenericfun args arg" to ensure that the function is evaluated at
+    runtime
diff --git a/dev/include b/dev/include
index 9068688f1..0f43f0072 100644
--- a/dev/include
+++ b/dev/include
@@ -61,7 +61,7 @@
 (*#install_printer  (* hints_path *)  pphintspath;;*)
 #install_printer  (* goal *)  ppgoal;;
 (*#install_printer  (* sigma goal *)  ppsigmagoal;;*)
-(*#install_printer  (* proof *)  pproof;;*)
+#install_printer  (* proof *)  pproof;;
 #install_printer  (* Goal.goal *)  ppgoalgoal;;
 #install_printer  (* proofview *)  ppproofview;;
 #install_printer  (* metaset.t *) ppmetas;;
diff --git a/dev/ocamldebug-coq.run b/dev/ocamldebug-coq.run
index 46caca8d6..3850c05fd 100644
--- a/dev/ocamldebug-coq.run
+++ b/dev/ocamldebug-coq.run
@@ -20,7 +20,7 @@ exec $OCAMLDEBUG \
 	-I $COQTOP/config -I $COQTOP/printing -I $COQTOP/grammar \
 	-I $COQTOP/lib -I $COQTOP/intf -I $COQTOP/kernel -I $COQTOP/kernel/byterun \
 	-I $COQTOP/library -I $COQTOP/engine \
-	-I $COQTOP/pretyping -I $COQTOP/parsing \
+	-I $COQTOP/pretyping -I $COQTOP/parsing -I $COQTOP/vernac \
         -I $COQTOP/interp -I $COQTOP/proofs -I $COQTOP/tactics -I $COQTOP/stm \
 	-I $COQTOP/toplevel -I $COQTOP/dev -I $COQTOP/config -I $COQTOP/ltac \
         -I $COQTOP/plugins/cc         -I $COQTOP/plugins/dp \
@@ -32,6 +32,6 @@ exec $OCAMLDEBUG \
         -I $COQTOP/plugins/ring       -I $COQTOP/plugins/romega \
 	-I $COQTOP/plugins/rtauto     -I $COQTOP/plugins/setoid_ring \
         -I $COQTOP/plugins/subtac     -I $COQTOP/plugins/syntax \
-        -I $COQTOP/plugins/xml \
+        -I $COQTOP/plugins/xml        -I $COQTOP/plugins/ltac \
         -I $COQTOP/ide \
 	"$@"
diff --git a/dev/top_printers.ml b/dev/top_printers.ml
index b552d9994..dc354b130 100644
--- a/dev/top_printers.ml
+++ b/dev/top_printers.ml
@@ -200,7 +200,8 @@ let pppftreestate p = pp(print_pftreestate p)
 (* let ppsigmagoal g = pp(pr_goal (sig_it g)) *)
 (* let prgls gls = pp(pr_gls gls) *)
 (* let prglls glls = pp(pr_glls glls) *)
-(* let pproof p = pp(print_proof Evd.empty empty_named_context p) *)
+
+let pproof p = pp(Proof.pr_proof p)
 
 let ppuni u = pp(pr_uni u)
 let ppuni_level u = pp (Level.pr u)
@@ -233,7 +234,7 @@ let ppenvwithcst e = pp
    str "[" ++ pr_rel_context e Evd.empty (rel_context e) ++ str "]" ++ spc() ++
    str "{" ++ Cmap_env.fold (fun a _ s -> pr_con a ++ spc () ++ s) (Obj.magic e).Pre_env.env_globals.Pre_env.env_constants (mt ()) ++ str "}")
 
-let pptac = (fun x -> pp(Pptactic.pr_glob_tactic (Global.env()) x))
+let pptac = (fun x -> pp(Ltac_plugin.Pptactic.pr_glob_tactic (Global.env()) x))
 
 let ppobj obj = Format.print_string (Libobject.object_tag obj)
 
diff --git a/doc/refman/RefMan-pro.tex b/doc/refman/RefMan-pro.tex
index c37367de5..16c822b6a 100644
--- a/doc/refman/RefMan-pro.tex
+++ b/doc/refman/RefMan-pro.tex
@@ -477,15 +477,15 @@ names.
 \item{\tt Show Intro.}\comindex{Show Intro}\\
 If the current goal begins by at least one product, this command
 prints the name of the first product, as it would be generated by 
-an anonymous {\tt Intro}. The aim of this command is to ease the
+an anonymous {\tt intro}. The aim of this command is to ease the
 writing of more robust scripts. For example, with an appropriate 
 {\ProofGeneral} macro, it is possible to transform any anonymous {\tt
-  Intro} into a qualified one such as {\tt Intro y13}.
+  intro} into a qualified one such as {\tt intro y13}.
 In the case of a non-product goal, it prints nothing. 
 
 \item{\tt Show Intros.}\comindex{Show Intros}\\
 This command is similar to the previous one, it simulates the naming 
-process of an {\tt Intros}.
+process of an {\tt intros}.
 
 \item{\tt Show Existentials.\label{ShowExistentials}}\comindex{Show Existentials}
 \\ It displays
diff --git a/doc/refman/RefMan-syn.tex b/doc/refman/RefMan-syn.tex
index 1fcc1c0df..61093709e 100644
--- a/doc/refman/RefMan-syn.tex
+++ b/doc/refman/RefMan-syn.tex
@@ -59,6 +59,12 @@ and pretty-printer of {\Coq} already know how to deal with the
 syntactic expression (see \ref{ReservedNotation}), explicit precedences and
 associativity rules have to be given.
 
+\Rem The right-hand side of a notation is interpreted at the time the
+notation is given. In particular, implicit arguments (see
+Section~\ref{Implicit Arguments}), coercions (see
+Section~\ref{Coercions}), etc. are resolved at the time of the
+declaration of the notation.
+
 \subsection[Precedences and associativity]{Precedences and associativity\index{Precedences}
 \index{Associativity}}
 
@@ -297,7 +303,7 @@ the possible following elements delimited by single quotes:
   of each newline
 \end{itemize}
 
-Thus, for the previous example, we get
+%Thus, for the previous example, we get
 %\footnote{The ``@'' is here to shunt
 %the notation "'IF' A 'then' B 'else' C" which is defined in {\Coq}
 %initial state}:
@@ -649,7 +655,7 @@ A recursive pattern for binders can be used in position of a recursive
 pattern for terms. Here is an example:
 
 \begin{coq_example*}
-Notation ``'FUNAPP' x .. y , f'' :=
+Notation "'FUNAPP' x .. y , f" :=
   (fun x => .. (fun y => (.. (f x) ..) y ) ..)
   (at level 200, x binder, y binder, right associativity).
 \end{coq_example*}
@@ -908,6 +914,28 @@ interpretation. See the next section.
 \SeeAlso The command to show the scopes bound to the arguments of a
 function is described in Section~\ref{About}.
 
+\Rem In notations, the subterms matching the identifiers of the
+notations are interpreted in the scope in which the identifiers
+occurred at the time of the declaration of the notation. Here is an
+example:
+
+\begin{coq_example}
+Parameter g : bool -> bool.
+Notation "@@" := true (only parsing) : bool_scope.
+Notation "@@" := false (only parsing): mybool_scope.
+
+(* Defining a notation while the argument of g is bound to bool_scope *)
+Bind Scope bool_scope with bool.
+Notation "# x #" := (g x) (at level 40).
+Check # @@ #.
+(* Rebinding the argument of g to mybool_scope has no effect on the notation *)
+Arguments g _%mybool_scope.
+Check # @@ #.
+(* But we can force the scope *)
+Delimit Scope mybool_scope with mybool.
+Check # @@%mybool #.
+\end{coq_example}
+
 \subsection[The {\tt type\_scope} interpretation scope]{The {\tt type\_scope} interpretation scope\index{type\_scope@\texttt{type\_scope}}}
 
 The scope {\tt type\_scope} has a special status. It is a primitive
diff --git a/doc/stdlib/index-list.html.template b/doc/stdlib/index-list.html.template
index 9216c81fc..aeb0de48a 100644
--- a/doc/stdlib/index-list.html.template
+++ b/doc/stdlib/index-list.html.template
@@ -46,6 +46,7 @@ through the <tt>Require Import</tt> command.</p>
     theories/Logic/ClassicalDescription.v
     theories/Logic/ClassicalEpsilon.v
     theories/Logic/ClassicalUniqueChoice.v
+    theories/Logic/SetoidChoice.v
     theories/Logic/Berardi.v
     theories/Logic/Diaconescu.v
     theories/Logic/Hurkens.v
@@ -55,7 +56,10 @@ through the <tt>Require Import</tt> command.</p>
     theories/Logic/Description.v
     theories/Logic/Epsilon.v
     theories/Logic/IndefiniteDescription.v
+    theories/Logic/PropExtensionality.v
+    theories/Logic/PropExtensionalityFacts.v
     theories/Logic/FunctionalExtensionality.v
+    theories/Logic/ExtensionalFunctionRepresentative.v
     theories/Logic/ExtensionalityFacts.v
     theories/Logic/WeakFan.v
     theories/Logic/WKL.v
diff --git a/doc/tutorial/Tutorial.tex b/doc/tutorial/Tutorial.tex
index 973a0b75e..0d537256b 100644
--- a/doc/tutorial/Tutorial.tex
+++ b/doc/tutorial/Tutorial.tex
@@ -3,6 +3,7 @@
 \usepackage[utf8]{inputenc}
 \usepackage{textcomp}
 \usepackage{pslatex}
+\usepackage{hyperref}
 
 \input{../common/version.tex}
 \input{../common/macros.tex}
@@ -17,7 +18,7 @@
 
 \chapter*{Getting started}
 
-\Coq\ is a Proof Assistant for a Logical Framework known as the Calculus
+\Coq{} is a Proof Assistant for a Logical Framework known as the Calculus
 of Inductive Constructions. It allows the interactive construction of
 formal proofs, and also the manipulation of functional programs 
 consistently with their specifications. It runs as a computer program
@@ -29,7 +30,7 @@ possibilities of \Coq, but rather to present in the most elementary
 manner a tutorial on the basic specification language, called Gallina,
 in which formal axiomatisations may be developed, and on the main
 proof tools.  For more advanced information, the reader could refer to
-the \Coq{} Reference Manual or the \textit{Coq'Art}, a new book by Y.
+the \Coq{} Reference Manual or the \textit{Coq'Art}, a book by Y.
 Bertot and P. Castéran on practical uses of the \Coq{} system.
 
 Coq can be used from a standard teletype-like shell window but
@@ -39,9 +40,9 @@ and Pcoq.}.
 
 Instructions on installation procedures, as well as more comprehensive
 documentation, may be found in the standard distribution of \Coq,
-which may be obtained from \Coq{} web site \texttt{http://coq.inria.fr}.
+which may be obtained from \Coq{} web site \url{https://coq.inria.fr/}.
 
-In the following, we assume that \Coq~ is called from a standard
+In the following, we assume that \Coq{} is called from a standard
 teletype-like shell window. All examples preceded by the prompting
 sequence \verb:Coq < : represent user input, terminated by a
 period. 
@@ -51,10 +52,10 @@ users screen. When used from a graphical user interface such as
 CoqIde, the prompt is not displayed: user input is given in one window
 and \Coq's answers are displayed in a different window.
 
-The sequence of such examples is a valid \Coq~
+The sequence of such examples is a valid \Coq{}
 session, unless otherwise specified. This version of the tutorial has
 been prepared on a PC workstation running Linux.  The standard
-invocation of \Coq\ delivers a message such as:
+invocation of \Coq{} delivers a message such as:
 
 \begin{small}
 \begin{flushleft}
@@ -67,17 +68,17 @@ Coq <
 \end{flushleft}
 \end{small}
 
-The first line gives a banner stating the precise version of \Coq~
+The first line gives a banner stating the precise version of \Coq{}
 used. You should always return this banner when you report an anomaly
 to our bug-tracking system
-\verb|http://logical.futurs.inria.fr/coq-bugs|
+\url{https://coq.inria.fr/bugs/}.
 
 \chapter{Basic Predicate Calculus}
 
 \section{An overview of the specification language Gallina}
 
 A formal development in Gallina consists in a sequence of {\sl declarations}
-and {\sl definitions}. You may also send \Coq~ {\sl commands} which are
+and {\sl definitions}. You may also send \Coq{} {\sl commands} which are
 not really part of the formal development, but correspond to information
 requests, or service routine invocations. For instance, the command:
 \begin{verbatim}
@@ -106,7 +107,7 @@ of the system, called respectively \verb:Prop:, \verb:Set:, and
 Every valid expression $e$ in Gallina is associated with a specification,
 itself a valid expression, called its {\sl type} $\tau(E)$. We write
 $e:\tau(E)$ for the judgment that $e$ is of type $E$. 
-You may request \Coq~ to return to you the type of a valid expression by using
+You may request \Coq{} to return to you the type of a valid expression by using
 the command \verb:Check::
 
 \begin{coq_eval}
@@ -130,7 +131,7 @@ Check nat.
 The specification \verb:Set: is an abstract type, one of the basic
 sorts of the Gallina language, whereas the notions $nat$ and $O$ are
 notions which are defined in the arithmetic prelude,
-automatically loaded when running the \Coq\ system.
+automatically loaded when running the \Coq{} system.
 
 We start by introducing a so-called section name. The role of sections
 is to structure the modelisation by limiting the scope of parameters,
@@ -206,7 +207,7 @@ We may optionally indicate the required type:
 Definition two : nat := S one.
 \end{coq_example}
 
-Actually \Coq~ allows several possible syntaxes:
+Actually \Coq{} allows several possible syntaxes:
 \begin{coq_example}
 Definition three := S two : nat.
 \end{coq_example}
@@ -249,7 +250,7 @@ explicitly the type of the quantified variable. We check:
 Check (forall m:nat, gt m 0).
 \end{coq_example}
 We may revert to the clean state of
-our initial session using the \Coq~ \verb:Reset: command:
+our initial session using the \Coq{} \verb:Reset: command:
 \begin{coq_example}
 Reset Initial.
 \end{coq_example}
@@ -340,7 +341,7 @@ assumption.
 \end{coq_example}
 
 The proof is now finished. We may either discard it, by using the
-command \verb:Abort: which returns to the standard \Coq~ toplevel loop
+command \verb:Abort: which returns to the standard \Coq{} toplevel loop
 without further ado, or else save it as a lemma in the current context,
 under name say \verb:trivial_lemma::
 \begin{coq_example}
@@ -414,7 +415,7 @@ backtrack one step, and more generally \verb:Undo n: to
 backtrack n steps.
 
 We end this section by showing a useful command, \verb:Inspect n.:,
-which inspects the global \Coq~ environment, showing the last \verb:n: declared
+which inspects the global \Coq{} environment, showing the last \verb:n: declared
 notions: 
 \begin{coq_example}
 Inspect 3.
@@ -429,7 +430,7 @@ their value (or proof-term) is omitted.
 \subsection{Conjunction}
 
 We have seen how \verb:intro: and \verb:apply: tactics could be combined
-in order to prove implicational statements. More generally, \Coq~ favors a style
+in order to prove implicational statements. More generally, \Coq{} favors a style
 of reasoning, called {\sl Natural Deduction}, which decomposes reasoning into 
 so called {\sl introduction rules}, which tell how to prove a goal whose main 
 operator is a given propositional connective, and {\sl elimination rules},
@@ -528,7 +529,7 @@ such a simple tautology. The reason is that we want to keep
 \subsection{Tauto}
 
 A complete tactic for propositional
-tautologies is indeed available in \Coq~ as the \verb:tauto: tactic. 
+tautologies is indeed available in \Coq{} as the \verb:tauto: tactic.
 \begin{coq_example}
 Restart.
 tauto.
@@ -555,7 +556,7 @@ The two instantiations are effected automatically by the tactic
 \verb:apply: when pattern-matching a goal. The specialist will of course
 recognize our proof term as a $\lambda$-term, used as notation for the
 natural deduction proof term through the Curry-Howard isomorphism. The
-naive user of \Coq~ may safely ignore these formal details.
+naive user of \Coq{} may safely ignore these formal details.
 
 Let us exercise the \verb:tauto: tactic on a more complex example:
 \begin{coq_example}
@@ -579,7 +580,7 @@ argument fails.
 This may come as a surprise to someone familiar with classical reasoning. 
 Peirce's lemma is true in Boolean logic, i.e. it evaluates to \verb:true: for 
 every truth-assignment to \verb:A: and \verb:B:. Indeed the double negation
-of Peirce's law may be proved in \Coq~ using \verb:tauto::
+of Peirce's law may be proved in \Coq{} using \verb:tauto::
 \begin{coq_example}
 Abort.
 Lemma NNPeirce : ~ ~ (((A -> B) -> A) -> A).
@@ -588,7 +589,7 @@ Qed.
 \end{coq_example}
 
 In classical logic, the double negation of a proposition is equivalent to this 
-proposition, but in the constructive logic of \Coq~ this is not so. If you 
+proposition, but in the constructive logic of \Coq{} this is not so. If you
 want to use classical logic in \Coq, you have to import explicitly the
 \verb:Classical: module, which will declare the axiom \verb:classic:
 of excluded middle, and classical tautologies such as de Morgan's laws.
@@ -652,7 +653,7 @@ function and predicate symbols.
 \subsection{Sections and signatures}
 
 Usually one works in some domain of discourse, over which range the individual 
-variables and function symbols. In \Coq~ we speak in a language with a rich 
+variables and function symbols. In \Coq{} we speak in a language with a rich
 variety of types, so me may mix several domains of discourse, in our 
 multi-sorted language. For the moment, we just do a few exercises, over a 
 domain of discourse \verb:D: axiomatised as a \verb:Set:, and we consider two 
@@ -660,7 +661,7 @@ predicate symbols  \verb:P: and \verb:R: over \verb:D:, of arities
 respectively 1 and 2. Such abstract entities may be entered in the context
 as global variables. But we must be careful about the pollution of our
 global environment by such declarations. For instance, we have already 
-polluted our \Coq~ session by declaring the variables
+polluted our \Coq{} session by declaring the variables
 \verb:n:, \verb:Pos_n:, \verb:A:, \verb:B:, and \verb:C:.
 
 \begin{coq_example}
@@ -714,7 +715,7 @@ Check ex.
 \end{coq_example}
 and the notation \verb+(exists x:D, P x)+ is just concrete syntax for 
 the expression \verb+(ex D (fun x:D => P x))+. 
-Existential quantification is handled in \Coq~ in a similar
+Existential quantification is handled in \Coq{} in a similar
 fashion to the connectives \verb:/\: and \verb:\/: : it is introduced by
 the proof combinator \verb:ex_intro:, which is invoked by the specific 
 tactic \verb:Exists:, and its elimination provides a witness \verb+a:D+ to
@@ -951,7 +952,7 @@ Abort.
 
 \subsection{Equality}
 
-The basic equality provided in \Coq~ is Leibniz equality, noted infix like
+The basic equality provided in \Coq{} is Leibniz equality, noted infix like
 \verb+x=y+, when \verb:x: and \verb:y: are two expressions of
 type the same Set. The replacement of \verb:x: by \verb:y: in any
 term is effected by a variety of tactics, such as \verb:rewrite:
@@ -1208,7 +1209,7 @@ About prim_rec.
 Oops! Instead of the expected type \verb+nat->(nat->nat->nat)->nat->nat+ we
 get an apparently more complicated expression. Indeed the type of
 \verb:prim_rec: is equivalent by rule $\beta$ to its expected type; this may
-be checked in \Coq~ by command \verb:Eval Cbv Beta:, which $\beta$-reduces
+be checked in \Coq{} by command \verb:Eval Cbv Beta:, which $\beta$-reduces
 an expression to its {\sl normal form}:
 \begin{coq_example}
 Eval cbv beta in
@@ -1228,7 +1229,7 @@ That is, we specify that \verb+(addition n m)+ computes by cases on \verb:n:
 according to its main constructor; when \verb:n = O:, we get \verb:m:;
  when \verb:n = S p:, we get \verb:(S rec):, where \verb:rec: is the result
 of the recursive computation \verb+(addition p m)+. Let us verify it by
-asking \Coq~to compute for us say $2+3$:
+asking \Coq{} to compute for us say $2+3$:
 \begin{coq_example}
 Eval compute in (addition (S (S O)) (S (S (S O)))).
 \end{coq_example}
@@ -1275,7 +1276,7 @@ as subgoals the corresponding instantiations of the base case \verb:(P O): ,
 and of the inductive step \verb+forall y:nat, P y -> P (S y)+.
 In each case we get an instance of function \verb:plus: in which its second
 argument starts with a constructor, and is thus amenable to simplification
-by primitive recursion. The \Coq~tactic \verb:simpl: can be used for
+by primitive recursion. The \Coq{} tactic \verb:simpl: can be used for
 this purpose:
 \begin{coq_example}
 simpl.
@@ -1488,7 +1489,7 @@ Set Printing Width 60.
 
 \section{Opening library modules}
 
-When you start \Coq~ without further requirements in the command line,
+When you start \Coq{} without further requirements in the command line,
 you get a bare system with few libraries loaded.  As we saw, a standard
 prelude module provides the standard logic connectives, and a few
 arithmetic notions. If you want to load and open other modules from
@@ -1503,9 +1504,9 @@ Such a command looks for a (compiled) module file \verb:Arith.vo: in
 the libraries registered by \Coq. Libraries inherit the structure of
 the file system of the operating system and are registered with the
 command \verb:Add LoadPath:. Physical directories are mapped to
-logical directories. Especially the standard library of \Coq~ is
+logical directories. Especially the standard library of \Coq{} is
 pre-registered as a library of name \verb=Coq=.  Modules have absolute
-unique names denoting their place in \Coq~ libraries.  An absolute
+unique names denoting their place in \Coq{} libraries.  An absolute
 name is a sequence of single identifiers separated by dots.  E.g. the
 module \verb=Arith= has full name \verb=Coq.Arith.Arith= and because
 it resides in eponym subdirectory \verb=Arith= of the standard
diff --git a/engine/evd.ml b/engine/evd.ml
index bffb40727..62d396395 100644
--- a/engine/evd.ml
+++ b/engine/evd.ml
@@ -681,13 +681,16 @@ let restrict evk filter ?candidates evd =
     { evar_info with evar_filter = filter;
       evar_candidates = candidates;
       evar_extra = Store.empty } in
+  let last_mods = match evd.conv_pbs with
+  | [] ->  evd.last_mods
+  | _ -> Evar.Set.add evk evd.last_mods in
   let evar_names = EvNames.reassign_name_defined evk evk' evd.evar_names in
   let ctxt = Filter.filter_list filter (evar_context evar_info) in
   let id_inst = Array.map_of_list (NamedDecl.get_id %> mkVar) ctxt in
   let body = mkEvar(evk',id_inst) in
   let (defn_evars, undf_evars) = define_aux evd.defn_evars evd.undf_evars evk body in
   { evd with undf_evars = EvMap.add evk' evar_info' undf_evars;
-    defn_evars; evar_names }, evk'
+    defn_evars; last_mods; evar_names }, evk'
 
 let downcast evk ccl evd =
   let evar_info = EvMap.find evk evd.undf_evars in
@@ -1299,6 +1302,7 @@ let pr_decl (decl,ok) =
                            print_constr c ++ str (if ok then ")" else "}")
 
 let pr_evar_source = function
+  | Evar_kinds.NamedHole id -> pr_id id
   | Evar_kinds.QuestionMark _ -> str "underscore"
   | Evar_kinds.CasesType false -> str "pattern-matching return predicate"
   | Evar_kinds.CasesType true ->
diff --git a/engine/proofview.ml b/engine/proofview.ml
index 53cb77b95..721389af4 100644
--- a/engine/proofview.ml
+++ b/engine/proofview.ml
@@ -423,11 +423,11 @@ let tclFOCUSID id t =
 
 exception SizeMismatch of int*int
 let _ = CErrors.register_handler begin function
-  | SizeMismatch (i,_) ->
+  | SizeMismatch (i,j) ->
       let open Pp in
       let errmsg =
         str"Incorrect number of goals" ++ spc() ++
-        str"(expected "++int i++str(String.plural i " tactic") ++ str")."
+        str"(expected "++int i++str(String.plural i " tactic") ++ str", was given "++ int j++str")."
       in
       CErrors.user_err  errmsg
   | _ -> raise CErrors.Unhandled
@@ -453,6 +453,25 @@ let iter_goal i =
   Solution.get >>= fun evd ->
   Comb.set CList.(undefined evd (flatten (rev subgoals)))
 
+(** List iter but allocates a list of results *)
+let map_goal i =
+  let rev = List.rev in (* hem... Proof masks List... *)
+  let open Proof in
+  Comb.get >>= fun initial ->
+  Proof.List.fold_left begin fun (acc, subgoals as cur) goal ->
+    Solution.get >>= fun step ->
+    match Evarutil.advance step goal with
+    | None -> return cur
+    | Some goal ->
+        Comb.set [goal] >>
+        i goal >>= fun res ->
+        Proof.map (fun comb -> comb :: subgoals) Comb.get >>= fun x ->
+        return (res :: acc, x)
+  end ([],[]) initial >>= fun (results_rev, subgoals) ->
+  Solution.get >>= fun evd ->
+  Comb.set CList.(undefined evd (flatten (rev subgoals))) >>
+  return (rev results_rev)
+
 (** A variant of [Monad.List.fold_left2] where the first list is the
     list of focused goals. The argument tactic is executed in a focus
     comprising only of the current goal, a goal which has been solved
@@ -585,7 +604,15 @@ let tclINDEPENDENT tac =
       let tac = InfoL.tag (Info.DBranch) tac in
       InfoL.tag (Info.Dispatch) (iter_goal (fun _ -> tac))
 
-
+let tclINDEPENDENTL tac =
+  let open Proof in
+  Pv.get >>= fun initial ->
+  match initial.comb with
+  | [] -> tclUNIT []
+  | [_] -> tac >>= fun x -> return [x]
+  | _ ->
+      let tac = InfoL.tag (Info.DBranch) tac in
+      InfoL.tag (Info.Dispatch) (map_goal (fun _ -> tac))
 
 (** {7 Goal manipulation} *)
 
diff --git a/engine/proofview.mli b/engine/proofview.mli
index 90be2f90a..294b03dca 100644
--- a/engine/proofview.mli
+++ b/engine/proofview.mli
@@ -292,6 +292,7 @@ val tclEXTEND : unit tactic list -> unit tactic -> unit tactic list -> unit tact
     independent of backtracking in another. It is equivalent to
     [tclEXTEND [] tac []]. *)
 val tclINDEPENDENT : unit tactic -> unit tactic
+val tclINDEPENDENTL: 'a tactic -> 'a list tactic
 
 
 (** {7 Goal manipulation} *)
diff --git a/grammar/q_util.mli b/grammar/q_util.mli
index a5e36e47b..37ec1d56a 100644
--- a/grammar/q_util.mli
+++ b/grammar/q_util.mli
@@ -41,6 +41,8 @@ val mlexpr_of_string : string -> MLast.expr
 
 val mlexpr_of_option : ('a -> MLast.expr) -> 'a option -> MLast.expr
 
+val mlexpr_of_name : ('a -> MLast.expr) -> 'a option -> MLast.expr
+
 val mlexpr_of_prod_entry_key : (string -> MLast.expr) -> user_symbol -> MLast.expr
 
 val type_of_user_symbol : user_symbol -> argument_type
diff --git a/grammar/q_util.mlp b/grammar/q_util.mlp
index 919ca3ad7..0dd096ef7 100644
--- a/grammar/q_util.mlp
+++ b/grammar/q_util.mlp
@@ -58,6 +58,10 @@ let mlexpr_of_option f = function
   | None -> <:expr< None >>
   | Some e -> <:expr< Some $f e$ >>
 
+let mlexpr_of_name f = function
+  | None -> <:expr< Anonymous >>
+  | Some e -> <:expr< Name $f e$ >>
+
 let symbol_of_string s = <:expr< Extend.Atoken (CLexer.terminal $str:s$) >>
 
 let rec mlexpr_of_prod_entry_key f = function
diff --git a/grammar/tacextend.mlp b/grammar/tacextend.mlp
index fe864ed40..33ca2c629 100644
--- a/grammar/tacextend.mlp
+++ b/grammar/tacextend.mlp
@@ -82,14 +82,14 @@ let make_var = function
   | ExtNonTerminal (_, p) -> Some p
   | _ -> assert false
 
-let declare_tactic loc s c cl = match cl with
+let declare_tactic loc tacname ~level classification clause = match clause with
 | [(ExtTerminal name) :: rem, _, tac] when List.for_all is_constr_gram rem ->
   (** The extension is only made of a name followed by constr entries: we do not
       add any grammar nor printing rule and add it as a true Ltac definition. *)
   let patt = make_patt rem in
   let vars = List.map make_var rem in
-  let vars = mlexpr_of_list (mlexpr_of_option mlexpr_of_ident) vars in
-  let entry = mlexpr_of_string s in
+  let vars = mlexpr_of_list (mlexpr_of_name mlexpr_of_ident) vars in
+  let entry = mlexpr_of_string tacname in
   let se = <:expr< { Tacexpr.mltac_tactic = $entry$; Tacexpr.mltac_plugin = $plugin_name$ } >> in
   let ml = <:expr< { Tacexpr.mltac_name = $se$; Tacexpr.mltac_index = 0 } >> in
   let name = mlexpr_of_string name in
@@ -117,13 +117,14 @@ let declare_tactic loc s c cl = match cl with
 | _ ->
   (** Otherwise we add parsing and printing rules to generate a call to a
       TacML tactic. *)
-  let entry = mlexpr_of_string s in
+  let entry = mlexpr_of_string tacname in
   let se = <:expr< { Tacexpr.mltac_tactic = $entry$; Tacexpr.mltac_plugin = $plugin_name$ } >> in
-  let gl = mlexpr_of_clause cl in
-  let obj = <:expr< fun () -> Tacentries.add_ml_tactic_notation $se$ $gl$ >> in
+  let gl = mlexpr_of_clause clause in
+  let level = mlexpr_of_int level in
+  let obj = <:expr< fun () -> Tacentries.add_ml_tactic_notation $se$ $level$ $gl$ >> in
   declare_str_items loc
     [ <:str_item< do {
-        Tacenv.register_ml_tactic $se$ (Array.of_list $make_fun_clauses loc s cl$);
+        Tacenv.register_ml_tactic $se$ (Array.of_list $make_fun_clauses loc tacname clause$);
         Mltop.declare_cache_obj $obj$ $plugin_name$; } >>
     ]
 
@@ -134,20 +135,17 @@ EXTEND
   GLOBAL: str_item;
   str_item:
     [ [ "TACTIC"; "EXTEND"; s = tac_name;
+        level = OPT [ "AT"; "LEVEL"; level = INT -> level ];
         c = OPT [ "CLASSIFIED"; "BY"; c = LIDENT -> <:expr< $lid:c$ >> ];
         OPT "|"; l = LIST1 tacrule SEP "|";
         "END" ->
-         declare_tactic loc s c l ] ]
+        let level = match level with Some i -> int_of_string i | None -> 0 in
+         declare_tactic loc s ~level c l ] ]
   ;
   tacrule:
     [ [ "["; l = LIST1 tacargs; "]";
         c = OPT [ "=>"; "["; c = Pcaml.expr; "]" -> c ];
-        "->"; "["; e = Pcaml.expr; "]" ->
-	(match l with
-	  | ExtNonTerminal _ :: _ ->
-	    (* En attendant la syntaxe de tacticielles *)
-	    failwith "Tactic syntax must start with an identifier"
-	  | _ -> (l,c,e))
+        "->"; "["; e = Pcaml.expr; "]" -> (l,c,e)
     ] ]
   ;
   tacargs:
diff --git a/ide/ide_slave.ml b/ide/ide_slave.ml
index 48fd0a93e..ae3dcd94a 100644
--- a/ide/ide_slave.ml
+++ b/ide/ide_slave.ml
@@ -393,7 +393,8 @@ let init =
              Stm.add false ~ontop:(Stm.get_current_state ())
                0 (Printf.sprintf "Add LoadPath \"%s\". " dir)
            else Stm.get_current_state (), `NewTip in
-         Stm.set_compilation_hints file;
+         if Filename.check_suffix file ".v" then
+           Stm.set_compilation_hints file;
          Stm.finish ();
          initial_id
    end
diff --git a/ide/interface.mli b/ide/interface.mli
index 2a9b8b241..123cac6c2 100644
--- a/ide/interface.mli
+++ b/ide/interface.mli
@@ -139,7 +139,7 @@ type add_rty = state_id * ((unit, state_id) union * string)
     [Inr (start,(stop,tip))] if [id] is in a zone that can be focused.
     In that case the zone is delimited by [start] and [stop] while [tip]
     is the new document [tip].  Edits made by subsequent [add] are always
-    performend on top of [id]. *)
+    performed on top of [id]. *)
 type edit_at_sty = state_id
 type edit_at_rty = (unit, state_id * (state_id * state_id)) union
 
@@ -153,7 +153,7 @@ type query_rty = string
 type goals_sty = unit
 type goals_rty = goals option
 
-(** Retrieve the list of unintantiated evars in the current proof. [None] if no
+(** Retrieve the list of uninstantiated evars in the current proof. [None] if no
     proof is in progress. *)
 type evars_sty = unit
 type evars_rty = evar list option
diff --git a/ide/xmlprotocol.ml b/ide/xmlprotocol.ml
index aecb317bc..5f82a8898 100644
--- a/ide/xmlprotocol.ml
+++ b/ide/xmlprotocol.ml
@@ -816,7 +816,6 @@ let to_feedback_content = do_match "feedback_content" (fun s a -> match s,a with
   | "workerstatus", [ns] ->
        let n, s = to_pair to_string to_string ns in
        WorkerStatus(n,s)
-  | "goals", [loc;s] -> Goals (to_loc loc, to_string s)
   | "custom", [loc;name;x]-> Custom (to_loc loc, to_string name, x)
   | "filedependency", [from; dep] ->
       FileDependency (to_option to_string from, to_string dep)
@@ -849,8 +848,6 @@ let of_feedback_content = function
   | WorkerStatus(n,s) ->
       constructor "feedback_content" "workerstatus"
         [of_pair of_string of_string (n,s)]
-  | Goals (loc,s) ->
-      constructor "feedback_content" "goals" [of_loc loc;of_string s]
   | Custom (loc, name, x) ->
       constructor "feedback_content" "custom" [of_loc loc; of_string name; x]
   | FileDependency (from, depends_on) ->
diff --git a/interp/constrintern.ml b/interp/constrintern.ml
index 235e6e24f..3ed8733df 100644
--- a/interp/constrintern.ml
+++ b/interp/constrintern.ml
@@ -1591,7 +1591,8 @@ let internalize globalenv env allow_patvar (_, ntnvars as lvar) c =
         let idl_tmp = Array.map
           (fun ((loc,id),bl,ty,_) ->
             let (env',rbl) = List.fold_left intern_local_binder (env,[]) bl in
-            let rbl = List.map (function BDRawDef a -> a | BDPattern _ -> assert false) rbl in
+            let rbl = List.map (function BDRawDef a -> a | BDPattern _ -> 
+                      Loc.raise ~loc (Stream.Error "pattern with quote not allowed after cofix")) rbl in
             (List.rev rbl,
              intern_type env' ty,env')) dl in
 	let idl = Array.map2 (fun (_,_,_,bd) (b,c,env') ->
@@ -1739,7 +1740,9 @@ let internalize globalenv env allow_patvar (_, ntnvars as lvar) c =
         let k = match k with
         | None ->
            let st = Evar_kinds.Define (not (Program.get_proofs_transparency ())) in
-           Evar_kinds.QuestionMark st
+           (match naming with
+           | Misctypes.IntroIdentifier id -> Evar_kinds.NamedHole id
+           | _ -> Evar_kinds.QuestionMark st)
         | Some k -> k
         in
         let solve = match solve with
diff --git a/interp/notation.ml b/interp/notation.ml
index 948d624a2..66d3c9185 100644
--- a/interp/notation.ml
+++ b/interp/notation.ml
@@ -927,19 +927,19 @@ let locate_notation prglob ntn scope =
   match ntns with
   | [] -> str "Unknown notation"
   | _ ->
-    t (str "Notation            " ++
-    tab () ++ str "Scope     " ++ tab () ++ fnl () ++
+    str "Notation" ++ fnl () ++
     prlist (fun (ntn,l) ->
       let scope = find_default ntn scopes in
       prlist
 	(fun (sc,r,(_,df)) ->
 	  hov 0 (
-	    pr_notation_info prglob df r ++ tbrk (1,2) ++
-	    (if String.equal sc default_scope then mt () else (str ": " ++ str sc)) ++
-	    tbrk (1,2) ++
-	    (if Option.equal String.equal (Some sc) scope then str "(default interpretation)" else mt ())
+	    pr_notation_info prglob df r ++
+	    (if String.equal sc default_scope then mt ()
+             else (spc () ++ str ": " ++ str sc)) ++
+	    (if Option.equal String.equal (Some sc) scope
+             then spc () ++ str "(default interpretation)" else mt ())
 	    ++ fnl ()))
-	l) ntns)
+	l) ntns
 
 let collect_notation_in_scope scope sc known =
   assert (not (String.equal scope default_scope));
diff --git a/interp/ppextend.ml b/interp/ppextend.ml
index 37bbe0ce8..87ca25325 100644
--- a/interp/ppextend.ml
+++ b/interp/ppextend.ml
@@ -23,12 +23,9 @@ type ppbox =
   | PpHOVB of int
   | PpHVB of int
   | PpVB of int
-  | PpTB
 
 type ppcut =
   | PpBrk of int * int
-  | PpTbrk of int * int
-  | PpTab
   | PpFnl
 
 let ppcmd_of_box = function
@@ -36,13 +33,10 @@ let ppcmd_of_box = function
   | PpHOVB n -> hov n
   | PpHVB n -> hv n
   | PpVB n -> v n
-  | PpTB   -> t
 
 let ppcmd_of_cut = function
-  | PpTab -> tab ()
   | PpFnl -> fnl ()
   | PpBrk(n1,n2) -> brk(n1,n2)
-  | PpTbrk(n1,n2) -> tbrk(n1,n2)
 
 type unparsing =
   | UnpMetaVar of int * parenRelation
diff --git a/interp/ppextend.mli b/interp/ppextend.mli
index de7a42eee..09dc36943 100644
--- a/interp/ppextend.mli
+++ b/interp/ppextend.mli
@@ -23,12 +23,9 @@ type ppbox =
   | PpHOVB of int
   | PpHVB of int
   | PpVB of int
-  | PpTB
 
 type ppcut =
   | PpBrk of int * int
-  | PpTbrk of int * int
-  | PpTab
   | PpFnl
 
 val ppcmd_of_box : ppbox -> std_ppcmds -> std_ppcmds
diff --git a/interp/topconstr.ml b/interp/topconstr.ml
index b455381ea..fd57b70ca 100644
--- a/interp/topconstr.ml
+++ b/interp/topconstr.ml
@@ -60,6 +60,9 @@ let rec cases_pattern_fold_names f a = function
   | CPatPrim _ | CPatAtom _ -> a
   | CPatCast _ -> assert false
 
+let ids_of_pattern =
+  cases_pattern_fold_names Id.Set.add Id.Set.empty
+
 let ids_of_pattern_list =
   List.fold_left
     (Loc.located_fold_left
@@ -92,8 +95,9 @@ let rec fold_local_binders g f n acc b = function
       f n (fold_local_binders g f n' acc b l) t
   | LocalRawDef ((_,na),t)::l ->
       f n (fold_local_binders g f (name_fold g na n) acc b l) t
-  | LocalPattern _::l ->
-      assert false
+  | LocalPattern (_,pat,t)::l ->
+      let acc = fold_local_binders g f (cases_pattern_fold_names g n pat) acc b l in
+      Option.fold_left (f n) acc t
   | [] ->
       f n acc b
 
@@ -172,7 +176,8 @@ let split_at_annot bl na =
               (List.rev ans, LocalRawAssum (r, k, t) :: rest)
             end
 	| LocalRawDef _ as x :: rest -> aux (x :: acc) rest
-        | LocalPattern _ :: rest -> assert false
+        | LocalPattern (loc,_,_) :: rest ->
+            Loc.raise ~loc (Stream.Error "pattern with quote not allowed after fix")
 	| [] ->
             user_err ~loc 
 			 (str "No parameter named " ++ Nameops.pr_id id ++ str".")
@@ -195,8 +200,9 @@ let map_local_binders f g e bl =
         (map_binder g e nal, LocalRawAssum(nal,k,f e ty)::bl)
     | LocalRawDef((loc,na),ty) ->
         (name_fold g na e, LocalRawDef((loc,na),f e ty)::bl)
-    | LocalPattern _ ->
-        assert false in
+    | LocalPattern (loc,pat,t) ->
+        let ids = ids_of_pattern pat in
+        (Id.Set.fold g ids e, LocalPattern (loc,pat,Option.map (f e) t)::bl) in
   let (e,rbl) = List.fold_left h (e,[]) bl in
   (e, List.rev rbl)
 
diff --git a/intf/evar_kinds.mli b/intf/evar_kinds.mli
index afc5e3bab..470ad2a23 100644
--- a/intf/evar_kinds.mli
+++ b/intf/evar_kinds.mli
@@ -20,6 +20,7 @@ type t =
   | ImplicitArg of global_reference * (int * Id.t option)
      * bool (** Force inference *)
   | BinderType of Name.t
+  | NamedHole of Id.t (* coming from some ?[id] syntax *)
   | QuestionMark of obligation_definition_status
   | CasesType of bool (* true = a subterm of the type *)
   | InternalHole
diff --git a/intf/misctypes.mli b/intf/misctypes.mli
index e4f595ac4..33dc2a335 100644
--- a/intf/misctypes.mli
+++ b/intf/misctypes.mli
@@ -28,7 +28,7 @@ and 'constr intro_pattern_action_expr =
   | IntroWildcard
   | IntroOrAndPattern of 'constr or_and_intro_pattern_expr
   | IntroInjection of (Loc.t * 'constr intro_pattern_expr) list
-  | IntroApplyOn of 'constr * (Loc.t * 'constr intro_pattern_expr)
+  | IntroApplyOn of (Loc.t * 'constr) * (Loc.t * 'constr intro_pattern_expr)
   | IntroRewrite of bool
 and 'constr or_and_intro_pattern_expr =
   | IntroOrPattern of (Loc.t * 'constr intro_pattern_expr) list list
diff --git a/kernel/byterun/coq_interp.c b/kernel/byterun/coq_interp.c
index 5dec3b785..af89712d5 100644
--- a/kernel/byterun/coq_interp.c
+++ b/kernel/byterun/coq_interp.c
@@ -891,25 +891,58 @@ value coq_interprete
 
 
       Instruct(PROJ){
+        do_proj:
 	print_instr("PROJ");
 	if (Is_accu (accu)) {
-          value block;
-	  /* Skip over the index of projected field */
-	  pc++;
-	  /* Create atom */
-	  Alloc_small(block, 2, ATOM_PROJ_TAG);
-	  Field(block, 0) = Field(coq_global_data, *pc);
-	  Field(block, 1) = accu;
-          accu = block;
-          /* Create accumulator */
-          Alloc_small(block, 2, Accu_tag);
-          Code_val(block) = accumulate;
-          Field(block, 1) = accu;
-          accu = block;
+          *--sp = accu; // Save matched block on stack
+          accu = Field(accu, 1); // Save atom to accu register
+          switch (Tag_val(accu)) {
+          case ATOM_COFIX_TAG: // We are forcing a cofix
+            {
+              mlsize_t i, nargs;
+              sp -= 2;
+              // Push the current instruction as the return address
+              sp[0] = (value)(pc - 1);
+              sp[1] = coq_env;
+              coq_env = Field(accu, 0); // Pointer to suspension
+              accu = sp[2]; // Save accumulator to accu register
+              sp[2] = Val_long(coq_extra_args); // Push number of args for return
+              nargs = Wosize_val(accu) - 2; // Number of args = size of accumulator - 1 (accumulator code) - 1 (atom)
+              // Push arguments to stack
+              CHECK_STACK(nargs + 1);
+              sp -= nargs;
+              for (i = 0; i < nargs; ++i) sp[i] = Field(accu, i + 2);
+              *--sp = accu; // Last argument is the pointer to the suspension
+              coq_extra_args = nargs;
+              pc = Code_val(coq_env); // Trigger evaluation
+              goto check_stack;
+            }
+          case ATOM_COFIXEVALUATED_TAG:
+            {
+              accu = Field(accu, 1);
+              ++sp;
+              goto do_proj;
+            }
+          default:
+            {
+              value block;
+              /* Skip over the index of projected field */
+              ++pc;
+              /* Create atom */
+              Alloc_small(accu, 2, ATOM_PROJ_TAG);
+              Field(accu, 0) = Field(coq_global_data, *pc++);
+              Field(accu, 1) = *sp++;
+              /* Create accumulator */
+              Alloc_small(block, 2, Accu_tag);
+              Code_val(block) = accumulate;
+              Field(block, 1) = accu;
+              accu = block;
+            }
+          }
 	} else {
-	    accu = Field(accu, *pc++);
+          accu = Field(accu, *pc);
+          pc += 2;
 	}
-	pc++;
 	Next;
       }
 
diff --git a/kernel/cbytecodes.ml b/kernel/cbytecodes.ml
index 810c34699..94ca4c72d 100644
--- a/kernel/cbytecodes.ml
+++ b/kernel/cbytecodes.ml
@@ -299,7 +299,7 @@ and pp_bytecodes c =
   | Ksequence (l1, l2) :: c ->
       pp_bytecodes l1 ++ pp_bytecodes l2 ++  pp_bytecodes c
   | i :: c ->
-      tab () ++ pp_instr i ++ fnl () ++ pp_bytecodes c
+      pp_instr i ++ fnl () ++ pp_bytecodes c
 
 (*spiwack: moved this type in this file  because I needed it for
   retroknowledge which can't depend from cbytegen *)
diff --git a/kernel/fast_typeops.ml b/kernel/fast_typeops.ml
deleted file mode 100644
index dce4e9307..000000000
--- a/kernel/fast_typeops.ml
+++ /dev/null
@@ -1,464 +0,0 @@
-(************************************************************************)
-(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
-(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016     *)
-(*   \VV/  **************************************************************)
-(*    //   *      This file is distributed under the terms of the       *)
-(*         *       GNU Lesser General Public License Version 2.1        *)
-(************************************************************************)
-
-open CErrors
-open Util
-open Names
-open Univ
-open Term
-open Vars
-open Declarations
-open Environ
-open Reduction
-open Inductive
-open Type_errors
-
-module RelDecl = Context.Rel.Declaration
-module NamedDecl = Context.Named.Declaration
-
-let conv_leq l2r env x y = default_conv CUMUL ~l2r env x y
-
-let conv_leq_vecti env v1 v2 =
-  Array.fold_left2_i
-    (fun i _ t1 t2 ->
-      try conv_leq false env t1 t2
-      with NotConvertible -> raise (NotConvertibleVect i))
-    ()
-    v1
-    v2
-
-let check_constraints cst env = 
-  if Environ.check_constraints cst env then ()
-  else error_unsatisfied_constraints env cst
-
-(* This should be a type (a priori without intention to be an assumption) *)
-let type_judgment env c t =
-  match kind_of_term(whd_all env t) with
-    | Sort s -> {utj_val = c; utj_type = s }
-    | _ -> error_not_type env (make_judge c t)
-
-let check_type env c t =
-  match kind_of_term(whd_all env t) with
-  | Sort s -> s
-  | _ -> error_not_type env (make_judge c t)
-
-(* This should be a type intended to be assumed. The error message is *)
-(* not as useful as for [type_judgment]. *)
-let assumption_of_judgment env t ty =
-  try let _ = check_type env t ty in t
-  with TypeError _ ->
-    error_assumption env (make_judge t ty)
-
-(************************************************)
-(* Incremental typing rules: builds a typing judgment given the *)
-(* judgments for the subterms. *)
-
-(*s Type of sorts *)
-
-(* Prop and Set *)
-
-let judge_of_prop = mkSort type1_sort
-
-let judge_of_prop_contents _ = judge_of_prop
-
-(* Type of Type(i). *)
-
-let judge_of_type u =
-  let uu = Universe.super u in
-    mkType uu
-
-(*s Type of a de Bruijn index. *)
-
-let judge_of_relative env n =
-  try
-    env |> lookup_rel n |> RelDecl.get_type |> lift n
-  with Not_found ->
-    error_unbound_rel env n
-
-(* Type of variables *)
-let judge_of_variable env id =
-  try named_type id env
-  with Not_found ->
-    error_unbound_var env id
-
-(* Management of context of variables. *)
-
-(* Checks if a context of variables can be instantiated by the
-   variables of the current env *)
-(* TODO: check order? *)
-let check_hyps_inclusion env f c sign =
-  Context.Named.fold_outside
-    (fun decl () ->
-      let id = NamedDecl.get_id decl in
-      let ty1 = NamedDecl.get_type decl in
-      try
-        let ty2 = named_type id env in
-        if not (eq_constr ty2 ty1) then raise Exit
-      with Not_found | Exit ->
-        error_reference_variables env id (f c))
-    sign
-    ~init:()
-
-(* Instantiation of terms on real arguments. *)
-
-(* Make a type polymorphic if an arity *)
-
-(* Type of constants *)
-
-
-let type_of_constant_knowing_parameters_arity env t paramtyps =
-  match t with
-  | RegularArity t -> t
-  | TemplateArity (sign,ar) ->
-      let ctx = List.rev sign in
-      let ctx,s = instantiate_universes env ctx ar paramtyps in
-      mkArity (List.rev ctx,s)
-
-let type_of_constant_knowing_parameters env cst paramtyps =
-  let ty, cu = constant_type env cst in
-    type_of_constant_knowing_parameters_arity env ty paramtyps, cu
-
-let judge_of_constant_knowing_parameters env (kn,u as cst) args =
-  let cb = lookup_constant kn env in
-  let () = check_hyps_inclusion env mkConstU cst cb.const_hyps in
-  let ty, cu = type_of_constant_knowing_parameters env cst args in
-  let () = check_constraints cu env in
-    ty
-
-let judge_of_constant env cst =
-  judge_of_constant_knowing_parameters env cst [||]
-
-(* Type of a lambda-abstraction. *)
-
-(* [judge_of_abstraction env name var j] implements the rule
-
- env, name:typ |- j.uj_val:j.uj_type     env, |- (name:typ)j.uj_type : s
- -----------------------------------------------------------------------
-          env |- [name:typ]j.uj_val : (name:typ)j.uj_type
-
-  Since all products are defined in the Calculus of Inductive Constructions
-  and no upper constraint exists on the sort $s$, we don't need to compute $s$
-*)
-
-let judge_of_abstraction env name var ty =
-  mkProd (name, var, ty)
-
-(* Type of an application. *)
-
-let make_judgev c t = 
-  Array.map2 make_judge c t
-
-let judge_of_apply env func funt argsv argstv =
-  let len = Array.length argsv in
-  let rec apply_rec i typ = 
-    if Int.equal i len then typ
-    else 
-      (match kind_of_term (whd_all env typ) with
-      | Prod (_,c1,c2) ->
-	let arg = argsv.(i) and argt = argstv.(i) in
-	  (try
-	     let () = conv_leq false env argt c1 in
-	       apply_rec (i+1) (subst1 arg c2)
-	   with NotConvertible ->
-	     error_cant_apply_bad_type env
-	       (i+1,c1,argt)
-	       (make_judge func funt)
-	       (make_judgev argsv argstv))
-	    
-      | _ ->
-	error_cant_apply_not_functional env 
-	  (make_judge func funt)
-	  (make_judgev argsv argstv))
-  in apply_rec 0 funt
-
-(* Type of product *)
-
-let sort_of_product env domsort rangsort =
-  match (domsort, rangsort) with
-    (* Product rule (s,Prop,Prop) *)
-    | (_,       Prop Null)  -> rangsort
-    (* Product rule (Prop/Set,Set,Set) *)
-    | (Prop _,  Prop Pos) -> rangsort
-    (* Product rule (Type,Set,?) *)
-    | (Type u1, Prop Pos) ->
-        if is_impredicative_set env then
-          (* Rule is (Type,Set,Set) in the Set-impredicative calculus *)
-          rangsort
-        else
-          (* Rule is (Type_i,Set,Type_i) in the Set-predicative calculus *)
-          Type (Universe.sup Universe.type0 u1)
-    (* Product rule (Prop,Type_i,Type_i) *)
-    | (Prop Pos,  Type u2)  -> Type (Universe.sup Universe.type0 u2)
-    (* Product rule (Prop,Type_i,Type_i) *)
-    | (Prop Null, Type _)  -> rangsort
-    (* Product rule (Type_i,Type_i,Type_i) *)
-    | (Type u1, Type u2) -> Type (Universe.sup u1 u2)
-
-(* [judge_of_product env name (typ1,s1) (typ2,s2)] implements the rule
-
-    env |- typ1:s1       env, name:typ1 |- typ2 : s2
-    -------------------------------------------------------------------------
-         s' >= (s1,s2), env |- (name:typ)j.uj_val : s'
-
-  where j.uj_type is convertible to a sort s2
-*)
-let judge_of_product env name s1 s2 =
-  let s = sort_of_product env s1 s2 in
-    mkSort s
-
-(* Type of a type cast *)
-
-(* [judge_of_cast env (c,typ1) (typ2,s)] implements the rule
-
-    env |- c:typ1    env |- typ2:s    env |- typ1 <= typ2
-    ---------------------------------------------------------------------
-         env |- c:typ2
-*)
-
-let judge_of_cast env c ct k expected_type =
-  try
-    match k with
-    | VMcast ->
-      vm_conv CUMUL env ct expected_type
-    | DEFAULTcast ->
-      default_conv ~l2r:false CUMUL env ct expected_type
-    | REVERTcast ->
-      default_conv ~l2r:true CUMUL env ct expected_type
-    | NATIVEcast ->
-      let sigma = Nativelambda.empty_evars in
-      Nativeconv.native_conv CUMUL sigma env ct expected_type
-  with NotConvertible ->
-    error_actual_type env (make_judge c ct) expected_type
-
-(* Inductive types. *)
-
-(* The type is parametric over the uniform parameters whose conclusion
-   is in Type; to enforce the internal constraints between the
-   parameters and the instances of Type occurring in the type of the
-   constructors, we use the level variables _statically_ assigned to
-   the conclusions of the parameters as mediators: e.g. if a parameter
-   has conclusion Type(alpha), static constraints of the form alpha<=v
-   exist between alpha and the Type's occurring in the constructor
-   types; when the parameters is finally instantiated by a term of
-   conclusion Type(u), then the constraints u<=alpha is computed in
-   the App case of execute; from this constraints, the expected
-   dynamic constraints of the form u<=v are enforced *)
-
-let judge_of_inductive_knowing_parameters env (ind,u as indu) args =
-  let (mib,mip) as spec = lookup_mind_specif env ind in
-  check_hyps_inclusion env mkIndU indu mib.mind_hyps;
-  let t,cst = Inductive.constrained_type_of_inductive_knowing_parameters 
-    env (spec,u) args
-  in
-    check_constraints cst env;
-    t
-
-let judge_of_inductive env (ind,u as indu) =
-  let (mib,mip) = lookup_mind_specif env ind in
-  check_hyps_inclusion env mkIndU indu mib.mind_hyps;
-  let t,cst = Inductive.constrained_type_of_inductive env ((mib,mip),u) in
-    check_constraints cst env;
-    t
-
-(* Constructors. *)
-
-let judge_of_constructor env (c,u as cu) =
-  let _ =
-    let ((kn,_),_) = c in
-    let mib = lookup_mind kn env in
-    check_hyps_inclusion env mkConstructU cu mib.mind_hyps in
-  let specif = lookup_mind_specif env (inductive_of_constructor c) in
-  let t,cst = constrained_type_of_constructor cu specif in
-  let () = check_constraints cst env in
-    t
-
-(* Case. *)
-
-let check_branch_types env (ind,u) c ct lft explft =
-  try conv_leq_vecti env lft explft
-  with
-      NotConvertibleVect i ->
-        error_ill_formed_branch env c ((ind,i+1),u) lft.(i) explft.(i)
-    | Invalid_argument _ ->
-        error_number_branches env (make_judge c ct) (Array.length explft)
-
-let judge_of_case env ci p pt c ct lf lft =
-  let (pind, _ as indspec) =
-    try find_rectype env ct
-    with Not_found -> error_case_not_inductive env (make_judge c ct) in
-  let _ = check_case_info env pind ci in
-  let (bty,rslty) =
-    type_case_branches env indspec (make_judge p pt) c in
-  let () = check_branch_types env pind c ct lft bty in
-    rslty
-
-let judge_of_projection env p c ct =
-  let pb = lookup_projection p env in
-  let (ind,u), args =
-    try find_rectype env ct
-    with Not_found -> error_case_not_inductive env (make_judge c ct)
-  in
-    assert(eq_mind pb.proj_ind (fst ind));
-    let ty = Vars.subst_instance_constr u pb.Declarations.proj_type in
-      substl (c :: List.rev args) ty
-      
-
-(* Fixpoints. *)
-
-(* Checks the type of a general (co)fixpoint, i.e. without checking *)
-(* the specific guard condition. *)
-
-let type_fixpoint env lna lar vdef vdeft =
-  let lt = Array.length vdeft in
-  assert (Int.equal (Array.length lar) lt);
-  try
-    conv_leq_vecti env vdeft (Array.map (fun ty -> lift lt ty) lar)
-  with NotConvertibleVect i ->
-    error_ill_typed_rec_body env i lna (make_judgev vdef vdeft) lar
-
-(************************************************************************)
-(************************************************************************)
-
-(* The typing machine. *)
-    (* ATTENTION : faudra faire le typage du contexte des Const,
-    Ind et Constructsi un jour cela devient des constructions
-    arbitraires et non plus des variables *)
-let rec execute env cstr =
-  let open Context.Rel.Declaration in
-  match kind_of_term cstr with
-    (* Atomic terms *)
-    | Sort (Prop c) ->
-      judge_of_prop_contents c
-	
-    | Sort (Type u) ->
-      judge_of_type u
-
-    | Rel n ->
-      judge_of_relative env n
-
-    | Var id ->
-      judge_of_variable env id
-
-    | Const c ->
-      judge_of_constant env c
-	
-    | Proj (p, c) ->
-        let ct = execute env c in
-          judge_of_projection env p c ct
-
-    (* Lambda calculus operators *)
-    | App (f,args) ->
-        let argst = execute_array env args in
-	let ft =
-	  match kind_of_term f with
-	  | Ind ind when Environ.template_polymorphic_pind ind env ->
-	      (* Template sort-polymorphism of inductive types *)
-	    let args = Array.map (fun t -> lazy t) argst in
-	      judge_of_inductive_knowing_parameters env ind args
-	  | Const cst when Environ.template_polymorphic_pconstant cst env ->
-	      (* Template sort-polymorphism of constants *)
-	    let args = Array.map (fun t -> lazy t) argst in
-	      judge_of_constant_knowing_parameters env cst args
-	  | _ ->
-	    (* Full or no sort-polymorphism *)
-            execute env f
-	in
-
-	  judge_of_apply env f ft args argst
-
-    | Lambda (name,c1,c2) ->
-      let _ = execute_is_type env c1 in
-      let env1 = push_rel (LocalAssum (name,c1)) env in
-      let c2t = execute env1 c2 in
-        judge_of_abstraction env name c1 c2t
-
-    | Prod (name,c1,c2) ->
-      let vars = execute_is_type env c1 in
-      let env1 = push_rel (LocalAssum (name,c1)) env in
-      let vars' = execute_is_type env1 c2 in
-	judge_of_product env name vars vars'
-
-    | LetIn (name,c1,c2,c3) ->
-      let c1t = execute env c1 in
-      let _c2s = execute_is_type env c2 in
-      let _ = judge_of_cast env c1 c1t DEFAULTcast c2 in
-      let env1 = push_rel (LocalDef (name,c1,c2)) env in
-      let c3t = execute env1 c3 in
-	subst1 c1 c3t
-
-    | Cast (c,k,t) ->
-      let ct = execute env c in
-      let _ts = execute_type env t in
-      let _ = judge_of_cast env c ct k t in
-	t
-
-    (* Inductive types *)
-    | Ind ind ->
-      judge_of_inductive env ind
-
-    | Construct c ->
-      judge_of_constructor env c
-
-    | Case (ci,p,c,lf) ->
-        let ct = execute env c in
-        let pt = execute env p in
-        let lft = execute_array env lf in
-          judge_of_case env ci p pt c ct lf lft
-
-    | Fix ((vn,i as vni),recdef) ->
-      let (fix_ty,recdef') = execute_recdef env recdef i in
-      let fix = (vni,recdef') in
-        check_fix env fix; fix_ty
-	  
-    | CoFix (i,recdef) ->
-      let (fix_ty,recdef') = execute_recdef env recdef i in
-      let cofix = (i,recdef') in
-        check_cofix env cofix; fix_ty
-	  
-    (* Partial proofs: unsupported by the kernel *)
-    | Meta _ ->
-	anomaly (Pp.str "the kernel does not support metavariables")
-
-    | Evar _ ->
-	anomaly (Pp.str "the kernel does not support existential variables")
-
-and execute_is_type env constr =
-  let t = execute env constr in
-    check_type env constr t
-
-and execute_type env constr =
-  let t = execute env constr in
-    type_judgment env constr t
-
-and execute_recdef env (names,lar,vdef) i =
-  let lart = execute_array env lar in
-  let lara = Array.map2 (assumption_of_judgment env) lar lart in
-  let env1 = push_rec_types (names,lara,vdef) env in
-  let vdeft = execute_array env1 vdef in
-  let () = type_fixpoint env1 names lara vdef vdeft in
-    (lara.(i),(names,lara,vdef))
-
-and execute_array env = Array.map (execute env)
-
-(* Derived functions *)
-let infer env constr =
-  let t = execute env constr in
-    make_judge constr t
-
-let infer = 
-  if Flags.profile then
-    let infer_key = Profile.declare_profile "Fast_infer" in
-      Profile.profile2 infer_key (fun b c -> infer b c)
-  else (fun b c -> infer b c)
-
-let infer_type env constr =
-  execute_type env constr
-
-let infer_v env cv =
-  let jv = execute_array env cv in
-    make_judgev cv jv
diff --git a/kernel/fast_typeops.mli b/kernel/fast_typeops.mli
deleted file mode 100644
index 41cff607e..000000000
--- a/kernel/fast_typeops.mli
+++ /dev/null
@@ -1,24 +0,0 @@
-(************************************************************************)
-(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
-(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016     *)
-(*   \VV/  **************************************************************)
-(*    //   *      This file is distributed under the terms of the       *)
-(*         *       GNU Lesser General Public License Version 2.1        *)
-(************************************************************************)
-
-open Term
-open Environ
-open Declarations
-
-(** {6 Typing functions (not yet tagged as safe) }
-    
-    They return unsafe judgments that are "in context" of a set of 
-    (local) universe variables (the ones that appear in the term)
-    and associated constraints. In case of polymorphic definitions,
-    these variables and constraints will be generalized.
- *)
-
-
-val infer      : env -> constr       -> unsafe_judgment
-val infer_v    : env -> constr array -> unsafe_judgment array
-val infer_type : env -> types        -> unsafe_type_judgment
diff --git a/kernel/kernel.mllib b/kernel/kernel.mllib
index 15f213ce9..4c540a6d7 100644
--- a/kernel/kernel.mllib
+++ b/kernel/kernel.mllib
@@ -32,7 +32,6 @@ Type_errors
 Modops
 Inductive
 Typeops
-Fast_typeops
 Indtypes
 Cooking
 Term_typing
diff --git a/kernel/pre_env.ml b/kernel/pre_env.ml
index 72de2f1a6..d14a254d3 100644
--- a/kernel/pre_env.ml
+++ b/kernel/pre_env.ml
@@ -157,7 +157,8 @@ let map_named_val f ctxt =
     (accu, d')
   in
   let map, ctx = List.fold_map fold ctxt.env_named_map ctxt.env_named_ctx in
-  { env_named_ctx = ctx; env_named_map = map }
+  if map == ctxt.env_named_map then ctxt
+  else { env_named_ctx = ctx; env_named_map = map }
 
 let push_named d env =
 (*  if not (env.env_rel_context = []) then raise (ASSERT env.env_rel_context);
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml
index ae3679ddd..e4b3fcbf1 100644
--- a/kernel/safe_typing.ml
+++ b/kernel/safe_typing.ml
@@ -215,8 +215,8 @@ type private_constant_role = Term_typing.side_effect_role =
   | Schema of inductive * string
 
 let empty_private_constants = []
-let add_private x xs = x :: xs
-let concat_private xs ys = xs @ ys
+let add_private x xs = if List.mem_f Term_typing.equal_eff x xs then xs else x :: xs
+let concat_private xs ys = List.fold_right add_private xs ys
 let mk_pure_proof = Term_typing.mk_pure_proof
 let inline_private_constants_in_constr = Term_typing.inline_side_effects
 let inline_private_constants_in_definition_entry = Term_typing.inline_entry_side_effects
@@ -796,7 +796,10 @@ type compiled_library = {
 type native_library = Nativecode.global list
 
 let get_library_native_symbols senv dir =
-  DPMap.find dir senv.native_symbols
+  try DPMap.find dir senv.native_symbols
+  with Not_found -> CErrors.user_err ~hdr:"get_library_native_symbols"
+                      Pp.((str "Linker error in the native compiler. Are you using Require inside a nested Module declaration?") ++ fnl () ++
+                          (str "This use case is not supported, but disabling the native compiler may help."))
 
 (** FIXME: MS: remove?*)
 let current_modpath senv = senv.modpath
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml
index d8774944e..3a0d1a2a5 100644
--- a/kernel/term_typing.ml
+++ b/kernel/term_typing.ml
@@ -20,7 +20,6 @@ open Declarations
 open Environ
 open Entries
 open Typeops
-open Fast_typeops
 
 module RelDecl = Context.Rel.Declaration
 module NamedDecl = Context.Named.Declaration
diff --git a/kernel/term_typing.mli b/kernel/term_typing.mli
index fcd95576c..89b5fc40e 100644
--- a/kernel/term_typing.mli
+++ b/kernel/term_typing.mli
@@ -30,6 +30,7 @@ val inline_entry_side_effects :
     yet type checked proof. *)
 
 val uniq_seff : side_effects -> side_effects
+val equal_eff : side_effect -> side_effect -> bool
 
 val translate_constant :
   structure_body -> env -> constant -> side_effects constant_entry ->
diff --git a/kernel/typeops.ml b/kernel/typeops.ml
index 24018ab31..7d9a2aac0 100644
--- a/kernel/typeops.ml
+++ b/kernel/typeops.ml
@@ -14,11 +14,9 @@ open Term
 open Vars
 open Declarations
 open Environ
-open Entries
 open Reduction
 open Inductive
 open Type_errors
-open Context.Rel.Declaration
 
 module RelDecl = Context.Rel.Declaration
 module NamedDecl = Context.Named.Declaration
@@ -38,61 +36,46 @@ let check_constraints cst env =
   if Environ.check_constraints cst env then ()
   else error_unsatisfied_constraints env cst
 
-(* This should be a type (a priori without intension to be an assumption) *)
-let type_judgment env j =
-  match kind_of_term(whd_all env j.uj_type) with
-    | Sort s -> {utj_val = j.uj_val; utj_type = s }
-    | _ -> error_not_type env j
+(* This should be a type (a priori without intention to be an assumption) *)
+let check_type env c t =
+  match kind_of_term(whd_all env t) with
+  | Sort s -> s
+  | _ -> error_not_type env (make_judge c t)
 
-(* This should be a type intended to be assumed. The error message is *)
-(* not as useful as for [type_judgment]. *)
-let assumption_of_judgment env j =
-  try (type_judgment env j).utj_val
+(* This should be a type intended to be assumed. The error message is
+   not as useful as for [type_judgment]. *)
+let check_assumption env t ty =
+  try let _ = check_type env t ty in t
   with TypeError _ ->
-    error_assumption env j
+    error_assumption env (make_judge t ty)
 
 (************************************************)
-(* Incremental typing rules: builds a typing judgement given the *)
-(* judgements for the subterms. *)
+(* Incremental typing rules: builds a typing judgment given the *)
+(* judgments for the subterms. *)
 
 (*s Type of sorts *)
 
 (* Prop and Set *)
 
-let judge_of_prop =
-  { uj_val = mkProp;
-    uj_type = mkSort type1_sort }
-
-let judge_of_set =
-  { uj_val = mkSet;
-    uj_type = mkSort type1_sort }
-
-let judge_of_prop_contents = function
-  | Null -> judge_of_prop
-  | Pos -> judge_of_set
+let type1 = mkSort type1_sort
 
 (* Type of Type(i). *)
 
-let judge_of_type u =
+let type_of_type u =
   let uu = Universe.super u in
-    { uj_val = mkType u;
-      uj_type = mkType uu }
+    mkType uu
 
 (*s Type of a de Bruijn index. *)
 
-let judge_of_relative env n =
+let type_of_relative env n =
   try
-    let typ = RelDecl.get_type (lookup_rel n env) in
-    { uj_val  = mkRel n;
-      uj_type = lift n typ }
+    env |> lookup_rel n |> RelDecl.get_type |> lift n
   with Not_found ->
     error_unbound_rel env n
 
 (* Type of variables *)
-let judge_of_variable env id =
-  try
-    let ty = named_type id env in
-    make_judge (mkVar id) ty
+let type_of_variable env id =
+  try named_type id env
   with Not_found ->
     error_unbound_var env id
 
@@ -101,7 +84,7 @@ let judge_of_variable env id =
 (* Checks if a context of variables can be instantiated by the
    variables of the current env.
    Order does not have to be checked assuming that all names are distinct *)
-let check_hyps_inclusion env c sign =
+let check_hyps_inclusion env f c sign =
   Context.Named.fold_outside
     (fun d1 () ->
       let open Context.Named.Declaration in
@@ -117,7 +100,7 @@ let check_hyps_inclusion env c sign =
         | LocalDef _, LocalAssum _ -> raise NotConvertible
         | LocalDef (_,b2,_), LocalDef (_,b1,_) -> conv env b2 b1);
       with Not_found | NotConvertible | Option.Heterogeneous ->
-        error_reference_variables env id c)
+        error_reference_variables env id (f c))
     sign
     ~init:()
 
@@ -125,35 +108,9 @@ let check_hyps_inclusion env c sign =
 
 (* Make a type polymorphic if an arity *)
 
-let extract_level env p =
-  let _,c = dest_prod_assum env p in
-  match kind_of_term c with Sort (Type u) -> Univ.Universe.level u | _ -> None
-
-let extract_context_levels env l =
-  let fold l = function
-    | LocalAssum (_,p) -> extract_level env p :: l
-    | LocalDef _ -> l
-  in
-  List.fold_left fold [] l
-
-let make_polymorphic_if_constant_for_ind env {uj_val = c; uj_type = t} =
-  let params, ccl = dest_prod_assum env t in
-  match kind_of_term ccl with
-  | Sort (Type u) ->
-     let ind, l = decompose_app (whd_all env c) in
-     if isInd ind && List.is_empty l then
-       let mis = lookup_mind_specif env (fst (destInd ind)) in
-       let nparams = Inductive.inductive_params mis in
-       let paramsl = CList.lastn nparams params in
-       let param_ccls = extract_context_levels env paramsl in
-       let s = { template_param_levels = param_ccls; template_level = u} in
-       TemplateArity (params,s)
-     else RegularArity t
-  | _ ->
-      RegularArity t
-
 (* Type of constants *)
 
+
 let type_of_constant_type_knowing_parameters env t paramtyps =
   match t with
   | RegularArity t -> t
@@ -162,49 +119,28 @@ let type_of_constant_type_knowing_parameters env t paramtyps =
       let ctx,s = instantiate_universes env ctx ar paramtyps in
       mkArity (List.rev ctx,s)
 
-let type_of_constant_knowing_parameters env cst paramtyps =
-  let cb = lookup_constant (fst cst) env in
-  let () = check_hyps_inclusion env (mkConstU cst) cb.const_hyps in
+let type_of_constant_knowing_parameters env (kn,u as cst) args =
+  let cb = lookup_constant kn env in
+  let () = check_hyps_inclusion env mkConstU cst cb.const_hyps in
   let ty, cu = constant_type env cst in
-    type_of_constant_type_knowing_parameters env ty paramtyps, cu
+  let ty = type_of_constant_type_knowing_parameters env ty args in
+  let () = check_constraints cu env in
+    ty
 
-let type_of_constant_knowing_parameters_in env cst paramtyps =
-  let cb = lookup_constant (fst cst) env in
-  let () = check_hyps_inclusion env (mkConstU cst) cb.const_hyps in
+let type_of_constant_knowing_parameters_in env (kn,u as cst) args =
+  let cb = lookup_constant kn env in
+  let () = check_hyps_inclusion env mkConstU cst cb.const_hyps in
   let ty = constant_type_in env cst in
-    type_of_constant_type_knowing_parameters env ty paramtyps
-
-let type_of_constant_type env t =
-  type_of_constant_type_knowing_parameters env t [||]
+  type_of_constant_type_knowing_parameters env ty args
 
 let type_of_constant env cst =
   type_of_constant_knowing_parameters env cst [||]
 
 let type_of_constant_in env cst =
-  let cb = lookup_constant (fst cst) env in
-  let () = check_hyps_inclusion env (mkConstU cst) cb.const_hyps in
-  let ar = constant_type_in env cst in
-    type_of_constant_type_knowing_parameters env ar [||]
-
-let judge_of_constant_knowing_parameters env (kn,u as cst) args =
-  let c = mkConstU cst in
-  let ty, cu = type_of_constant_knowing_parameters env cst args in
-  let () = check_constraints cu env in
-    make_judge c ty
-
-let judge_of_constant env cst =
-  judge_of_constant_knowing_parameters env cst [||]
-
-let type_of_projection env (p,u) =
-  let cst = Projection.constant p in
-  let cb = lookup_constant cst env in
-  match cb.const_proj with
-  | Some pb -> 
-    if cb.const_polymorphic then
-      Vars.subst_instance_constr u pb.proj_type
-    else pb.proj_type
-  | None -> raise (Invalid_argument "type_of_projection: not a projection")
+  type_of_constant_knowing_parameters_in env cst [||]
 
+let type_of_constant_type env t =
+  type_of_constant_type_knowing_parameters env t [||]
 
 (* Type of a lambda-abstraction. *)
 
@@ -218,40 +154,36 @@ let type_of_projection env (p,u) =
   and no upper constraint exists on the sort $s$, we don't need to compute $s$
 *)
 
-let judge_of_abstraction env name var j =
-  { uj_val = mkLambda (name, var.utj_val, j.uj_val);
-    uj_type = mkProd (name, var.utj_val, j.uj_type) }
-
-(* Type of let-in. *)
-
-let judge_of_letin env name defj typj j =
-  { uj_val = mkLetIn (name, defj.uj_val, typj.utj_val, j.uj_val) ;
-    uj_type = subst1 defj.uj_val j.uj_type }
+let type_of_abstraction env name var ty =
+  mkProd (name, var, ty)
 
 (* Type of an application. *)
 
-let judge_of_apply env funj argjv =
-  let rec apply_rec n typ = function
-    | [] ->
-	{ uj_val  = mkApp (j_val funj, Array.map j_val argjv);
-          uj_type = typ }
-    | hj::restjl ->
-        (match kind_of_term (whd_all env typ) with
-          | Prod (_,c1,c2) ->
-	      (try
-		 let () = conv_leq false env hj.uj_type c1 in
-		   apply_rec (n+1) (subst1 hj.uj_val c2) restjl
-	      with NotConvertible ->
-		error_cant_apply_bad_type env
-		  (n,c1, hj.uj_type)
-		  funj argjv)
-
-          | _ ->
-	      error_cant_apply_not_functional env funj argjv)
-  in
-  apply_rec 1
-    funj.uj_type
-    (Array.to_list argjv)
+let make_judgev c t = 
+  Array.map2 make_judge c t
+
+let type_of_apply env func funt argsv argstv =
+  let len = Array.length argsv in
+  let rec apply_rec i typ = 
+    if Int.equal i len then typ
+    else 
+      (match kind_of_term (whd_all env typ) with
+      | Prod (_,c1,c2) ->
+	let arg = argsv.(i) and argt = argstv.(i) in
+	  (try
+	     let () = conv_leq false env argt c1 in
+	       apply_rec (i+1) (subst1 arg c2)
+	   with NotConvertible ->
+	     error_cant_apply_bad_type env
+	       (i+1,c1,argt)
+	       (make_judge func funt)
+	       (make_judgev argsv argstv))
+	    
+      | _ ->
+	error_cant_apply_not_functional env 
+	  (make_judge func funt)
+	  (make_judgev argsv argstv))
+  in apply_rec 0 funt
 
 (* Type of product *)
 
@@ -284,10 +216,9 @@ let sort_of_product env domsort rangsort =
 
   where j.uj_type is convertible to a sort s2
 *)
-let judge_of_product env name t1 t2 =
-  let s = sort_of_product env t1.utj_type t2.utj_type in
-  { uj_val = mkProd (name, t1.utj_val, t2.utj_val);
-    uj_type = mkSort s }
+let type_of_product env name s1 s2 =
+  let s = sort_of_product env s1 s2 in
+    mkSort s
 
 (* Type of a type cast *)
 
@@ -298,29 +229,20 @@ let judge_of_product env name t1 t2 =
          env |- c:typ2
 *)
 
-let judge_of_cast env cj k tj =
-  let expected_type = tj.utj_val in
+let check_cast env c ct k expected_type =
   try
-    let c, cst =
-      match k with
-      | VMcast ->
-          mkCast (cj.uj_val, k, expected_type),
-          Reduction.vm_conv CUMUL env cj.uj_type expected_type
-      | DEFAULTcast ->
-          mkCast (cj.uj_val, k, expected_type),
-          default_conv ~l2r:false CUMUL env cj.uj_type expected_type
-      | REVERTcast ->
-          cj.uj_val,
-          default_conv ~l2r:true CUMUL env cj.uj_type expected_type
-      | NATIVEcast ->
-	 let sigma = Nativelambda.empty_evars in
-         mkCast (cj.uj_val, k, expected_type),
-         Nativeconv.native_conv CUMUL sigma env cj.uj_type expected_type
-    in
-      { uj_val = c;
-	uj_type = expected_type }
+    match k with
+    | VMcast ->
+      vm_conv CUMUL env ct expected_type
+    | DEFAULTcast ->
+      default_conv ~l2r:false CUMUL env ct expected_type
+    | REVERTcast ->
+      default_conv ~l2r:true CUMUL env ct expected_type
+    | NATIVEcast ->
+      let sigma = Nativelambda.empty_evars in
+      Nativeconv.native_conv CUMUL sigma env ct expected_type
   with NotConvertible ->
-    error_actual_type env cj expected_type
+    error_actual_type env (make_judge c ct) expected_type
 
 (* Inductive types. *)
 
@@ -336,83 +258,78 @@ let judge_of_cast env cj k tj =
    the App case of execute; from this constraints, the expected
    dynamic constraints of the form u<=v are enforced *)
 
-let judge_of_inductive_knowing_parameters env (ind,u as indu) args =
-  let c = mkIndU indu in
+let type_of_inductive_knowing_parameters env (ind,u as indu) args =
   let (mib,mip) as spec = lookup_mind_specif env ind in
-  check_hyps_inclusion env c mib.mind_hyps;
+  check_hyps_inclusion env mkIndU indu mib.mind_hyps;
   let t,cst = Inductive.constrained_type_of_inductive_knowing_parameters 
     env (spec,u) args
   in
-    check_constraints cst env;
-    make_judge c t
+  check_constraints cst env;
+  t
 
-let judge_of_inductive env (ind,u as indu) =
-  let c = mkIndU indu in
-  let (mib,mip) as spec = lookup_mind_specif env ind in
-  check_hyps_inclusion env c mib.mind_hyps;
-  let t,cst = Inductive.constrained_type_of_inductive env (spec,u) in
-    check_constraints cst env;
-    (make_judge c t)
+let type_of_inductive env (ind,u as indu) =
+  let (mib,mip) = lookup_mind_specif env ind in
+  check_hyps_inclusion env mkIndU indu mib.mind_hyps;
+  let t,cst = Inductive.constrained_type_of_inductive env ((mib,mip),u) in
+  check_constraints cst env;
+  t
 
 (* Constructors. *)
 
-let judge_of_constructor env (c,u as cu) =
-  let constr = mkConstructU cu in
-  let _ =
+let type_of_constructor env (c,u as cu) =
+  let () =
     let ((kn,_),_) = c in
     let mib = lookup_mind kn env in
-    check_hyps_inclusion env constr mib.mind_hyps in
+    check_hyps_inclusion env mkConstructU cu mib.mind_hyps
+  in
   let specif = lookup_mind_specif env (inductive_of_constructor c) in
   let t,cst = constrained_type_of_constructor cu specif in
   let () = check_constraints cst env in
-    (make_judge constr t)
+  t
 
 (* Case. *)
 
-let check_branch_types env (ind,u) cj (lfj,explft) =
-  try conv_leq_vecti env (Array.map j_type lfj) explft
+let check_branch_types env (ind,u) c ct lft explft =
+  try conv_leq_vecti env lft explft
   with
       NotConvertibleVect i ->
-        error_ill_formed_branch env cj.uj_val ((ind,i+1),u) lfj.(i).uj_type explft.(i)
+        error_ill_formed_branch env c ((ind,i+1),u) lft.(i) explft.(i)
     | Invalid_argument _ ->
-        error_number_branches env cj (Array.length explft)
+        error_number_branches env (make_judge c ct) (Array.length explft)
 
-let judge_of_case env ci pj cj lfj =
+let type_of_case env ci p pt c ct lf lft =
   let (pind, _ as indspec) =
-    try find_rectype env cj.uj_type
-    with Not_found -> error_case_not_inductive env cj in
+    try find_rectype env ct
+    with Not_found -> error_case_not_inductive env (make_judge c ct) in
   let () = check_case_info env pind ci in
   let (bty,rslty) =
-    type_case_branches env indspec pj cj.uj_val in
-  let () = check_branch_types env pind cj (lfj,bty) in
-  ({ uj_val  = mkCase (ci, (*nf_betaiota*) pj.uj_val, cj.uj_val,
-                       Array.map j_val lfj);
-     uj_type = rslty })
+    type_case_branches env indspec (make_judge p pt) c in
+  let () = check_branch_types env pind c ct lft bty in
+  rslty
 
-let judge_of_projection env p cj =
+let type_of_projection env p c ct =
   let pb = lookup_projection p env in
   let (ind,u), args =
-    try find_rectype env cj.uj_type
-    with Not_found -> error_case_not_inductive env cj
+    try find_rectype env ct
+    with Not_found -> error_case_not_inductive env (make_judge c ct)
   in
-    assert(eq_mind pb.proj_ind (fst ind));
-    let ty = Vars.subst_instance_constr u pb.Declarations.proj_type in
-    let ty = substl (cj.uj_val :: List.rev args) ty in
-      {uj_val = mkProj (p,cj.uj_val);
-       uj_type = ty}
+  assert(eq_mind pb.proj_ind (fst ind));
+  let ty = Vars.subst_instance_constr u pb.Declarations.proj_type in
+  substl (c :: List.rev args) ty
+      
 
 (* Fixpoints. *)
 
 (* Checks the type of a general (co)fixpoint, i.e. without checking *)
 (* the specific guard condition. *)
 
-let type_fixpoint env lna lar vdefj =
-  let lt = Array.length vdefj in
+let check_fixpoint env lna lar vdef vdeft =
+  let lt = Array.length vdeft in
   assert (Int.equal (Array.length lar) lt);
   try
-    conv_leq_vecti env (Array.map j_type vdefj) (Array.map (fun ty -> lift lt ty) lar)
+    conv_leq_vecti env vdeft (Array.map (fun ty -> lift lt ty) lar)
   with NotConvertibleVect i ->
-    error_ill_typed_rec_body env i lna vdefj lar
+    error_ill_typed_rec_body env i lna (make_judgev vdef vdeft) lar
 
 (************************************************************************)
 (************************************************************************)
@@ -422,95 +339,96 @@ let type_fixpoint env lna lar vdefj =
     Ind et Constructsi un jour cela devient des constructions
     arbitraires et non plus des variables *)
 let rec execute env cstr =
+  let open Context.Rel.Declaration in
   match kind_of_term cstr with
     (* Atomic terms *)
     | Sort (Prop c) ->
-      judge_of_prop_contents c
+      type1
 	
     | Sort (Type u) ->
-      judge_of_type u
+      type_of_type u
 
     | Rel n ->
-      judge_of_relative env n
+      type_of_relative env n
 
     | Var id ->
-      judge_of_variable env id
+      type_of_variable env id
 
     | Const c ->
-      judge_of_constant env c
+      type_of_constant env c
 	
     | Proj (p, c) ->
-        let cj = execute env c in
-          judge_of_projection env p cj
+        let ct = execute env c in
+          type_of_projection env p c ct
 
     (* Lambda calculus operators *)
     | App (f,args) ->
-        let jl = execute_array env args in
-	let j =
+        let argst = execute_array env args in
+	let ft =
 	  match kind_of_term f with
-	    | Ind ind when Environ.template_polymorphic_pind ind env ->
-		(* Sort-polymorphism of inductive types *)
-	      let args = Array.map (fun j -> lazy j.uj_type) jl in
-		judge_of_inductive_knowing_parameters env ind args
-	    | Const cst when Environ.template_polymorphic_pconstant cst env ->
-		(* Sort-polymorphism of constant *)
-	      let args = Array.map (fun j -> lazy j.uj_type) jl in
-		judge_of_constant_knowing_parameters env cst args
-	    | _ ->
-		(* No sort-polymorphism *)
-		execute env f
+	  | Ind ind when Environ.template_polymorphic_pind ind env ->
+	      (* Template sort-polymorphism of inductive types *)
+	    let args = Array.map (fun t -> lazy t) argst in
+              type_of_inductive_knowing_parameters env ind args
+	  | Const cst when Environ.template_polymorphic_pconstant cst env ->
+	      (* Template sort-polymorphism of constants *)
+	    let args = Array.map (fun t -> lazy t) argst in
+              type_of_constant_knowing_parameters env cst args
+	  | _ ->
+	    (* Full or no sort-polymorphism *)
+            execute env f
 	in
-	  judge_of_apply env j jl
+
+          type_of_apply env f ft args argst
 
     | Lambda (name,c1,c2) ->
-      let varj = execute_type env c1 in
-      let env1 = push_rel (LocalAssum (name,varj.utj_val)) env in
-      let j' = execute env1 c2 in
-        judge_of_abstraction env name varj j'
+      let _ = execute_is_type env c1 in
+      let env1 = push_rel (LocalAssum (name,c1)) env in
+      let c2t = execute env1 c2 in
+        type_of_abstraction env name c1 c2t
 
     | Prod (name,c1,c2) ->
-      let varj = execute_type env c1 in
-      let env1 = push_rel (LocalAssum (name,varj.utj_val)) env in
-      let varj' = execute_type env1 c2 in
-	judge_of_product env name varj varj'
+      let vars = execute_is_type env c1 in
+      let env1 = push_rel (LocalAssum (name,c1)) env in
+      let vars' = execute_is_type env1 c2 in
+        type_of_product env name vars vars'
 
     | LetIn (name,c1,c2,c3) ->
-      let j1 = execute env c1 in
-      let j2 = execute_type env c2 in
-      let _ = judge_of_cast env j1 DEFAULTcast j2 in
-      let env1 = push_rel (LocalDef (name,j1.uj_val,j2.utj_val)) env in
-      let j' = execute env1 c3 in
-        judge_of_letin env name j1 j2 j'
+      let c1t = execute env c1 in
+      let _c2s = execute_is_type env c2 in
+      let () = check_cast env c1 c1t DEFAULTcast c2 in
+      let env1 = push_rel (LocalDef (name,c1,c2)) env in
+      let c3t = execute env1 c3 in
+	subst1 c1 c3t
 
     | Cast (c,k,t) ->
-      let cj = execute env c in
-      let tj = execute_type env t in
-        judge_of_cast env cj k tj
+      let ct = execute env c in
+      let _ts = (check_type env t (execute env t)) in
+      let () = check_cast env c ct k t in
+	t
 
     (* Inductive types *)
     | Ind ind ->
-      judge_of_inductive env ind
+      type_of_inductive env ind
 
     | Construct c ->
-      judge_of_constructor env c
+      type_of_constructor env c
 
     | Case (ci,p,c,lf) ->
-        let cj = execute env c in
-        let pj = execute env p in
-        let lfj = execute_array env lf in
-          judge_of_case env ci pj cj lfj
+        let ct = execute env c in
+        let pt = execute env p in
+        let lft = execute_array env lf in
+          type_of_case env ci p pt c ct lf lft
 
     | Fix ((vn,i as vni),recdef) ->
       let (fix_ty,recdef') = execute_recdef env recdef i in
       let fix = (vni,recdef') in
-        check_fix env fix;
-	make_judge (mkFix fix) fix_ty
+        check_fix env fix; fix_ty
 	  
     | CoFix (i,recdef) ->
       let (fix_ty,recdef') = execute_recdef env recdef i in
       let cofix = (i,recdef') in
-        check_cofix env cofix;
-	(make_judge (mkCoFix cofix) fix_ty)
+        check_cofix env cofix; fix_ty
 	  
     (* Partial proofs: unsupported by the kernel *)
     | Meta _ ->
@@ -519,53 +437,158 @@ let rec execute env cstr =
     | Evar _ ->
 	anomaly (Pp.str "the kernel does not support existential variables")
 
-and execute_type env constr =
-  let j = execute env constr in
-    type_judgment env j
+and execute_is_type env constr =
+  let t = execute env constr in
+    check_type env constr t
 
 and execute_recdef env (names,lar,vdef) i =
-  let larj = execute_array env lar in
-  let lara = Array.map (assumption_of_judgment env) larj in
+  let lart = execute_array env lar in
+  let lara = Array.map2 (check_assumption env) lar lart in
   let env1 = push_rec_types (names,lara,vdef) env in
-  let vdefj = execute_array env1 vdef in
-  let vdefv = Array.map j_val vdefj in
-  let () = type_fixpoint env1 names lara vdefj in
-    (lara.(i),(names,lara,vdefv))
+  let vdeft = execute_array env1 vdef in
+  let () = check_fixpoint env1 names lara vdef vdeft in
+    (lara.(i),(names,lara,vdef))
 
 and execute_array env = Array.map (execute env)
 
 (* Derived functions *)
 let infer env constr =
-  let j = execute env constr in
-    assert (eq_constr j.uj_val constr);
-    j
+  let t = execute env constr in
+    make_judge constr t
+
+let infer = 
+  if Flags.profile then
+    let infer_key = Profile.declare_profile "Fast_infer" in
+      Profile.profile2 infer_key (fun b c -> infer b c)
+  else (fun b c -> infer b c)
+
+let assumption_of_judgment env {uj_val=c; uj_type=t} =
+  check_assumption env c t
 
-(* let infer_key = Profile.declare_profile "infer" *)
-(* let infer = Profile.profile2 infer_key infer *)
+let type_judgment env {uj_val=c; uj_type=t} =
+  let s = check_type env c t in
+  {utj_val = c; utj_type = s }
 
 let infer_type env constr =
-  let j = execute_type env constr in
-    j
+  let t = execute env constr in
+  let s = check_type env constr t in
+  {utj_val = constr; utj_type = s}
 
 let infer_v env cv =
   let jv = execute_array env cv in
-    jv
+    make_judgev cv jv
 
 (* Typing of several terms. *)
 
 let infer_local_decl env id = function
-  | LocalDefEntry c ->
-      let j = infer env c in
-      LocalDef (Name id, j.uj_val, j.uj_type)
-  | LocalAssumEntry c ->
-      let j = infer env c in
-      LocalAssum (Name id, assumption_of_judgment env j)
+  | Entries.LocalDefEntry c ->
+      let t = execute env c in
+      RelDecl.LocalDef (Name id, c, t)
+  | Entries.LocalAssumEntry c ->
+      let t = execute env c in
+      RelDecl.LocalAssum (Name id, check_assumption env c t)
 
 let infer_local_decls env decls =
   let rec inferec env = function
   | (id, d) :: l ->
       let (env, l) = inferec env l in
       let d = infer_local_decl env id d in
-	(push_rel d env, Context.Rel.add d l)
-  | [] -> (env, Context.Rel.empty) in
+        (push_rel d env, Context.Rel.add d l)
+  | [] -> (env, Context.Rel.empty)
+  in
   inferec env decls
+
+let judge_of_prop = make_judge mkProp type1
+let judge_of_set = make_judge mkSet type1
+let judge_of_type u = make_judge (mkType u) (type_of_type u)
+
+let judge_of_prop_contents = function
+  | Null -> judge_of_prop
+  | Pos -> judge_of_set
+
+let judge_of_relative env k = make_judge (mkRel k) (type_of_relative env k)
+
+let judge_of_variable env x = make_judge (mkVar x) (type_of_variable env x)
+
+let judge_of_constant env cst = make_judge (mkConstU cst) (type_of_constant env cst)
+let judge_of_constant_knowing_parameters env cst args =
+  make_judge (mkConstU cst) (type_of_constant_knowing_parameters env cst args)
+
+let judge_of_projection env p cj =
+  make_judge (mkProj (p,cj.uj_val)) (type_of_projection env p cj.uj_val cj.uj_type)
+
+let dest_judgev v =
+  Array.map j_val v, Array.map j_type v
+
+let judge_of_apply env funj argjv =
+  let args, argtys = dest_judgev argjv in
+  make_judge (mkApp (funj.uj_val, args)) (type_of_apply env funj.uj_val funj.uj_type args argtys)
+
+let judge_of_abstraction env x varj bodyj =
+  make_judge (mkLambda (x, varj.utj_val, bodyj.uj_val))
+             (type_of_abstraction env x varj.utj_val bodyj.uj_type)
+
+let judge_of_product env x varj outj =
+  make_judge (mkProd (x, varj.utj_val, outj.utj_val))
+             (mkSort (sort_of_product env varj.utj_type outj.utj_type))
+
+let judge_of_letin env name defj typj j =
+  make_judge (mkLetIn (name, defj.uj_val, typj.utj_val, j.uj_val))
+             (subst1 defj.uj_val j.uj_type)
+
+let judge_of_cast env cj k tj =
+  let () = check_cast env cj.uj_val cj.uj_type k tj.utj_val in
+  let c = match k with | REVERTcast -> cj.uj_val | _ -> mkCast (cj.uj_val, k, tj.utj_val) in
+  make_judge c tj.utj_val
+
+let judge_of_inductive env indu =
+  make_judge (mkIndU indu) (type_of_inductive env indu)
+
+let judge_of_constructor env cu =
+  make_judge (mkConstructU cu) (type_of_constructor env cu)
+
+let judge_of_case env ci pj cj lfj =
+  let lf, lft = dest_judgev lfj in
+  make_judge (mkCase (ci, (*nf_betaiota*) pj.uj_val, cj.uj_val, lft))
+             (type_of_case env ci pj.uj_val pj.uj_type cj.uj_val cj.uj_type lf lft)
+
+let type_of_projection_constant env (p,u) =
+  let cst = Projection.constant p in
+  let cb = lookup_constant cst env in
+  match cb.const_proj with
+  | Some pb ->
+    if cb.const_polymorphic then
+      Vars.subst_instance_constr u pb.proj_type
+    else pb.proj_type
+  | None -> raise (Invalid_argument "type_of_projection: not a projection")
+
+(* Instantiation of terms on real arguments. *)
+
+(* Make a type polymorphic if an arity *)
+
+let extract_level env p =
+  let _,c = dest_prod_assum env p in
+  match kind_of_term c with Sort (Type u) -> Univ.Universe.level u | _ -> None
+
+let extract_context_levels env l =
+  let fold l = function
+    | RelDecl.LocalAssum (_,p) -> extract_level env p :: l
+    | RelDecl.LocalDef _ -> l
+  in
+  List.fold_left fold [] l
+
+let make_polymorphic_if_constant_for_ind env {uj_val = c; uj_type = t} =
+  let params, ccl = dest_prod_assum env t in
+  match kind_of_term ccl with
+  | Sort (Type u) ->
+     let ind, l = decompose_app (whd_all env c) in
+     if isInd ind && List.is_empty l then
+       let mis = lookup_mind_specif env (fst (destInd ind)) in
+       let nparams = Inductive.inductive_params mis in
+       let paramsl = CList.lastn nparams params in
+       let param_ccls = extract_context_levels env paramsl in
+       let s = { template_param_levels = param_ccls; template_level = u} in
+       TemplateArity (params,s)
+     else RegularArity t
+  | _ ->
+      RegularArity t
diff --git a/kernel/typeops.mli b/kernel/typeops.mli
index 81fd1427d..007acae60 100644
--- a/kernel/typeops.mli
+++ b/kernel/typeops.mli
@@ -15,7 +15,7 @@ open Declarations
 
 (** {6 Typing functions (not yet tagged as safe) }
 
-    They return unsafe judgments that are "in context" of a set of 
+    They return unsafe judgments that are "in context" of a set of
     (local) universe variables (the ones that appear in the term)
     and associated constraints. In case of polymorphic definitions,
     these variables and constraints will be generalized.
@@ -91,9 +91,6 @@ val judge_of_cast :
 
 val judge_of_inductive : env -> inductive puniverses -> unsafe_judgment
 
-(* val judge_of_inductive_knowing_parameters : *)
-(*   env -> inductive -> unsafe_judgment array -> unsafe_judgment *)
-
 val judge_of_constructor : env -> constructor puniverses -> unsafe_judgment
 
 (** {6 Type of Cases. } *)
@@ -101,24 +98,15 @@ val judge_of_case : env -> case_info
   -> unsafe_judgment -> unsafe_judgment -> unsafe_judgment array
     -> unsafe_judgment
 
-(** Typecheck general fixpoint (not checking guard conditions) *)
-val type_fixpoint : env -> Name.t array -> types array
-    -> unsafe_judgment array -> unit
-
-val type_of_constant : env -> pconstant -> types constrained
-
 val type_of_constant_type : env -> constant_type -> types
 
-val type_of_projection : env -> Names.projection puniverses -> types
+val type_of_projection_constant : env -> Names.projection puniverses -> types
 
 val type_of_constant_in : env -> pconstant -> types
 
 val type_of_constant_type_knowing_parameters :
   env -> constant_type -> types Lazy.t array -> types
 
-val type_of_constant_knowing_parameters :
-  env -> pconstant -> types Lazy.t array -> types constrained
-
 val type_of_constant_knowing_parameters_in :
   env -> pconstant -> types Lazy.t array -> types
 
@@ -127,4 +115,4 @@ val make_polymorphic_if_constant_for_ind : env -> unsafe_judgment ->
   constant_type
 
 (** Check that hyps are included in env and fails with error otherwise *)
-val check_hyps_inclusion : env -> constr -> Context.Named.t -> unit
+val check_hyps_inclusion : env -> ('a -> constr) -> 'a -> Context.Named.t -> unit
diff --git a/kernel/vars.ml b/kernel/vars.ml
index b27e27fda..4affb5f9f 100644
--- a/kernel/vars.ml
+++ b/kernel/vars.ml
@@ -181,6 +181,15 @@ let subst_of_rel_context_instance sign l =
 let adjust_subst_to_rel_context sign l =
   List.rev (subst_of_rel_context_instance sign l)
 
+let adjust_rel_to_rel_context sign n =
+  let rec aux sign =
+    let open RelDecl in
+    match sign with
+    | LocalAssum _ :: sign' -> let (n',p) = aux sign' in (n'+1,p)
+    | LocalDef (_,c,_)::sign' -> let (n',p) = aux sign' in (n'+1,if n'<n then p+1 else p)
+    | [] -> (0,n)
+  in snd (aux sign)
+
 (* (thin_val sigma) removes identity substitutions from sigma *)
 
 let rec thin_val = function
diff --git a/kernel/vars.mli b/kernel/vars.mli
index 574d50ecc..f7535e6d8 100644
--- a/kernel/vars.mli
+++ b/kernel/vars.mli
@@ -73,6 +73,10 @@ val subst_of_rel_context_instance : Context.Rel.t -> constr list -> substl
 (** For compatibility: returns the substitution reversed *)
 val adjust_subst_to_rel_context : Context.Rel.t -> constr list -> constr list
 
+(** Take an index in an instance of a context and returns its index wrt to
+    the full context (e.g. 2 in [x:A;y:=b;z:C] is 3, i.e. a reference to z) *)
+val adjust_rel_to_rel_context : Context.Rel.t -> int -> int
+
 (** [substnl [a₁;...;an] k c] substitutes in parallel [a₁],...,[an]
     for respectively [Rel(k+1)],...,[Rel(k+n)] in [c]; it relocates
     accordingly indexes in [an],...,[a1] and [c]. In terms of typing, if
diff --git a/lib/aux_file.ml b/lib/aux_file.ml
index 0f0f09aa2..1b6651a55 100644
--- a/lib/aux_file.ml
+++ b/lib/aux_file.ml
@@ -17,10 +17,6 @@ let version = 1
 
 let oc = ref None
 
-let chop_extension f =
-  if check_suffix f ".v" then chop_extension f
-  else f
-
 let aux_file_name_for vfile =
   dirname vfile ^ "/." ^ chop_extension(basename vfile) ^ ".aux"
 
@@ -76,14 +72,15 @@ let load_aux_file_for vfile =
   let add loc k v = h := set !h loc k v in
   let aux_fname = aux_file_name_for vfile in
   try
-    let ic = open_in aux_fname in
-    let ver, hash, fname = Scanf.fscanf ic "COQAUX%d %s %s\n" ret3 in
+    let ib = Scanf.Scanning.from_channel (open_in aux_fname) in
+    let ver, hash, fname =
+      Scanf.bscanf ib "COQAUX%d %s %s\n" ret3 in
     if ver <> version then raise (Failure "aux file version mismatch");
     if fname <> vfile then
       raise (Failure "aux file name mismatch");
     let only_dummyloc = Digest.to_hex (Digest.file vfile) <> hash in
     while true do
-      let i, j, k, v = Scanf.fscanf ic "%d %d %s %S\n" ret4 in
+      let i, j, k, v = Scanf.bscanf ib "%d %d %s %S\n" ret4 in
       if not only_dummyloc || (i = 0 && j = 0) then add (i,j) k v;
     done;
     raise End_of_file
diff --git a/lib/feedback.ml b/lib/feedback.ml
index 44b3ee35d..57c6f30a4 100644
--- a/lib/feedback.ml
+++ b/lib/feedback.ml
@@ -27,7 +27,6 @@ type feedback_content =
   | ProcessingIn of string
   | InProgress of int
   | WorkerStatus of string * string
-  | Goals of Loc.t * string
   | AddedAxiom
   | GlobRef of Loc.t * string * string * string * string
   | GlobDef of Loc.t * string * string * string
diff --git a/lib/feedback.mli b/lib/feedback.mli
index 5160bd5bc..b4bed8793 100644
--- a/lib/feedback.mli
+++ b/lib/feedback.mli
@@ -36,7 +36,6 @@ type feedback_content =
   | InProgress of int
   | WorkerStatus of string * string
   (* Generally useful metadata *)
-  | Goals of Loc.t * string
   | AddedAxiom
   | GlobRef of Loc.t * string * string * string * string
   | GlobDef of Loc.t * string * string * string
diff --git a/lib/monad.mli b/lib/monad.mli
index f7de71f53..7b0a3e600 100644
--- a/lib/monad.mli
+++ b/lib/monad.mli
@@ -66,7 +66,8 @@ module type ListS = sig
       its second argument in a tail position. *)
   val iter : ('a -> unit t) -> 'a list -> unit t
 
-  (** Like the regular {!CList.map_filter}. The monadic effects are threaded left*)
+  (** Like the regular {!CList.map_filter}. The monadic effects are
+      threaded left to right. *)
   val map_filter : ('a -> 'b option t) -> 'a list -> 'b list t
 
 
diff --git a/lib/pp.ml b/lib/pp.ml
index f3bb47539..a51b4458f 100644
--- a/lib/pp.ml
+++ b/lib/pp.ml
@@ -72,8 +72,6 @@ open Pp_control
       this block is small enough to fit on a single line
    \item[hovbox:] Horizontal or Vertical block: breaks lead to new line
       only when necessary to print the content of the block
-   \item[tbox:] Tabulation block: go to tabulation marks and no line breaking
-      (except if no mark yet on the reste of the line)
    \end{description}
  *)
 
@@ -82,7 +80,6 @@ type block_type =
   | Pp_vbox of int
   | Pp_hvbox of int
   | Pp_hovbox of int
-  | Pp_tbox
 
 type str_token =
 | Str_def of string
@@ -92,14 +89,11 @@ type 'a ppcmd_token =
   | Ppcmd_print of 'a
   | Ppcmd_box of block_type * ('a ppcmd_token Glue.t)
   | Ppcmd_print_break of int * int
-  | Ppcmd_set_tab
-  | Ppcmd_print_tbreak of int * int
   | Ppcmd_white_space of int
   | Ppcmd_force_newline
   | Ppcmd_print_if_broken
   | Ppcmd_open_box of block_type
   | Ppcmd_close_box
-  | Ppcmd_close_tbox
   | Ppcmd_comment of string list
   | Ppcmd_open_tag of Tag.t
   | Ppcmd_close_tag
@@ -161,8 +155,6 @@ let utf8_length s =
 let str s = Glue.atom(Ppcmd_print (Str_def s))
 let stras (i, s) = Glue.atom(Ppcmd_print (Str_len (s, i)))
 let brk (a,b) = Glue.atom(Ppcmd_print_break (a,b))
-let tbrk (a,b) = Glue.atom(Ppcmd_print_tbreak (a,b))
-let tab () = Glue.atom(Ppcmd_set_tab)
 let fnl () = Glue.atom(Ppcmd_force_newline)
 let pifb () = Glue.atom(Ppcmd_print_if_broken)
 let ws n = Glue.atom(Ppcmd_white_space n)
@@ -212,16 +204,13 @@ let h n s = Glue.atom(Ppcmd_box(Pp_hbox n,s))
 let v n s = Glue.atom(Ppcmd_box(Pp_vbox n,s))
 let hv n s = Glue.atom(Ppcmd_box(Pp_hvbox n,s))
 let hov n s = Glue.atom(Ppcmd_box(Pp_hovbox n,s))
-let t s = Glue.atom(Ppcmd_box(Pp_tbox,s))
 
 (* Opening and closing of boxes *)
 let hb n = Glue.atom(Ppcmd_open_box(Pp_hbox n))
 let vb n = Glue.atom(Ppcmd_open_box(Pp_vbox n))
 let hvb n = Glue.atom(Ppcmd_open_box(Pp_hvbox n))
 let hovb n = Glue.atom(Ppcmd_open_box(Pp_hovbox n))
-let tb () = Glue.atom(Ppcmd_open_box Pp_tbox)
 let close () = Glue.atom(Ppcmd_close_box)
-let tclose () = Glue.atom(Ppcmd_close_tbox)
 
 (* Opening and closed of tags *)
 let open_tag t = Glue.atom(Ppcmd_open_tag t)
@@ -263,7 +252,6 @@ let pp_dirs ?pp_tag ft =
     | Pp_vbox n   -> Format.pp_open_vbox ft n
     | Pp_hvbox n  -> Format.pp_open_hvbox ft n
     | Pp_hovbox n -> Format.pp_open_hovbox ft n
-    | Pp_tbox     -> Format.pp_open_tbox ft ()
   in
   let rec pp_cmd = function
     | Ppcmd_print tok         ->
@@ -280,11 +268,8 @@ let pp_dirs ?pp_tag ft =
         Format.pp_close_box ft ()
     | Ppcmd_open_box bty      -> pp_open_box bty
     | Ppcmd_close_box         -> Format.pp_close_box ft ()
-    | Ppcmd_close_tbox        -> Format.pp_close_tbox ft ()
     | Ppcmd_white_space n     -> Format.pp_print_break ft n 0
     | Ppcmd_print_break(m,n)  -> Format.pp_print_break ft m n
-    | Ppcmd_set_tab           -> Format.pp_set_tab ft ()
-    | Ppcmd_print_tbreak(m,n) -> Format.pp_print_tbreak ft m n
     | Ppcmd_force_newline     -> Format.pp_force_newline ft ()
     | Ppcmd_print_if_broken   -> Format.pp_print_if_newline ft ()
     | Ppcmd_comment coms      -> List.iter (pr_com ft) coms
diff --git a/lib/pp.mli b/lib/pp.mli
index 8342a983d..f17908262 100644
--- a/lib/pp.mli
+++ b/lib/pp.mli
@@ -15,8 +15,6 @@ type std_ppcmds
 val str   : string -> std_ppcmds
 val stras : int * string -> std_ppcmds
 val brk   : int * int -> std_ppcmds
-val tbrk  : int * int -> std_ppcmds
-val tab   : unit -> std_ppcmds
 val fnl   : unit -> std_ppcmds
 val pifb  : unit -> std_ppcmds
 val ws    : int -> std_ppcmds
@@ -58,7 +56,6 @@ val h : int -> std_ppcmds -> std_ppcmds
 val v : int -> std_ppcmds -> std_ppcmds
 val hv : int -> std_ppcmds -> std_ppcmds
 val hov : int -> std_ppcmds -> std_ppcmds
-val t : std_ppcmds -> std_ppcmds
 
 (** {6 Opening and closing of boxes} *)
 
@@ -66,9 +63,7 @@ val hb : int -> std_ppcmds
 val vb : int -> std_ppcmds
 val hvb : int -> std_ppcmds
 val hovb : int -> std_ppcmds
-val tb : unit -> std_ppcmds
 val close : unit -> std_ppcmds
-val tclose : unit -> std_ppcmds
 
 (** {6 Opening and closing of tags} *)
 
diff --git a/lib/richpp.ml b/lib/richpp.ml
index a98273edb..d1c6d158e 100644
--- a/lib/richpp.ml
+++ b/lib/richpp.ml
@@ -55,7 +55,7 @@ let rich_pp annotate ppcmds =
     string_of_int index
   in
 
-  let pp_buffer = Buffer.create 13 in
+  let pp_buffer = Buffer.create 180 in
 
   let push_pcdata () =
     (** Push the optional PCData on the above node *)
@@ -113,6 +113,13 @@ let rich_pp annotate ppcmds =
   pp_set_formatter_tag_functions ft tag_functions;
   pp_set_mark_tags ft true;
 
+  (* Set formatter width. This is currently a hack and duplicate code
+     with Pp_control. Hopefully it will be fixed better in Coq 8.7 *)
+  let w = pp_get_margin str_formatter () in
+  let m = max (64 * w / 100) (w-30) in
+  pp_set_margin ft w;
+  pp_set_max_indent ft m;
+
   (** The whole output must be a valid document. To that
       end, we nest the document inside <pp> tags. *)
   pp_open_tag ft "pp";
diff --git a/lib/system.ml b/lib/system.ml
index 74dd224a0..e0e2c829d 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -309,6 +309,7 @@ let with_time time f x =
     raise e
 
 let process_id () =
-  if Flags.async_proofs_is_worker () then !Flags.async_proofs_worker_id
-  else Printf.sprintf "master:%d" (Thread.id (Thread.self ()))
-    
+  Printf.sprintf "%d:%s:%d" (Unix.getpid ())
+    (if Flags.async_proofs_is_worker () then !Flags.async_proofs_worker_id
+     else "master")
+    (Thread.id (Thread.self ()))
diff --git a/lib/unicode.ml b/lib/unicode.ml
index ced5e258c..959ccaf73 100644
--- a/lib/unicode.ml
+++ b/lib/unicode.ml
@@ -124,27 +124,11 @@ exception End_of_input
 let utf8_of_unicode n =
   if n < 128 then
     String.make 1 (Char.chr n)
-  else if n < 2048 then
-    let s = String.make 2 (Char.chr (128 + n mod 64)) in
-    begin
-      s.[0] <- Char.chr (192 + n / 64);
-      s
-    end
-  else if n < 65536 then
-    let s = String.make 3 (Char.chr (128 + n mod 64)) in
-    begin
-      s.[1] <- Char.chr (128 + (n / 64) mod 64);
-      s.[0] <- Char.chr (224 + n / 4096);
-      s
-    end
   else
-    let s = String.make 4 (Char.chr (128 + n mod 64)) in
-    begin
-      s.[2] <- Char.chr (128 + (n / 64) mod 64);
-      s.[1] <- Char.chr (128 + (n / 4096) mod 64);
-      s.[0] <- Char.chr (240 + n / 262144);
-      s
-    end
+    let (m,s) = if n < 2048 then (2,192) else if n < 65536 then (3,224) else (4,240) in
+    String.init m (fun i ->
+        let j = (n lsr ((m - 1 - i) * 6)) land 63 in
+        Char.chr (j + if i = 0 then s else 128))
 
 (* If [s] is some UTF-8 encoded string
    and [i] is a position of some UTF-8 character within [s]
diff --git a/lib/unicodetable.ml b/lib/unicodetable.ml
index f4e978d69..b607058c6 100644
--- a/lib/unicodetable.ml
+++ b/lib/unicodetable.ml
@@ -1,5 +1,4 @@
-
-(** Unicode tables generated from Camomile. *)
+(** Unicode tables generated using UUCD. *)
 
 (* Letter, Uppercase *)
 let lu = [
@@ -139,12 +138,25 @@ let lu = [
   (0x0022E,0x0022E);
   (0x00230,0x00230);
   (0x00232,0x00232);
+  (0x0023A,0x0023B);
+  (0x0023D,0x0023E);
+  (0x00241,0x00241);
+  (0x00243,0x00246);
+  (0x00248,0x00248);
+  (0x0024A,0x0024A);
+  (0x0024C,0x0024C);
+  (0x0024E,0x0024E);
+  (0x00370,0x00370);
+  (0x00372,0x00372);
+  (0x00376,0x00376);
+  (0x0037F,0x0037F);
   (0x00386,0x00386);
   (0x00388,0x0038A);
   (0x0038C,0x0038C);
   (0x0038E,0x0038F);
   (0x00391,0x003A1);
   (0x003A3,0x003AB);
+  (0x003CF,0x003CF);
   (0x003D2,0x003D4);
   (0x003D8,0x003D8);
   (0x003DA,0x003DA);
@@ -159,7 +171,9 @@ let lu = [
   (0x003EC,0x003EC);
   (0x003EE,0x003EE);
   (0x003F4,0x003F4);
-  (0x00400,0x0042F);
+  (0x003F7,0x003F7);
+  (0x003F9,0x003FA);
+  (0x003FD,0x0042F);
   (0x00460,0x00460);
   (0x00462,0x00462);
   (0x00464,0x00464);
@@ -230,7 +244,11 @@ let lu = [
   (0x004F0,0x004F0);
   (0x004F2,0x004F2);
   (0x004F4,0x004F4);
+  (0x004F6,0x004F6);
   (0x004F8,0x004F8);
+  (0x004FA,0x004FA);
+  (0x004FC,0x004FC);
+  (0x004FE,0x004FE);
   (0x00500,0x00500);
   (0x00502,0x00502);
   (0x00504,0x00504);
@@ -239,8 +257,27 @@ let lu = [
   (0x0050A,0x0050A);
   (0x0050C,0x0050C);
   (0x0050E,0x0050E);
+  (0x00510,0x00510);
+  (0x00512,0x00512);
+  (0x00514,0x00514);
+  (0x00516,0x00516);
+  (0x00518,0x00518);
+  (0x0051A,0x0051A);
+  (0x0051C,0x0051C);
+  (0x0051E,0x0051E);
+  (0x00520,0x00520);
+  (0x00522,0x00522);
+  (0x00524,0x00524);
+  (0x00526,0x00526);
+  (0x00528,0x00528);
+  (0x0052A,0x0052A);
+  (0x0052C,0x0052C);
+  (0x0052E,0x0052E);
   (0x00531,0x00556);
   (0x010A0,0x010C5);
+  (0x010C7,0x010C7);
+  (0x010CD,0x010CD);
+  (0x013A0,0x013F5);
   (0x01E00,0x01E00);
   (0x01E02,0x01E02);
   (0x01E04,0x01E04);
@@ -316,6 +353,7 @@ let lu = [
   (0x01E90,0x01E90);
   (0x01E92,0x01E92);
   (0x01E94,0x01E94);
+  (0x01E9E,0x01E9E);
   (0x01EA0,0x01EA0);
   (0x01EA2,0x01EA2);
   (0x01EA4,0x01EA4);
@@ -361,6 +399,9 @@ let lu = [
   (0x01EF4,0x01EF4);
   (0x01EF6,0x01EF6);
   (0x01EF8,0x01EF8);
+  (0x01EFA,0x01EFA);
+  (0x01EFC,0x01EFC);
+  (0x01EFE,0x01EFE);
   (0x01F08,0x01F0F);
   (0x01F18,0x01F1D);
   (0x01F28,0x01F2F);
@@ -386,12 +427,176 @@ let lu = [
   (0x02126,0x02126);
   (0x02128,0x02128);
   (0x0212A,0x0212D);
-  (0x02130,0x02131);
-  (0x02133,0x02133);
+  (0x02130,0x02133);
   (0x0213E,0x0213F);
   (0x02145,0x02145);
+  (0x02183,0x02183);
+  (0x02C00,0x02C2E);
+  (0x02C60,0x02C60);
+  (0x02C62,0x02C64);
+  (0x02C67,0x02C67);
+  (0x02C69,0x02C69);
+  (0x02C6B,0x02C6B);
+  (0x02C6D,0x02C70);
+  (0x02C72,0x02C72);
+  (0x02C75,0x02C75);
+  (0x02C7E,0x02C80);
+  (0x02C82,0x02C82);
+  (0x02C84,0x02C84);
+  (0x02C86,0x02C86);
+  (0x02C88,0x02C88);
+  (0x02C8A,0x02C8A);
+  (0x02C8C,0x02C8C);
+  (0x02C8E,0x02C8E);
+  (0x02C90,0x02C90);
+  (0x02C92,0x02C92);
+  (0x02C94,0x02C94);
+  (0x02C96,0x02C96);
+  (0x02C98,0x02C98);
+  (0x02C9A,0x02C9A);
+  (0x02C9C,0x02C9C);
+  (0x02C9E,0x02C9E);
+  (0x02CA0,0x02CA0);
+  (0x02CA2,0x02CA2);
+  (0x02CA4,0x02CA4);
+  (0x02CA6,0x02CA6);
+  (0x02CA8,0x02CA8);
+  (0x02CAA,0x02CAA);
+  (0x02CAC,0x02CAC);
+  (0x02CAE,0x02CAE);
+  (0x02CB0,0x02CB0);
+  (0x02CB2,0x02CB2);
+  (0x02CB4,0x02CB4);
+  (0x02CB6,0x02CB6);
+  (0x02CB8,0x02CB8);
+  (0x02CBA,0x02CBA);
+  (0x02CBC,0x02CBC);
+  (0x02CBE,0x02CBE);
+  (0x02CC0,0x02CC0);
+  (0x02CC2,0x02CC2);
+  (0x02CC4,0x02CC4);
+  (0x02CC6,0x02CC6);
+  (0x02CC8,0x02CC8);
+  (0x02CCA,0x02CCA);
+  (0x02CCC,0x02CCC);
+  (0x02CCE,0x02CCE);
+  (0x02CD0,0x02CD0);
+  (0x02CD2,0x02CD2);
+  (0x02CD4,0x02CD4);
+  (0x02CD6,0x02CD6);
+  (0x02CD8,0x02CD8);
+  (0x02CDA,0x02CDA);
+  (0x02CDC,0x02CDC);
+  (0x02CDE,0x02CDE);
+  (0x02CE0,0x02CE0);
+  (0x02CE2,0x02CE2);
+  (0x02CEB,0x02CEB);
+  (0x02CED,0x02CED);
+  (0x02CF2,0x02CF2);
+  (0x0A640,0x0A640);
+  (0x0A642,0x0A642);
+  (0x0A644,0x0A644);
+  (0x0A646,0x0A646);
+  (0x0A648,0x0A648);
+  (0x0A64A,0x0A64A);
+  (0x0A64C,0x0A64C);
+  (0x0A64E,0x0A64E);
+  (0x0A650,0x0A650);
+  (0x0A652,0x0A652);
+  (0x0A654,0x0A654);
+  (0x0A656,0x0A656);
+  (0x0A658,0x0A658);
+  (0x0A65A,0x0A65A);
+  (0x0A65C,0x0A65C);
+  (0x0A65E,0x0A65E);
+  (0x0A660,0x0A660);
+  (0x0A662,0x0A662);
+  (0x0A664,0x0A664);
+  (0x0A666,0x0A666);
+  (0x0A668,0x0A668);
+  (0x0A66A,0x0A66A);
+  (0x0A66C,0x0A66C);
+  (0x0A680,0x0A680);
+  (0x0A682,0x0A682);
+  (0x0A684,0x0A684);
+  (0x0A686,0x0A686);
+  (0x0A688,0x0A688);
+  (0x0A68A,0x0A68A);
+  (0x0A68C,0x0A68C);
+  (0x0A68E,0x0A68E);
+  (0x0A690,0x0A690);
+  (0x0A692,0x0A692);
+  (0x0A694,0x0A694);
+  (0x0A696,0x0A696);
+  (0x0A698,0x0A698);
+  (0x0A69A,0x0A69A);
+  (0x0A722,0x0A722);
+  (0x0A724,0x0A724);
+  (0x0A726,0x0A726);
+  (0x0A728,0x0A728);
+  (0x0A72A,0x0A72A);
+  (0x0A72C,0x0A72C);
+  (0x0A72E,0x0A72E);
+  (0x0A732,0x0A732);
+  (0x0A734,0x0A734);
+  (0x0A736,0x0A736);
+  (0x0A738,0x0A738);
+  (0x0A73A,0x0A73A);
+  (0x0A73C,0x0A73C);
+  (0x0A73E,0x0A73E);
+  (0x0A740,0x0A740);
+  (0x0A742,0x0A742);
+  (0x0A744,0x0A744);
+  (0x0A746,0x0A746);
+  (0x0A748,0x0A748);
+  (0x0A74A,0x0A74A);
+  (0x0A74C,0x0A74C);
+  (0x0A74E,0x0A74E);
+  (0x0A750,0x0A750);
+  (0x0A752,0x0A752);
+  (0x0A754,0x0A754);
+  (0x0A756,0x0A756);
+  (0x0A758,0x0A758);
+  (0x0A75A,0x0A75A);
+  (0x0A75C,0x0A75C);
+  (0x0A75E,0x0A75E);
+  (0x0A760,0x0A760);
+  (0x0A762,0x0A762);
+  (0x0A764,0x0A764);
+  (0x0A766,0x0A766);
+  (0x0A768,0x0A768);
+  (0x0A76A,0x0A76A);
+  (0x0A76C,0x0A76C);
+  (0x0A76E,0x0A76E);
+  (0x0A779,0x0A779);
+  (0x0A77B,0x0A77B);
+  (0x0A77D,0x0A77E);
+  (0x0A780,0x0A780);
+  (0x0A782,0x0A782);
+  (0x0A784,0x0A784);
+  (0x0A786,0x0A786);
+  (0x0A78B,0x0A78B);
+  (0x0A78D,0x0A78D);
+  (0x0A790,0x0A790);
+  (0x0A792,0x0A792);
+  (0x0A796,0x0A796);
+  (0x0A798,0x0A798);
+  (0x0A79A,0x0A79A);
+  (0x0A79C,0x0A79C);
+  (0x0A79E,0x0A79E);
+  (0x0A7A0,0x0A7A0);
+  (0x0A7A2,0x0A7A2);
+  (0x0A7A4,0x0A7A4);
+  (0x0A7A6,0x0A7A6);
+  (0x0A7A8,0x0A7A8);
+  (0x0A7AA,0x0A7AE);
+  (0x0A7B0,0x0A7B4);
+  (0x0A7B6,0x0A7B6);
   (0x0FF21,0x0FF3A);
-  (0x10400,0x10425);
+  (0x10400,0x10427);
+  (0x104B0,0x104D3);
+  (0x10C80,0x10CB2);
+  (0x118A0,0x118BF);
   (0x1D400,0x1D419);
   (0x1D434,0x1D44D);
   (0x1D468,0x1D481);
@@ -421,14 +626,13 @@ let lu = [
   (0x1D6E2,0x1D6FA);
   (0x1D71C,0x1D734);
   (0x1D756,0x1D76E);
-  (0x1D790,0x1D7A8)
+  (0x1D790,0x1D7A8);
+  (0x1D7CA,0x1D7CA)
 ]
 (* Letter, Lowercase *)
 let ll = [
   (0x00061,0x0007A);
-  (0x000AA,0x000AA);
   (0x000B5,0x000B5);
-  (0x000BA,0x000BA);
   (0x000DF,0x000F6);
   (0x000F8,0x000FF);
   (0x00101,0x00101);
@@ -554,6 +758,7 @@ let ll = [
   (0x0021B,0x0021B);
   (0x0021D,0x0021D);
   (0x0021F,0x0021F);
+  (0x00221,0x00221);
   (0x00223,0x00223);
   (0x00225,0x00225);
   (0x00227,0x00227);
@@ -562,8 +767,20 @@ let ll = [
   (0x0022D,0x0022D);
   (0x0022F,0x0022F);
   (0x00231,0x00231);
-  (0x00233,0x00233);
-  (0x00250,0x002AD);
+  (0x00233,0x00239);
+  (0x0023C,0x0023C);
+  (0x0023F,0x00240);
+  (0x00242,0x00242);
+  (0x00247,0x00247);
+  (0x00249,0x00249);
+  (0x0024B,0x0024B);
+  (0x0024D,0x0024D);
+  (0x0024F,0x00293);
+  (0x00295,0x002AF);
+  (0x00371,0x00371);
+  (0x00373,0x00373);
+  (0x00377,0x00377);
+  (0x0037B,0x0037D);
   (0x00390,0x00390);
   (0x003AC,0x003CE);
   (0x003D0,0x003D1);
@@ -581,6 +798,8 @@ let ll = [
   (0x003ED,0x003ED);
   (0x003EF,0x003F3);
   (0x003F5,0x003F5);
+  (0x003F8,0x003F8);
+  (0x003FB,0x003FC);
   (0x00430,0x0045F);
   (0x00461,0x00461);
   (0x00463,0x00463);
@@ -632,7 +851,7 @@ let ll = [
   (0x004C8,0x004C8);
   (0x004CA,0x004CA);
   (0x004CC,0x004CC);
-  (0x004CE,0x004CE);
+  (0x004CE,0x004CF);
   (0x004D1,0x004D1);
   (0x004D3,0x004D3);
   (0x004D5,0x004D5);
@@ -652,7 +871,11 @@ let ll = [
   (0x004F1,0x004F1);
   (0x004F3,0x004F3);
   (0x004F5,0x004F5);
+  (0x004F7,0x004F7);
   (0x004F9,0x004F9);
+  (0x004FB,0x004FB);
+  (0x004FD,0x004FD);
+  (0x004FF,0x004FF);
   (0x00501,0x00501);
   (0x00503,0x00503);
   (0x00505,0x00505);
@@ -661,7 +884,28 @@ let ll = [
   (0x0050B,0x0050B);
   (0x0050D,0x0050D);
   (0x0050F,0x0050F);
+  (0x00511,0x00511);
+  (0x00513,0x00513);
+  (0x00515,0x00515);
+  (0x00517,0x00517);
+  (0x00519,0x00519);
+  (0x0051B,0x0051B);
+  (0x0051D,0x0051D);
+  (0x0051F,0x0051F);
+  (0x00521,0x00521);
+  (0x00523,0x00523);
+  (0x00525,0x00525);
+  (0x00527,0x00527);
+  (0x00529,0x00529);
+  (0x0052B,0x0052B);
+  (0x0052D,0x0052D);
+  (0x0052F,0x0052F);
   (0x00561,0x00587);
+  (0x013F8,0x013FD);
+  (0x01C80,0x01C88);
+  (0x01D00,0x01D2B);
+  (0x01D6B,0x01D77);
+  (0x01D79,0x01D9A);
   (0x01E01,0x01E01);
   (0x01E03,0x01E03);
   (0x01E05,0x01E05);
@@ -736,7 +980,8 @@ let ll = [
   (0x01E8F,0x01E8F);
   (0x01E91,0x01E91);
   (0x01E93,0x01E93);
-  (0x01E95,0x01E9B);
+  (0x01E95,0x01E9D);
+  (0x01E9F,0x01E9F);
   (0x01EA1,0x01EA1);
   (0x01EA3,0x01EA3);
   (0x01EA5,0x01EA5);
@@ -782,7 +1027,9 @@ let ll = [
   (0x01EF5,0x01EF5);
   (0x01EF7,0x01EF7);
   (0x01EF9,0x01EF9);
-  (0x01F00,0x01F07);
+  (0x01EFB,0x01EFB);
+  (0x01EFD,0x01EFD);
+  (0x01EFF,0x01F07);
   (0x01F10,0x01F15);
   (0x01F20,0x01F27);
   (0x01F30,0x01F37);
@@ -803,28 +1050,198 @@ let ll = [
   (0x01FE0,0x01FE7);
   (0x01FF2,0x01FF4);
   (0x01FF6,0x01FF7);
-  (0x02071,0x02071);
-  (0x0207F,0x0207F);
   (0x0210A,0x0210A);
   (0x0210E,0x0210F);
   (0x02113,0x02113);
   (0x0212F,0x0212F);
   (0x02134,0x02134);
   (0x02139,0x02139);
-  (0x0213D,0x0213D);
+  (0x0213C,0x0213D);
   (0x02146,0x02149);
+  (0x0214E,0x0214E);
+  (0x02184,0x02184);
+  (0x02C30,0x02C5E);
+  (0x02C61,0x02C61);
+  (0x02C65,0x02C66);
+  (0x02C68,0x02C68);
+  (0x02C6A,0x02C6A);
+  (0x02C6C,0x02C6C);
+  (0x02C71,0x02C71);
+  (0x02C73,0x02C74);
+  (0x02C76,0x02C7B);
+  (0x02C81,0x02C81);
+  (0x02C83,0x02C83);
+  (0x02C85,0x02C85);
+  (0x02C87,0x02C87);
+  (0x02C89,0x02C89);
+  (0x02C8B,0x02C8B);
+  (0x02C8D,0x02C8D);
+  (0x02C8F,0x02C8F);
+  (0x02C91,0x02C91);
+  (0x02C93,0x02C93);
+  (0x02C95,0x02C95);
+  (0x02C97,0x02C97);
+  (0x02C99,0x02C99);
+  (0x02C9B,0x02C9B);
+  (0x02C9D,0x02C9D);
+  (0x02C9F,0x02C9F);
+  (0x02CA1,0x02CA1);
+  (0x02CA3,0x02CA3);
+  (0x02CA5,0x02CA5);
+  (0x02CA7,0x02CA7);
+  (0x02CA9,0x02CA9);
+  (0x02CAB,0x02CAB);
+  (0x02CAD,0x02CAD);
+  (0x02CAF,0x02CAF);
+  (0x02CB1,0x02CB1);
+  (0x02CB3,0x02CB3);
+  (0x02CB5,0x02CB5);
+  (0x02CB7,0x02CB7);
+  (0x02CB9,0x02CB9);
+  (0x02CBB,0x02CBB);
+  (0x02CBD,0x02CBD);
+  (0x02CBF,0x02CBF);
+  (0x02CC1,0x02CC1);
+  (0x02CC3,0x02CC3);
+  (0x02CC5,0x02CC5);
+  (0x02CC7,0x02CC7);
+  (0x02CC9,0x02CC9);
+  (0x02CCB,0x02CCB);
+  (0x02CCD,0x02CCD);
+  (0x02CCF,0x02CCF);
+  (0x02CD1,0x02CD1);
+  (0x02CD3,0x02CD3);
+  (0x02CD5,0x02CD5);
+  (0x02CD7,0x02CD7);
+  (0x02CD9,0x02CD9);
+  (0x02CDB,0x02CDB);
+  (0x02CDD,0x02CDD);
+  (0x02CDF,0x02CDF);
+  (0x02CE1,0x02CE1);
+  (0x02CE3,0x02CE4);
+  (0x02CEC,0x02CEC);
+  (0x02CEE,0x02CEE);
+  (0x02CF3,0x02CF3);
+  (0x02D00,0x02D25);
+  (0x02D27,0x02D27);
+  (0x02D2D,0x02D2D);
+  (0x0A641,0x0A641);
+  (0x0A643,0x0A643);
+  (0x0A645,0x0A645);
+  (0x0A647,0x0A647);
+  (0x0A649,0x0A649);
+  (0x0A64B,0x0A64B);
+  (0x0A64D,0x0A64D);
+  (0x0A64F,0x0A64F);
+  (0x0A651,0x0A651);
+  (0x0A653,0x0A653);
+  (0x0A655,0x0A655);
+  (0x0A657,0x0A657);
+  (0x0A659,0x0A659);
+  (0x0A65B,0x0A65B);
+  (0x0A65D,0x0A65D);
+  (0x0A65F,0x0A65F);
+  (0x0A661,0x0A661);
+  (0x0A663,0x0A663);
+  (0x0A665,0x0A665);
+  (0x0A667,0x0A667);
+  (0x0A669,0x0A669);
+  (0x0A66B,0x0A66B);
+  (0x0A66D,0x0A66D);
+  (0x0A681,0x0A681);
+  (0x0A683,0x0A683);
+  (0x0A685,0x0A685);
+  (0x0A687,0x0A687);
+  (0x0A689,0x0A689);
+  (0x0A68B,0x0A68B);
+  (0x0A68D,0x0A68D);
+  (0x0A68F,0x0A68F);
+  (0x0A691,0x0A691);
+  (0x0A693,0x0A693);
+  (0x0A695,0x0A695);
+  (0x0A697,0x0A697);
+  (0x0A699,0x0A699);
+  (0x0A69B,0x0A69B);
+  (0x0A723,0x0A723);
+  (0x0A725,0x0A725);
+  (0x0A727,0x0A727);
+  (0x0A729,0x0A729);
+  (0x0A72B,0x0A72B);
+  (0x0A72D,0x0A72D);
+  (0x0A72F,0x0A731);
+  (0x0A733,0x0A733);
+  (0x0A735,0x0A735);
+  (0x0A737,0x0A737);
+  (0x0A739,0x0A739);
+  (0x0A73B,0x0A73B);
+  (0x0A73D,0x0A73D);
+  (0x0A73F,0x0A73F);
+  (0x0A741,0x0A741);
+  (0x0A743,0x0A743);
+  (0x0A745,0x0A745);
+  (0x0A747,0x0A747);
+  (0x0A749,0x0A749);
+  (0x0A74B,0x0A74B);
+  (0x0A74D,0x0A74D);
+  (0x0A74F,0x0A74F);
+  (0x0A751,0x0A751);
+  (0x0A753,0x0A753);
+  (0x0A755,0x0A755);
+  (0x0A757,0x0A757);
+  (0x0A759,0x0A759);
+  (0x0A75B,0x0A75B);
+  (0x0A75D,0x0A75D);
+  (0x0A75F,0x0A75F);
+  (0x0A761,0x0A761);
+  (0x0A763,0x0A763);
+  (0x0A765,0x0A765);
+  (0x0A767,0x0A767);
+  (0x0A769,0x0A769);
+  (0x0A76B,0x0A76B);
+  (0x0A76D,0x0A76D);
+  (0x0A76F,0x0A76F);
+  (0x0A771,0x0A778);
+  (0x0A77A,0x0A77A);
+  (0x0A77C,0x0A77C);
+  (0x0A77F,0x0A77F);
+  (0x0A781,0x0A781);
+  (0x0A783,0x0A783);
+  (0x0A785,0x0A785);
+  (0x0A787,0x0A787);
+  (0x0A78C,0x0A78C);
+  (0x0A78E,0x0A78E);
+  (0x0A791,0x0A791);
+  (0x0A793,0x0A795);
+  (0x0A797,0x0A797);
+  (0x0A799,0x0A799);
+  (0x0A79B,0x0A79B);
+  (0x0A79D,0x0A79D);
+  (0x0A79F,0x0A79F);
+  (0x0A7A1,0x0A7A1);
+  (0x0A7A3,0x0A7A3);
+  (0x0A7A5,0x0A7A5);
+  (0x0A7A7,0x0A7A7);
+  (0x0A7A9,0x0A7A9);
+  (0x0A7B5,0x0A7B5);
+  (0x0A7B7,0x0A7B7);
+  (0x0A7FA,0x0A7FA);
+  (0x0AB30,0x0AB5A);
+  (0x0AB60,0x0AB65);
+  (0x0AB70,0x0ABBF);
   (0x0FB00,0x0FB06);
   (0x0FB13,0x0FB17);
   (0x0FF41,0x0FF5A);
-  (0x10428,0x1044D);
+  (0x10428,0x1044F);
+  (0x104D8,0x104FB);
+  (0x10CC0,0x10CF2);
+  (0x118C0,0x118DF);
   (0x1D41A,0x1D433);
   (0x1D44E,0x1D454);
   (0x1D456,0x1D467);
   (0x1D482,0x1D49B);
   (0x1D4B6,0x1D4B9);
   (0x1D4BB,0x1D4BB);
-  (0x1D4BD,0x1D4C0);
-  (0x1D4C2,0x1D4C3);
+  (0x1D4BD,0x1D4C3);
   (0x1D4C5,0x1D4CF);
   (0x1D4EA,0x1D503);
   (0x1D51E,0x1D537);
@@ -834,7 +1251,7 @@ let ll = [
   (0x1D5EE,0x1D607);
   (0x1D622,0x1D63B);
   (0x1D656,0x1D66F);
-  (0x1D68A,0x1D6A3);
+  (0x1D68A,0x1D6A5);
   (0x1D6C2,0x1D6DA);
   (0x1D6DC,0x1D6E1);
   (0x1D6FC,0x1D714);
@@ -844,7 +1261,8 @@ let ll = [
   (0x1D770,0x1D788);
   (0x1D78A,0x1D78F);
   (0x1D7AA,0x1D7C2);
-  (0x1D7C4,0x1D7C9)
+  (0x1D7C4,0x1D7C9);
+  (0x1D7CB,0x1D7CB)
 ]
 (* Letter, Titlecase *)
 let lt = [
@@ -856,21 +1274,19 @@ let lt = [
   (0x01F98,0x01F9F);
   (0x01FA8,0x01FAF);
   (0x01FBC,0x01FBC);
-  (0x01FCC,0x01FCC);
-  (0x01FFC,0x01FFC)
+  (0x01FCC,0x01FCC)
 ]
 (* Mark, Non-Spacing *)
 let mn = [
-  (0x00300,0x0034F);
-  (0x00360,0x0036F);
-  (0x00483,0x00486);
-  (0x00591,0x005A1);
-  (0x005A3,0x005B9);
-  (0x005BB,0x005BD);
+  (0x00300,0x0036F);
+  (0x00483,0x00487);
+  (0x00591,0x005BD);
   (0x005BF,0x005BF);
   (0x005C1,0x005C2);
-  (0x005C4,0x005C4);
-  (0x0064B,0x00655);
+  (0x005C4,0x005C5);
+  (0x005C7,0x005C7);
+  (0x00610,0x0061A);
+  (0x0064B,0x0065F);
   (0x00670,0x00670);
   (0x006D6,0x006DC);
   (0x006DF,0x006E4);
@@ -879,46 +1295,65 @@ let mn = [
   (0x00711,0x00711);
   (0x00730,0x0074A);
   (0x007A6,0x007B0);
-  (0x00901,0x00902);
+  (0x007EB,0x007F3);
+  (0x00816,0x00819);
+  (0x0081B,0x00823);
+  (0x00825,0x00827);
+  (0x00829,0x0082D);
+  (0x00859,0x0085B);
+  (0x008D4,0x008E1);
+  (0x008E3,0x00902);
+  (0x0093A,0x0093A);
   (0x0093C,0x0093C);
   (0x00941,0x00948);
   (0x0094D,0x0094D);
-  (0x00951,0x00954);
+  (0x00951,0x00957);
   (0x00962,0x00963);
   (0x00981,0x00981);
   (0x009BC,0x009BC);
   (0x009C1,0x009C4);
   (0x009CD,0x009CD);
   (0x009E2,0x009E3);
-  (0x00A02,0x00A02);
+  (0x00A01,0x00A02);
   (0x00A3C,0x00A3C);
   (0x00A41,0x00A42);
   (0x00A47,0x00A48);
   (0x00A4B,0x00A4D);
+  (0x00A51,0x00A51);
   (0x00A70,0x00A71);
+  (0x00A75,0x00A75);
   (0x00A81,0x00A82);
   (0x00ABC,0x00ABC);
   (0x00AC1,0x00AC5);
   (0x00AC7,0x00AC8);
   (0x00ACD,0x00ACD);
+  (0x00AE2,0x00AE3);
   (0x00B01,0x00B01);
   (0x00B3C,0x00B3C);
   (0x00B3F,0x00B3F);
-  (0x00B41,0x00B43);
+  (0x00B41,0x00B44);
   (0x00B4D,0x00B4D);
   (0x00B56,0x00B56);
+  (0x00B62,0x00B63);
   (0x00B82,0x00B82);
   (0x00BC0,0x00BC0);
   (0x00BCD,0x00BCD);
+  (0x00C00,0x00C00);
   (0x00C3E,0x00C40);
   (0x00C46,0x00C48);
   (0x00C4A,0x00C4D);
   (0x00C55,0x00C56);
+  (0x00C62,0x00C63);
+  (0x00C81,0x00C81);
+  (0x00CBC,0x00CBC);
   (0x00CBF,0x00CBF);
   (0x00CC6,0x00CC6);
   (0x00CCC,0x00CCD);
-  (0x00D41,0x00D43);
+  (0x00CE2,0x00CE3);
+  (0x00D01,0x00D01);
+  (0x00D41,0x00D44);
   (0x00D4D,0x00D4D);
+  (0x00D62,0x00D63);
   (0x00DCA,0x00DCA);
   (0x00DD2,0x00DD4);
   (0x00DD6,0x00DD6);
@@ -936,46 +1371,211 @@ let mn = [
   (0x00F71,0x00F7E);
   (0x00F80,0x00F84);
   (0x00F86,0x00F87);
-  (0x00F90,0x00F97);
+  (0x00F8D,0x00F97);
   (0x00F99,0x00FBC);
   (0x00FC6,0x00FC6);
   (0x0102D,0x01030);
-  (0x01032,0x01032);
-  (0x01036,0x01037);
-  (0x01039,0x01039);
+  (0x01032,0x01037);
+  (0x01039,0x0103A);
+  (0x0103D,0x0103E);
   (0x01058,0x01059);
+  (0x0105E,0x01060);
+  (0x01071,0x01074);
+  (0x01082,0x01082);
+  (0x01085,0x01086);
+  (0x0108D,0x0108D);
+  (0x0109D,0x0109D);
+  (0x0135D,0x0135F);
   (0x01712,0x01714);
   (0x01732,0x01734);
   (0x01752,0x01753);
   (0x01772,0x01773);
+  (0x017B4,0x017B5);
   (0x017B7,0x017BD);
   (0x017C6,0x017C6);
   (0x017C9,0x017D3);
+  (0x017DD,0x017DD);
   (0x0180B,0x0180D);
+  (0x01885,0x01886);
   (0x018A9,0x018A9);
+  (0x01920,0x01922);
+  (0x01927,0x01928);
+  (0x01932,0x01932);
+  (0x01939,0x0193B);
+  (0x01A17,0x01A18);
+  (0x01A1B,0x01A1B);
+  (0x01A56,0x01A56);
+  (0x01A58,0x01A5E);
+  (0x01A60,0x01A60);
+  (0x01A62,0x01A62);
+  (0x01A65,0x01A6C);
+  (0x01A73,0x01A7C);
+  (0x01A7F,0x01A7F);
+  (0x01AB0,0x01ABD);
+  (0x01B00,0x01B03);
+  (0x01B34,0x01B34);
+  (0x01B36,0x01B3A);
+  (0x01B3C,0x01B3C);
+  (0x01B42,0x01B42);
+  (0x01B6B,0x01B73);
+  (0x01B80,0x01B81);
+  (0x01BA2,0x01BA5);
+  (0x01BA8,0x01BA9);
+  (0x01BAB,0x01BAD);
+  (0x01BE6,0x01BE6);
+  (0x01BE8,0x01BE9);
+  (0x01BED,0x01BED);
+  (0x01BEF,0x01BF1);
+  (0x01C2C,0x01C33);
+  (0x01C36,0x01C37);
+  (0x01CD0,0x01CD2);
+  (0x01CD4,0x01CE0);
+  (0x01CE2,0x01CE8);
+  (0x01CED,0x01CED);
+  (0x01CF4,0x01CF4);
+  (0x01CF8,0x01CF9);
+  (0x01DC0,0x01DF5);
+  (0x01DFB,0x01DFF);
   (0x020D0,0x020DC);
   (0x020E1,0x020E1);
-  (0x020E5,0x020EA);
-  (0x0302A,0x0302F);
+  (0x020E5,0x020F0);
+  (0x02CEF,0x02CF1);
+  (0x02D7F,0x02D7F);
+  (0x02DE0,0x02DFF);
+  (0x0302A,0x0302D);
   (0x03099,0x0309A);
+  (0x0A66F,0x0A66F);
+  (0x0A674,0x0A67D);
+  (0x0A69E,0x0A69F);
+  (0x0A6F0,0x0A6F1);
+  (0x0A802,0x0A802);
+  (0x0A806,0x0A806);
+  (0x0A80B,0x0A80B);
+  (0x0A825,0x0A826);
+  (0x0A8C4,0x0A8C5);
+  (0x0A8E0,0x0A8F1);
+  (0x0A926,0x0A92D);
+  (0x0A947,0x0A951);
+  (0x0A980,0x0A982);
+  (0x0A9B3,0x0A9B3);
+  (0x0A9B6,0x0A9B9);
+  (0x0A9BC,0x0A9BC);
+  (0x0A9E5,0x0A9E5);
+  (0x0AA29,0x0AA2E);
+  (0x0AA31,0x0AA32);
+  (0x0AA35,0x0AA36);
+  (0x0AA43,0x0AA43);
+  (0x0AA4C,0x0AA4C);
+  (0x0AA7C,0x0AA7C);
+  (0x0AAB0,0x0AAB0);
+  (0x0AAB2,0x0AAB4);
+  (0x0AAB7,0x0AAB8);
+  (0x0AABE,0x0AABF);
+  (0x0AAC1,0x0AAC1);
+  (0x0AAEC,0x0AAED);
+  (0x0AAF6,0x0AAF6);
+  (0x0ABE5,0x0ABE5);
+  (0x0ABE8,0x0ABE8);
+  (0x0ABED,0x0ABED);
   (0x0FB1E,0x0FB1E);
   (0x0FE00,0x0FE0F);
-  (0x0FE20,0x0FE23);
+  (0x0FE20,0x0FE2F);
+  (0x101FD,0x101FD);
+  (0x102E0,0x102E0);
+  (0x10376,0x1037A);
+  (0x10A01,0x10A03);
+  (0x10A05,0x10A06);
+  (0x10A0C,0x10A0F);
+  (0x10A38,0x10A3A);
+  (0x10A3F,0x10A3F);
+  (0x10AE5,0x10AE6);
+  (0x11001,0x11001);
+  (0x11038,0x11046);
+  (0x1107F,0x11081);
+  (0x110B3,0x110B6);
+  (0x110B9,0x110BA);
+  (0x11100,0x11102);
+  (0x11127,0x1112B);
+  (0x1112D,0x11134);
+  (0x11173,0x11173);
+  (0x11180,0x11181);
+  (0x111B6,0x111BE);
+  (0x111CA,0x111CC);
+  (0x1122F,0x11231);
+  (0x11234,0x11234);
+  (0x11236,0x11237);
+  (0x1123E,0x1123E);
+  (0x112DF,0x112DF);
+  (0x112E3,0x112EA);
+  (0x11300,0x11301);
+  (0x1133C,0x1133C);
+  (0x11340,0x11340);
+  (0x11366,0x1136C);
+  (0x11370,0x11374);
+  (0x11438,0x1143F);
+  (0x11442,0x11444);
+  (0x11446,0x11446);
+  (0x114B3,0x114B8);
+  (0x114BA,0x114BA);
+  (0x114BF,0x114C0);
+  (0x114C2,0x114C3);
+  (0x115B2,0x115B5);
+  (0x115BC,0x115BD);
+  (0x115BF,0x115C0);
+  (0x115DC,0x115DD);
+  (0x11633,0x1163A);
+  (0x1163D,0x1163D);
+  (0x1163F,0x11640);
+  (0x116AB,0x116AB);
+  (0x116AD,0x116AD);
+  (0x116B0,0x116B5);
+  (0x116B7,0x116B7);
+  (0x1171D,0x1171F);
+  (0x11722,0x11725);
+  (0x11727,0x1172B);
+  (0x11C30,0x11C36);
+  (0x11C38,0x11C3D);
+  (0x11C3F,0x11C3F);
+  (0x11C92,0x11CA7);
+  (0x11CAA,0x11CB0);
+  (0x11CB2,0x11CB3);
+  (0x11CB5,0x11CB6);
+  (0x16AF0,0x16AF4);
+  (0x16B30,0x16B36);
+  (0x16F8F,0x16F92);
+  (0x1BC9D,0x1BC9E);
   (0x1D167,0x1D169);
   (0x1D17B,0x1D182);
   (0x1D185,0x1D18B);
-  (0x1D1AA,0x1D1AD)
+  (0x1D1AA,0x1D1AD);
+  (0x1D242,0x1D244);
+  (0x1DA00,0x1DA36);
+  (0x1DA3B,0x1DA6C);
+  (0x1DA75,0x1DA75);
+  (0x1DA84,0x1DA84);
+  (0x1DA9B,0x1DA9F);
+  (0x1DAA1,0x1DAAF);
+  (0x1E000,0x1E006);
+  (0x1E008,0x1E018);
+  (0x1E01B,0x1E021);
+  (0x1E023,0x1E024);
+  (0x1E026,0x1E02A);
+  (0x1E8D0,0x1E8D6);
+  (0x1E944,0x1E94A)
 ]
 (* Mark, Spacing Combining *)
 let mc = [
   (0x00903,0x00903);
+  (0x0093B,0x0093B);
   (0x0093E,0x00940);
   (0x00949,0x0094C);
+  (0x0094E,0x0094F);
   (0x00982,0x00983);
   (0x009BE,0x009C0);
   (0x009C7,0x009C8);
   (0x009CB,0x009CC);
   (0x009D7,0x009D7);
+  (0x00A03,0x00A03);
   (0x00A3E,0x00A40);
   (0x00A83,0x00A83);
   (0x00ABE,0x00AC0);
@@ -1011,20 +1611,119 @@ let mc = [
   (0x00DF2,0x00DF3);
   (0x00F3E,0x00F3F);
   (0x00F7F,0x00F7F);
-  (0x0102C,0x0102C);
+  (0x0102B,0x0102C);
   (0x01031,0x01031);
   (0x01038,0x01038);
+  (0x0103B,0x0103C);
   (0x01056,0x01057);
-  (0x017B4,0x017B6);
+  (0x01062,0x01064);
+  (0x01067,0x0106D);
+  (0x01083,0x01084);
+  (0x01087,0x0108C);
+  (0x0108F,0x0108F);
+  (0x0109A,0x0109C);
+  (0x017B6,0x017B6);
   (0x017BE,0x017C5);
   (0x017C7,0x017C8);
-  (0x1D165,0x1D166);
-  (0x1D16D,0x1D172)
+  (0x01923,0x01926);
+  (0x01929,0x0192B);
+  (0x01930,0x01931);
+  (0x01933,0x01938);
+  (0x01A19,0x01A1A);
+  (0x01A55,0x01A55);
+  (0x01A57,0x01A57);
+  (0x01A61,0x01A61);
+  (0x01A63,0x01A64);
+  (0x01A6D,0x01A72);
+  (0x01B04,0x01B04);
+  (0x01B35,0x01B35);
+  (0x01B3B,0x01B3B);
+  (0x01B3D,0x01B41);
+  (0x01B43,0x01B44);
+  (0x01B82,0x01B82);
+  (0x01BA1,0x01BA1);
+  (0x01BA6,0x01BA7);
+  (0x01BAA,0x01BAA);
+  (0x01BE7,0x01BE7);
+  (0x01BEA,0x01BEC);
+  (0x01BEE,0x01BEE);
+  (0x01BF2,0x01BF3);
+  (0x01C24,0x01C2B);
+  (0x01C34,0x01C35);
+  (0x01CE1,0x01CE1);
+  (0x01CF2,0x01CF3);
+  (0x0302E,0x0302F);
+  (0x0A823,0x0A824);
+  (0x0A827,0x0A827);
+  (0x0A880,0x0A881);
+  (0x0A8B4,0x0A8C3);
+  (0x0A952,0x0A953);
+  (0x0A983,0x0A983);
+  (0x0A9B4,0x0A9B5);
+  (0x0A9BA,0x0A9BB);
+  (0x0A9BD,0x0A9C0);
+  (0x0AA2F,0x0AA30);
+  (0x0AA33,0x0AA34);
+  (0x0AA4D,0x0AA4D);
+  (0x0AA7B,0x0AA7B);
+  (0x0AA7D,0x0AA7D);
+  (0x0AAEB,0x0AAEB);
+  (0x0AAEE,0x0AAEF);
+  (0x0AAF5,0x0AAF5);
+  (0x0ABE3,0x0ABE4);
+  (0x0ABE6,0x0ABE7);
+  (0x0ABE9,0x0ABEA);
+  (0x0ABEC,0x0ABEC);
+  (0x11000,0x11000);
+  (0x11002,0x11002);
+  (0x11082,0x11082);
+  (0x110B0,0x110B2);
+  (0x110B7,0x110B8);
+  (0x1112C,0x1112C);
+  (0x11182,0x11182);
+  (0x111B3,0x111B5);
+  (0x111BF,0x111C0);
+  (0x1122C,0x1122E);
+  (0x11232,0x11233);
+  (0x11235,0x11235);
+  (0x112E0,0x112E2);
+  (0x11302,0x11303);
+  (0x1133E,0x1133F);
+  (0x11341,0x11344);
+  (0x11347,0x11348);
+  (0x1134B,0x1134D);
+  (0x11357,0x11357);
+  (0x11362,0x11363);
+  (0x11435,0x11437);
+  (0x11440,0x11441);
+  (0x11445,0x11445);
+  (0x114B0,0x114B2);
+  (0x114B9,0x114B9);
+  (0x114BB,0x114BE);
+  (0x114C1,0x114C1);
+  (0x115AF,0x115B1);
+  (0x115B8,0x115BB);
+  (0x115BE,0x115BE);
+  (0x11630,0x11632);
+  (0x1163B,0x1163C);
+  (0x1163E,0x1163E);
+  (0x116AC,0x116AC);
+  (0x116AE,0x116AF);
+  (0x116B6,0x116B6);
+  (0x11720,0x11721);
+  (0x11726,0x11726);
+  (0x11C2F,0x11C2F);
+  (0x11C3E,0x11C3E);
+  (0x11CA9,0x11CA9);
+  (0x11CB1,0x11CB1);
+  (0x11CB4,0x11CB4);
+  (0x16F51,0x16F7E);
+  (0x1D165,0x1D166)
 ]
 (* Mark, Enclosing *)
 let me = [
   (0x00488,0x00489);
-  (0x006DE,0x006DE);
+  (0x01ABE,0x01ABE);
   (0x020DD,0x020E0);
   (0x020E2,0x020E4)
 ]
@@ -1033,33 +1732,70 @@ let nd = [
   (0x00030,0x00039);
   (0x00660,0x00669);
   (0x006F0,0x006F9);
+  (0x007C0,0x007C9);
   (0x00966,0x0096F);
   (0x009E6,0x009EF);
   (0x00A66,0x00A6F);
   (0x00AE6,0x00AEF);
   (0x00B66,0x00B6F);
-  (0x00BE7,0x00BEF);
+  (0x00BE6,0x00BEF);
   (0x00C66,0x00C6F);
   (0x00CE6,0x00CEF);
   (0x00D66,0x00D6F);
+  (0x00DE6,0x00DEF);
   (0x00E50,0x00E59);
   (0x00ED0,0x00ED9);
   (0x00F20,0x00F29);
   (0x01040,0x01049);
-  (0x01369,0x01371);
+  (0x01090,0x01099);
   (0x017E0,0x017E9);
   (0x01810,0x01819);
+  (0x01946,0x0194F);
+  (0x019D0,0x019D9);
+  (0x01A80,0x01A89);
+  (0x01A90,0x01A99);
+  (0x01B50,0x01B59);
+  (0x01BB0,0x01BB9);
+  (0x01C40,0x01C49);
+  (0x01C50,0x01C59);
+  (0x0A620,0x0A629);
+  (0x0A8D0,0x0A8D9);
+  (0x0A900,0x0A909);
+  (0x0A9D0,0x0A9D9);
+  (0x0A9F0,0x0A9F9);
+  (0x0AA50,0x0AA59);
+  (0x0ABF0,0x0ABF9);
   (0x0FF10,0x0FF19);
+  (0x104A0,0x104A9);
+  (0x11066,0x1106F);
+  (0x110F0,0x110F9);
+  (0x11136,0x1113F);
+  (0x111D0,0x111D9);
+  (0x112F0,0x112F9);
+  (0x11450,0x11459);
+  (0x114D0,0x114D9);
+  (0x11650,0x11659);
+  (0x116C0,0x116C9);
+  (0x11730,0x11739);
+  (0x118E0,0x118E9);
+  (0x11C50,0x11C59);
+  (0x16A60,0x16A69);
+  (0x16B50,0x16B59);
   (0x1D7CE,0x1D7FF)
 ]
 (* Number, Letter *)
 let nl = [
   (0x016EE,0x016F0);
-  (0x02160,0x02183);
+  (0x02160,0x02182);
+  (0x02185,0x02188);
   (0x03007,0x03007);
   (0x03021,0x03029);
   (0x03038,0x0303A);
-  (0x1034A,0x1034A)
+  (0x0A6E6,0x0A6EF);
+  (0x10140,0x10174);
+  (0x10341,0x10341);
+  (0x1034A,0x1034A);
+  (0x103D1,0x103D5)
 ]
 (* Number, Other *)
 let no = [
@@ -1067,116 +1803,139 @@ let no = [
   (0x000B9,0x000B9);
   (0x000BC,0x000BE);
   (0x009F4,0x009F9);
+  (0x00B72,0x00B77);
   (0x00BF0,0x00BF2);
+  (0x00C78,0x00C7E);
+  (0x00D58,0x00D5E);
+  (0x00D70,0x00D78);
   (0x00F2A,0x00F33);
-  (0x01372,0x0137C);
+  (0x01369,0x0137C);
+  (0x017F0,0x017F9);
+  (0x019DA,0x019DA);
   (0x02070,0x02070);
   (0x02074,0x02079);
   (0x02080,0x02089);
-  (0x02153,0x0215F);
+  (0x02150,0x0215F);
+  (0x02189,0x02189);
   (0x02460,0x0249B);
-  (0x024EA,0x024FE);
+  (0x024EA,0x024FF);
   (0x02776,0x02793);
+  (0x02CFD,0x02CFD);
   (0x03192,0x03195);
   (0x03220,0x03229);
+  (0x03248,0x0324F);
   (0x03251,0x0325F);
   (0x03280,0x03289);
   (0x032B1,0x032BF);
-  (0x10320,0x10323)
+  (0x0A830,0x0A835);
+  (0x10107,0x10133);
+  (0x10175,0x10178);
+  (0x1018A,0x1018B);
+  (0x102E1,0x102FB);
+  (0x10320,0x10323);
+  (0x10858,0x1085F);
+  (0x10879,0x1087F);
+  (0x108A7,0x108AF);
+  (0x108FB,0x108FF);
+  (0x10916,0x1091B);
+  (0x109BC,0x109BD);
+  (0x109C0,0x109CF);
+  (0x109D2,0x109FF);
+  (0x10A40,0x10A47);
+  (0x10A7D,0x10A7E);
+  (0x10A9D,0x10A9F);
+  (0x10AEB,0x10AEF);
+  (0x10B58,0x10B5F);
+  (0x10B78,0x10B7F);
+  (0x10BA9,0x10BAF);
+  (0x10CFA,0x10CFF);
+  (0x10E60,0x10E7E);
+  (0x11052,0x11065);
+  (0x111E1,0x111F4);
+  (0x1173A,0x1173B);
+  (0x118EA,0x118F2);
+  (0x11C5A,0x11C6C);
+  (0x16B5B,0x16B61);
+  (0x1D360,0x1D371);
+  (0x1E8C7,0x1E8CF)
 ]
 (* Separator, Space *)
 let zs = [
   (0x00020,0x00020);
   (0x000A0,0x000A0);
   (0x01680,0x01680);
-  (0x02000,0x0200B);
+  (0x02000,0x0200A);
   (0x0202F,0x0202F);
-  (0x0205F,0x0205F);
-  (0x03000,0x03000)
+  (0x0205F,0x0205F)
 ]
 (* Separator, Line *)
 let zl = [
-  (0x02028,0x02028)
+
 ]
 (* Separator, Paragraph *)
 let zp = [
-  (0x02029,0x02029)
+
 ]
 (* Other, Control *)
 let cc = [
-  (0x00000,0x0001F);
-  (0x0007F,0x0009F)
+  (0x00000,0x0001F)
 ]
 (* Other, Format *)
 let cf = [
+  (0x000AD,0x000AD);
+  (0x00600,0x00605);
+  (0x0061C,0x0061C);
   (0x006DD,0x006DD);
   (0x0070F,0x0070F);
+  (0x008E2,0x008E2);
   (0x0180E,0x0180E);
-  (0x0200C,0x0200F);
+  (0x0200B,0x0200F);
   (0x0202A,0x0202E);
-  (0x02060,0x02063);
-  (0x0206A,0x0206F);
+  (0x02060,0x02064);
+  (0x02066,0x0206F);
   (0x0FEFF,0x0FEFF);
   (0x0FFF9,0x0FFFB);
+  (0x110BD,0x110BD);
+  (0x1BCA0,0x1BCA3);
   (0x1D173,0x1D17A);
-  (0xE0001,0xE0001);
-  (0xE0020,0xE007F)
+  (0xE0001,0xE0001)
 ]
 (* Other, Surrogate *)
 let cs = [
-  (0x0D800,0x0DEFE);
-  (0x0DFFF,0x0DFFF)
+
 ]
 (* Other, Private Use *)
 let co = [
-  (0x0E000,0x0F8FF)
+  (0x0E000,0x0F8FF);
+  (0xF0000,0xFFFFD)
 ]
 (* Other, Not Assigned *)
 let cn = [
-  (0x00221,0x00221);
-  (0x00234,0x0024F);
-  (0x002AE,0x002AF);
-  (0x002EF,0x002FF);
-  (0x00350,0x0035F);
-  (0x00370,0x00373);
-  (0x00376,0x00379);
-  (0x0037B,0x0037D);
-  (0x0037F,0x00383);
+  (0x00378,0x00379);
+  (0x00380,0x00383);
   (0x0038B,0x0038B);
   (0x0038D,0x0038D);
   (0x003A2,0x003A2);
-  (0x003CF,0x003CF);
-  (0x003F7,0x003FF);
-  (0x00487,0x00487);
-  (0x004CF,0x004CF);
-  (0x004F6,0x004F7);
-  (0x004FA,0x004FF);
-  (0x00510,0x00530);
+  (0x00530,0x00530);
   (0x00557,0x00558);
   (0x00560,0x00560);
   (0x00588,0x00588);
-  (0x0058B,0x00590);
-  (0x005A2,0x005A2);
-  (0x005BA,0x005BA);
-  (0x005C5,0x005CF);
+  (0x0058B,0x0058C);
+  (0x00590,0x00590);
+  (0x005C8,0x005CF);
   (0x005EB,0x005EF);
-  (0x005F5,0x0060B);
-  (0x0060D,0x0061A);
-  (0x0061C,0x0061E);
-  (0x00620,0x00620);
-  (0x0063B,0x0063F);
-  (0x00656,0x0065F);
-  (0x006EE,0x006EF);
-  (0x006FF,0x006FF);
+  (0x005F5,0x005FF);
+  (0x0061D,0x0061D);
   (0x0070E,0x0070E);
-  (0x0072D,0x0072F);
-  (0x0074B,0x0077F);
-  (0x007B2,0x00900);
-  (0x00904,0x00904);
-  (0x0093A,0x0093B);
-  (0x0094E,0x0094F);
-  (0x00955,0x00957);
-  (0x00971,0x00980);
+  (0x0074B,0x0074C);
+  (0x007B2,0x007BF);
+  (0x007FB,0x007FF);
+  (0x0082E,0x0082F);
+  (0x0083F,0x0083F);
+  (0x0085C,0x0085D);
+  (0x0085F,0x0089F);
+  (0x008B5,0x008B5);
+  (0x008BE,0x008D3);
   (0x00984,0x00984);
   (0x0098D,0x0098E);
   (0x00991,0x00992);
@@ -1184,15 +1943,14 @@ let cn = [
   (0x009B1,0x009B1);
   (0x009B3,0x009B5);
   (0x009BA,0x009BB);
-  (0x009BD,0x009BD);
   (0x009C5,0x009C6);
   (0x009C9,0x009CA);
-  (0x009CE,0x009D6);
+  (0x009CF,0x009D6);
   (0x009D8,0x009DB);
   (0x009DE,0x009DE);
   (0x009E4,0x009E5);
-  (0x009FB,0x00A01);
-  (0x00A03,0x00A04);
+  (0x009FC,0x00A00);
+  (0x00A04,0x00A04);
   (0x00A0B,0x00A0E);
   (0x00A11,0x00A12);
   (0x00A29,0x00A29);
@@ -1203,12 +1961,12 @@ let cn = [
   (0x00A3D,0x00A3D);
   (0x00A43,0x00A46);
   (0x00A49,0x00A4A);
-  (0x00A4E,0x00A58);
+  (0x00A4E,0x00A50);
+  (0x00A52,0x00A58);
   (0x00A5D,0x00A5D);
   (0x00A5F,0x00A65);
-  (0x00A75,0x00A80);
+  (0x00A76,0x00A80);
   (0x00A84,0x00A84);
-  (0x00A8C,0x00A8C);
   (0x00A8E,0x00A8E);
   (0x00A92,0x00A92);
   (0x00AA9,0x00AA9);
@@ -1219,22 +1977,23 @@ let cn = [
   (0x00ACA,0x00ACA);
   (0x00ACE,0x00ACF);
   (0x00AD1,0x00ADF);
-  (0x00AE1,0x00AE5);
-  (0x00AF0,0x00B00);
+  (0x00AE4,0x00AE5);
+  (0x00AF2,0x00AF8);
+  (0x00AFA,0x00B00);
   (0x00B04,0x00B04);
   (0x00B0D,0x00B0E);
   (0x00B11,0x00B12);
   (0x00B29,0x00B29);
   (0x00B31,0x00B31);
-  (0x00B34,0x00B35);
+  (0x00B34,0x00B34);
   (0x00B3A,0x00B3B);
-  (0x00B44,0x00B46);
+  (0x00B45,0x00B46);
   (0x00B49,0x00B4A);
   (0x00B4E,0x00B55);
   (0x00B58,0x00B5B);
   (0x00B5E,0x00B5E);
-  (0x00B62,0x00B65);
-  (0x00B71,0x00B81);
+  (0x00B64,0x00B65);
+  (0x00B78,0x00B81);
   (0x00B84,0x00B84);
   (0x00B8B,0x00B8D);
   (0x00B91,0x00B91);
@@ -1244,49 +2003,48 @@ let cn = [
   (0x00BA0,0x00BA2);
   (0x00BA5,0x00BA7);
   (0x00BAB,0x00BAD);
-  (0x00BB6,0x00BB6);
   (0x00BBA,0x00BBD);
   (0x00BC3,0x00BC5);
   (0x00BC9,0x00BC9);
-  (0x00BCE,0x00BD6);
-  (0x00BD8,0x00BE6);
-  (0x00BF3,0x00C00);
+  (0x00BCE,0x00BCF);
+  (0x00BD1,0x00BD6);
+  (0x00BD8,0x00BE5);
+  (0x00BFB,0x00BFF);
   (0x00C04,0x00C04);
   (0x00C0D,0x00C0D);
   (0x00C11,0x00C11);
   (0x00C29,0x00C29);
-  (0x00C34,0x00C34);
-  (0x00C3A,0x00C3D);
+  (0x00C3A,0x00C3C);
   (0x00C45,0x00C45);
   (0x00C49,0x00C49);
   (0x00C4E,0x00C54);
-  (0x00C57,0x00C5F);
-  (0x00C62,0x00C65);
-  (0x00C70,0x00C81);
+  (0x00C57,0x00C57);
+  (0x00C5B,0x00C5F);
+  (0x00C64,0x00C65);
+  (0x00C70,0x00C77);
   (0x00C84,0x00C84);
   (0x00C8D,0x00C8D);
   (0x00C91,0x00C91);
   (0x00CA9,0x00CA9);
   (0x00CB4,0x00CB4);
-  (0x00CBA,0x00CBD);
+  (0x00CBA,0x00CBB);
   (0x00CC5,0x00CC5);
   (0x00CC9,0x00CC9);
   (0x00CCE,0x00CD4);
   (0x00CD7,0x00CDD);
   (0x00CDF,0x00CDF);
-  (0x00CE2,0x00CE5);
-  (0x00CF0,0x00D01);
+  (0x00CE4,0x00CE5);
+  (0x00CF0,0x00CF0);
+  (0x00CF3,0x00D00);
   (0x00D04,0x00D04);
   (0x00D0D,0x00D0D);
   (0x00D11,0x00D11);
-  (0x00D29,0x00D29);
-  (0x00D3A,0x00D3D);
-  (0x00D44,0x00D45);
+  (0x00D3B,0x00D3C);
+  (0x00D45,0x00D45);
   (0x00D49,0x00D49);
-  (0x00D4E,0x00D56);
-  (0x00D58,0x00D5F);
-  (0x00D62,0x00D65);
-  (0x00D70,0x00D81);
+  (0x00D50,0x00D53);
+  (0x00D64,0x00D65);
+  (0x00D80,0x00D81);
   (0x00D84,0x00D84);
   (0x00D97,0x00D99);
   (0x00DB2,0x00DB2);
@@ -1296,7 +2054,8 @@ let cn = [
   (0x00DCB,0x00DCE);
   (0x00DD5,0x00DD5);
   (0x00DD7,0x00DD7);
-  (0x00DE0,0x00DF1);
+  (0x00DE0,0x00DE5);
+  (0x00DF0,0x00DF1);
   (0x00DF5,0x00E00);
   (0x00E3B,0x00E3E);
   (0x00E5C,0x00E80);
@@ -1317,56 +2076,38 @@ let cn = [
   (0x00EC7,0x00EC7);
   (0x00ECE,0x00ECF);
   (0x00EDA,0x00EDB);
-  (0x00EDE,0x00EFF);
+  (0x00EE0,0x00EFF);
   (0x00F48,0x00F48);
-  (0x00F6B,0x00F70);
-  (0x00F8C,0x00F8F);
+  (0x00F6D,0x00F70);
   (0x00F98,0x00F98);
   (0x00FBD,0x00FBD);
-  (0x00FCD,0x00FCE);
-  (0x00FD0,0x00FFF);
-  (0x01022,0x01022);
-  (0x01028,0x01028);
-  (0x0102B,0x0102B);
-  (0x01033,0x01035);
-  (0x0103A,0x0103F);
-  (0x0105A,0x0109F);
-  (0x010C6,0x010CF);
-  (0x010F9,0x010FA);
-  (0x010FC,0x010FF);
-  (0x0115A,0x0115E);
-  (0x011A3,0x011A7);
-  (0x011FA,0x011FF);
-  (0x01207,0x01207);
-  (0x01247,0x01247);
+  (0x00FCD,0x00FCD);
+  (0x00FDB,0x00FFF);
+  (0x010C6,0x010C6);
+  (0x010C8,0x010CC);
+  (0x010CE,0x010CF);
   (0x01249,0x01249);
   (0x0124E,0x0124F);
   (0x01257,0x01257);
   (0x01259,0x01259);
   (0x0125E,0x0125F);
-  (0x01287,0x01287);
   (0x01289,0x01289);
   (0x0128E,0x0128F);
-  (0x012AF,0x012AF);
   (0x012B1,0x012B1);
   (0x012B6,0x012B7);
   (0x012BF,0x012BF);
   (0x012C1,0x012C1);
   (0x012C6,0x012C7);
-  (0x012CF,0x012CF);
   (0x012D7,0x012D7);
-  (0x012EF,0x012EF);
-  (0x0130F,0x0130F);
   (0x01311,0x01311);
   (0x01316,0x01317);
-  (0x0131F,0x0131F);
-  (0x01347,0x01347);
-  (0x0135B,0x01360);
-  (0x0137D,0x0139F);
-  (0x013F5,0x01400);
-  (0x01677,0x0167F);
+  (0x0135B,0x0135C);
+  (0x0137D,0x0137F);
+  (0x0139A,0x0139F);
+  (0x013F6,0x013F7);
+  (0x013FE,0x013FF);
   (0x0169D,0x0169F);
-  (0x016F1,0x016FF);
+  (0x016F9,0x016FF);
   (0x0170D,0x0170D);
   (0x01715,0x0171F);
   (0x01737,0x0173F);
@@ -1374,14 +2115,40 @@ let cn = [
   (0x0176D,0x0176D);
   (0x01771,0x01771);
   (0x01774,0x0177F);
-  (0x017DD,0x017DF);
-  (0x017EA,0x017FF);
+  (0x017DE,0x017DF);
+  (0x017EA,0x017EF);
+  (0x017FA,0x017FF);
   (0x0180F,0x0180F);
   (0x0181A,0x0181F);
   (0x01878,0x0187F);
-  (0x018AA,0x01DFF);
-  (0x01E9C,0x01E9F);
-  (0x01EFA,0x01EFF);
+  (0x018AB,0x018AF);
+  (0x018F6,0x018FF);
+  (0x0191F,0x0191F);
+  (0x0192C,0x0192F);
+  (0x0193C,0x0193F);
+  (0x01941,0x01943);
+  (0x0196E,0x0196F);
+  (0x01975,0x0197F);
+  (0x019AC,0x019AF);
+  (0x019CA,0x019CF);
+  (0x019DB,0x019DD);
+  (0x01A1C,0x01A1D);
+  (0x01A5F,0x01A5F);
+  (0x01A7D,0x01A7E);
+  (0x01A8A,0x01A8F);
+  (0x01A9A,0x01A9F);
+  (0x01AAE,0x01AAF);
+  (0x01ABF,0x01AFF);
+  (0x01B4C,0x01B4F);
+  (0x01B7D,0x01B7F);
+  (0x01BF4,0x01BFB);
+  (0x01C38,0x01C3A);
+  (0x01C4A,0x01C4C);
+  (0x01C89,0x01CBF);
+  (0x01CC8,0x01CCF);
+  (0x01CF7,0x01CF7);
+  (0x01CFA,0x01CFF);
+  (0x01DF6,0x01DFA);
   (0x01F16,0x01F17);
   (0x01F1E,0x01F1F);
   (0x01F46,0x01F47);
@@ -1398,37 +2165,40 @@ let cn = [
   (0x01FF0,0x01FF1);
   (0x01FF5,0x01FF5);
   (0x01FFF,0x01FFF);
-  (0x02053,0x02056);
-  (0x02058,0x0205E);
-  (0x02064,0x02069);
+  (0x02065,0x02065);
   (0x02072,0x02073);
-  (0x0208F,0x0209F);
-  (0x020B2,0x020CF);
-  (0x020EB,0x020FF);
-  (0x0213B,0x0213C);
-  (0x0214C,0x02152);
-  (0x02184,0x0218F);
-  (0x023CF,0x023FF);
+  (0x0208F,0x0208F);
+  (0x0209D,0x0209F);
+  (0x020BF,0x020CF);
+  (0x020F1,0x020FF);
+  (0x0218C,0x0218F);
+  (0x023FF,0x023FF);
   (0x02427,0x0243F);
   (0x0244B,0x0245F);
-  (0x024FF,0x024FF);
-  (0x02614,0x02615);
-  (0x02618,0x02618);
-  (0x0267E,0x0267F);
-  (0x0268A,0x02700);
-  (0x02705,0x02705);
-  (0x0270A,0x0270B);
-  (0x02728,0x02728);
-  (0x0274C,0x0274C);
-  (0x0274E,0x0274E);
-  (0x02753,0x02755);
-  (0x02757,0x02757);
-  (0x0275F,0x02760);
-  (0x02795,0x02797);
-  (0x027B0,0x027B0);
-  (0x027BF,0x027CF);
-  (0x027EC,0x027EF);
-  (0x02B00,0x02E7F);
+  (0x02B74,0x02B75);
+  (0x02B96,0x02B97);
+  (0x02BBA,0x02BBC);
+  (0x02BC9,0x02BC9);
+  (0x02BD2,0x02BEB);
+  (0x02BF0,0x02BFF);
+  (0x02C2F,0x02C2F);
+  (0x02C5F,0x02C5F);
+  (0x02CF4,0x02CF8);
+  (0x02D26,0x02D26);
+  (0x02D28,0x02D2C);
+  (0x02D2E,0x02D2F);
+  (0x02D68,0x02D6E);
+  (0x02D71,0x02D7E);
+  (0x02D97,0x02D9F);
+  (0x02DA7,0x02DA7);
+  (0x02DAF,0x02DAF);
+  (0x02DB7,0x02DB7);
+  (0x02DBF,0x02DBF);
+  (0x02DC7,0x02DC7);
+  (0x02DCF,0x02DCF);
+  (0x02DD7,0x02DD7);
+  (0x02DDF,0x02DDF);
+  (0x02E45,0x02E7F);
   (0x02E9A,0x02E9A);
   (0x02EF4,0x02EFF);
   (0x02FD6,0x02FEF);
@@ -1436,25 +2206,49 @@ let cn = [
   (0x03040,0x03040);
   (0x03097,0x03098);
   (0x03100,0x03104);
-  (0x0312D,0x03130);
+  (0x0312E,0x03130);
   (0x0318F,0x0318F);
-  (0x031B8,0x031EF);
-  (0x0321D,0x0321F);
-  (0x03244,0x03250);
-  (0x0327C,0x0327E);
-  (0x032CC,0x032CF);
+  (0x031BB,0x031BF);
+  (0x031E4,0x031EF);
+  (0x0321F,0x0321F);
   (0x032FF,0x032FF);
-  (0x03377,0x0337A);
-  (0x033DE,0x033DF);
-  (0x033FF,0x033FF);
-  (0x04DB6,0x04DFF);
-  (0x09FA6,0x09FFF);
+  (0x04DB6,0x04DBF);
+  (0x09FD6,0x09FFF);
   (0x0A48D,0x0A48F);
-  (0x0A4C7,0x0ABFF);
-  (0x0D7A4,0x0D7FF);
-  (0x0DEFF,0x0DFFE);
-  (0x0FA2E,0x0FA2F);
-  (0x0FA6B,0x0FAFF);
+  (0x0A4C7,0x0A4CF);
+  (0x0A62C,0x0A63F);
+  (0x0A6F8,0x0A6FF);
+  (0x0A7AF,0x0A7AF);
+  (0x0A7B8,0x0A7F6);
+  (0x0A82C,0x0A82F);
+  (0x0A83A,0x0A83F);
+  (0x0A878,0x0A87F);
+  (0x0A8C6,0x0A8CD);
+  (0x0A8DA,0x0A8DF);
+  (0x0A8FE,0x0A8FF);
+  (0x0A954,0x0A95E);
+  (0x0A97D,0x0A97F);
+  (0x0A9CE,0x0A9CE);
+  (0x0A9DA,0x0A9DD);
+  (0x0A9FF,0x0A9FF);
+  (0x0AA37,0x0AA3F);
+  (0x0AA4E,0x0AA4F);
+  (0x0AA5A,0x0AA5B);
+  (0x0AAC3,0x0AADA);
+  (0x0AAF7,0x0AB00);
+  (0x0AB07,0x0AB08);
+  (0x0AB0F,0x0AB10);
+  (0x0AB17,0x0AB1F);
+  (0x0AB27,0x0AB27);
+  (0x0AB2F,0x0AB2F);
+  (0x0AB66,0x0AB6F);
+  (0x0ABEE,0x0ABEF);
+  (0x0ABFA,0x0ABFF);
+  (0x0D7A4,0x0D7AF);
+  (0x0D7C7,0x0D7CA);
+  (0x0D7FC,0x0D7FF);
+  (0x0FA6E,0x0FA6F);
+  (0x0FADA,0x0FAFF);
   (0x0FB07,0x0FB12);
   (0x0FB18,0x0FB1C);
   (0x0FB37,0x0FB37);
@@ -1462,14 +2256,12 @@ let cn = [
   (0x0FB3F,0x0FB3F);
   (0x0FB42,0x0FB42);
   (0x0FB45,0x0FB45);
-  (0x0FBB2,0x0FBD2);
+  (0x0FBC2,0x0FBD2);
   (0x0FD40,0x0FD4F);
   (0x0FD90,0x0FD91);
   (0x0FDC8,0x0FDEF);
-  (0x0FDFD,0x0FDFF);
-  (0x0FE10,0x0FE1F);
-  (0x0FE24,0x0FE2F);
-  (0x0FE47,0x0FE48);
+  (0x0FDFE,0x0FDFF);
+  (0x0FE1A,0x0FE1F);
   (0x0FE53,0x0FE53);
   (0x0FE67,0x0FE67);
   (0x0FE6C,0x0FE6F);
@@ -1483,15 +2275,171 @@ let cn = [
   (0x0FFDD,0x0FFDF);
   (0x0FFE7,0x0FFE7);
   (0x0FFEF,0x0FFF8);
-  (0x0FFFE,0x102FF);
-  (0x1031F,0x1031F);
+  (0x0FFFE,0x0FFFF);
+  (0x1000C,0x1000C);
+  (0x10027,0x10027);
+  (0x1003B,0x1003B);
+  (0x1003E,0x1003E);
+  (0x1004E,0x1004F);
+  (0x1005E,0x1007F);
+  (0x100FB,0x100FF);
+  (0x10103,0x10106);
+  (0x10134,0x10136);
+  (0x1018F,0x1018F);
+  (0x1019C,0x1019F);
+  (0x101A1,0x101CF);
+  (0x101FE,0x1027F);
+  (0x1029D,0x1029F);
+  (0x102D1,0x102DF);
+  (0x102FC,0x102FF);
   (0x10324,0x1032F);
-  (0x1034B,0x103FF);
-  (0x10426,0x10427);
-  (0x1044E,0x1CFFF);
+  (0x1034B,0x1034F);
+  (0x1037B,0x1037F);
+  (0x1039E,0x1039E);
+  (0x103C4,0x103C7);
+  (0x103D6,0x103FF);
+  (0x1049E,0x1049F);
+  (0x104AA,0x104AF);
+  (0x104D4,0x104D7);
+  (0x104FC,0x104FF);
+  (0x10528,0x1052F);
+  (0x10564,0x1056E);
+  (0x10570,0x105FF);
+  (0x10737,0x1073F);
+  (0x10756,0x1075F);
+  (0x10768,0x107FF);
+  (0x10806,0x10807);
+  (0x10809,0x10809);
+  (0x10836,0x10836);
+  (0x10839,0x1083B);
+  (0x1083D,0x1083E);
+  (0x10856,0x10856);
+  (0x1089F,0x108A6);
+  (0x108B0,0x108DF);
+  (0x108F3,0x108F3);
+  (0x108F6,0x108FA);
+  (0x1091C,0x1091E);
+  (0x1093A,0x1093E);
+  (0x10940,0x1097F);
+  (0x109B8,0x109BB);
+  (0x109D0,0x109D1);
+  (0x10A04,0x10A04);
+  (0x10A07,0x10A0B);
+  (0x10A14,0x10A14);
+  (0x10A18,0x10A18);
+  (0x10A34,0x10A37);
+  (0x10A3B,0x10A3E);
+  (0x10A48,0x10A4F);
+  (0x10A59,0x10A5F);
+  (0x10AA0,0x10ABF);
+  (0x10AE7,0x10AEA);
+  (0x10AF7,0x10AFF);
+  (0x10B36,0x10B38);
+  (0x10B56,0x10B57);
+  (0x10B73,0x10B77);
+  (0x10B92,0x10B98);
+  (0x10B9D,0x10BA8);
+  (0x10BB0,0x10BFF);
+  (0x10C49,0x10C7F);
+  (0x10CB3,0x10CBF);
+  (0x10CF3,0x10CF9);
+  (0x10D00,0x10E5F);
+  (0x10E7F,0x10FFF);
+  (0x1104E,0x11051);
+  (0x11070,0x1107E);
+  (0x110C2,0x110CF);
+  (0x110E9,0x110EF);
+  (0x110FA,0x110FF);
+  (0x11135,0x11135);
+  (0x11144,0x1114F);
+  (0x11177,0x1117F);
+  (0x111CE,0x111CF);
+  (0x111E0,0x111E0);
+  (0x111F5,0x111FF);
+  (0x11212,0x11212);
+  (0x1123F,0x1127F);
+  (0x11287,0x11287);
+  (0x11289,0x11289);
+  (0x1128E,0x1128E);
+  (0x1129E,0x1129E);
+  (0x112AA,0x112AF);
+  (0x112EB,0x112EF);
+  (0x112FA,0x112FF);
+  (0x11304,0x11304);
+  (0x1130D,0x1130E);
+  (0x11311,0x11312);
+  (0x11329,0x11329);
+  (0x11331,0x11331);
+  (0x11334,0x11334);
+  (0x1133A,0x1133B);
+  (0x11345,0x11346);
+  (0x11349,0x1134A);
+  (0x1134E,0x1134F);
+  (0x11351,0x11356);
+  (0x11358,0x1135C);
+  (0x11364,0x11365);
+  (0x1136D,0x1136F);
+  (0x11375,0x113FF);
+  (0x1145A,0x1145A);
+  (0x1145C,0x1145C);
+  (0x1145E,0x1147F);
+  (0x114C8,0x114CF);
+  (0x114DA,0x1157F);
+  (0x115B6,0x115B7);
+  (0x115DE,0x115FF);
+  (0x11645,0x1164F);
+  (0x1165A,0x1165F);
+  (0x1166D,0x1167F);
+  (0x116B8,0x116BF);
+  (0x116CA,0x116FF);
+  (0x1171A,0x1171C);
+  (0x1172C,0x1172F);
+  (0x11740,0x1189F);
+  (0x118F3,0x118FE);
+  (0x11900,0x11ABF);
+  (0x11AF9,0x11BFF);
+  (0x11C09,0x11C09);
+  (0x11C37,0x11C37);
+  (0x11C46,0x11C4F);
+  (0x11C6D,0x11C6F);
+  (0x11C90,0x11C91);
+  (0x11CA8,0x11CA8);
+  (0x11CB7,0x11FFF);
+  (0x1239A,0x123FF);
+  (0x1246F,0x1246F);
+  (0x12475,0x1247F);
+  (0x12544,0x12FFF);
+  (0x1342F,0x143FF);
+  (0x14647,0x167FF);
+  (0x16A39,0x16A3F);
+  (0x16A5F,0x16A5F);
+  (0x16A6A,0x16A6D);
+  (0x16A70,0x16ACF);
+  (0x16AEE,0x16AEF);
+  (0x16AF6,0x16AFF);
+  (0x16B46,0x16B4F);
+  (0x16B5A,0x16B5A);
+  (0x16B62,0x16B62);
+  (0x16B78,0x16B7C);
+  (0x16B90,0x16EFF);
+  (0x16F45,0x16F4F);
+  (0x16F7F,0x16F8E);
+  (0x16FA0,0x16FDF);
+  (0x16FE1,0x16FFF);
+  (0x187ED,0x187FF);
+  (0x18AF3,0x1AFFF);
+  (0x1B002,0x1BBFF);
+  (0x1BC6B,0x1BC6F);
+  (0x1BC7D,0x1BC7F);
+  (0x1BC89,0x1BC8F);
+  (0x1BC9A,0x1BC9B);
+  (0x1BCA4,0x1CFFF);
   (0x1D0F6,0x1D0FF);
-  (0x1D127,0x1D129);
-  (0x1D1DE,0x1D3FF);
+  (0x1D127,0x1D128);
+  (0x1D1E9,0x1D1FF);
+  (0x1D246,0x1D2FF);
+  (0x1D357,0x1D35F);
+  (0x1D372,0x1D3FF);
   (0x1D455,0x1D455);
   (0x1D49D,0x1D49D);
   (0x1D4A0,0x1D4A1);
@@ -1500,7 +2448,6 @@ let cn = [
   (0x1D4AD,0x1D4AD);
   (0x1D4BA,0x1D4BA);
   (0x1D4BC,0x1D4BC);
-  (0x1D4C1,0x1D4C1);
   (0x1D4C4,0x1D4C4);
   (0x1D506,0x1D506);
   (0x1D50B,0x1D50C);
@@ -1511,63 +2458,195 @@ let cn = [
   (0x1D545,0x1D545);
   (0x1D547,0x1D549);
   (0x1D551,0x1D551);
-  (0x1D6A4,0x1D6A7);
-  (0x1D7CA,0x1D7CD);
-  (0x1D800,0x1FFFF);
-  (0x2A6D7,0x2F7FF);
+  (0x1D6A6,0x1D6A7);
+  (0x1D7CC,0x1D7CD);
+  (0x1DA8C,0x1DA9A);
+  (0x1DAA0,0x1DAA0);
+  (0x1DAB0,0x1DFFF);
+  (0x1E007,0x1E007);
+  (0x1E019,0x1E01A);
+  (0x1E022,0x1E022);
+  (0x1E025,0x1E025);
+  (0x1E02B,0x1E7FF);
+  (0x1E8C5,0x1E8C6);
+  (0x1E8D7,0x1E8FF);
+  (0x1E94B,0x1E94F);
+  (0x1E95A,0x1E95D);
+  (0x1E960,0x1EDFF);
+  (0x1EE04,0x1EE04);
+  (0x1EE20,0x1EE20);
+  (0x1EE23,0x1EE23);
+  (0x1EE25,0x1EE26);
+  (0x1EE28,0x1EE28);
+  (0x1EE33,0x1EE33);
+  (0x1EE38,0x1EE38);
+  (0x1EE3A,0x1EE3A);
+  (0x1EE3C,0x1EE41);
+  (0x1EE43,0x1EE46);
+  (0x1EE48,0x1EE48);
+  (0x1EE4A,0x1EE4A);
+  (0x1EE4C,0x1EE4C);
+  (0x1EE50,0x1EE50);
+  (0x1EE53,0x1EE53);
+  (0x1EE55,0x1EE56);
+  (0x1EE58,0x1EE58);
+  (0x1EE5A,0x1EE5A);
+  (0x1EE5C,0x1EE5C);
+  (0x1EE5E,0x1EE5E);
+  (0x1EE60,0x1EE60);
+  (0x1EE63,0x1EE63);
+  (0x1EE65,0x1EE66);
+  (0x1EE6B,0x1EE6B);
+  (0x1EE73,0x1EE73);
+  (0x1EE78,0x1EE78);
+  (0x1EE7D,0x1EE7D);
+  (0x1EE7F,0x1EE7F);
+  (0x1EE8A,0x1EE8A);
+  (0x1EE9C,0x1EEA0);
+  (0x1EEA4,0x1EEA4);
+  (0x1EEAA,0x1EEAA);
+  (0x1EEBC,0x1EEEF);
+  (0x1EEF2,0x1EFFF);
+  (0x1F02C,0x1F02F);
+  (0x1F094,0x1F09F);
+  (0x1F0AF,0x1F0B0);
+  (0x1F0C0,0x1F0C0);
+  (0x1F0D0,0x1F0D0);
+  (0x1F0F6,0x1F0FF);
+  (0x1F10D,0x1F10F);
+  (0x1F12F,0x1F12F);
+  (0x1F16C,0x1F16F);
+  (0x1F1AD,0x1F1E5);
+  (0x1F203,0x1F20F);
+  (0x1F23C,0x1F23F);
+  (0x1F249,0x1F24F);
+  (0x1F252,0x1F2FF);
+  (0x1F6D3,0x1F6DF);
+  (0x1F6ED,0x1F6EF);
+  (0x1F6F7,0x1F6FF);
+  (0x1F774,0x1F77F);
+  (0x1F7D5,0x1F7FF);
+  (0x1F80C,0x1F80F);
+  (0x1F848,0x1F84F);
+  (0x1F85A,0x1F85F);
+  (0x1F888,0x1F88F);
+  (0x1F8AE,0x1F90F);
+  (0x1F91F,0x1F91F);
+  (0x1F928,0x1F92F);
+  (0x1F931,0x1F932);
+  (0x1F93F,0x1F93F);
+  (0x1F94C,0x1F94F);
+  (0x1F95F,0x1F97F);
+  (0x1F992,0x1F9BF);
+  (0x1F9C1,0x1FFFF);
+  (0x2A6D7,0x2A6FF);
+  (0x2B735,0x2B73F);
+  (0x2B81E,0x2B81F);
+  (0x2CEA2,0x2F7FF);
   (0x2FA1E,0xE0000);
   (0xE0002,0xE001F);
-  (0xE0080,0x7FFFFFFF)
+  (0xE0080,0xE00FF);
+  (0xE01F0,0xEFFFF);
+  (0xFFFFE,0xFFFFF)
 ]
 (* Letter, Modifier *)
 let lm = [
-  (0x002B0,0x002B8);
-  (0x002BB,0x002C1);
-  (0x002D0,0x002D1);
+  (0x002B0,0x002C1);
+  (0x002C6,0x002D1);
   (0x002E0,0x002E4);
+  (0x002EC,0x002EC);
   (0x002EE,0x002EE);
+  (0x00374,0x00374);
   (0x0037A,0x0037A);
   (0x00559,0x00559);
   (0x00640,0x00640);
   (0x006E5,0x006E6);
+  (0x007F4,0x007F5);
+  (0x007FA,0x007FA);
+  (0x0081A,0x0081A);
+  (0x00824,0x00824);
+  (0x00828,0x00828);
+  (0x00971,0x00971);
   (0x00E46,0x00E46);
   (0x00EC6,0x00EC6);
+  (0x010FC,0x010FC);
   (0x017D7,0x017D7);
   (0x01843,0x01843);
+  (0x01AA7,0x01AA7);
+  (0x01C78,0x01C7D);
+  (0x01D2C,0x01D6A);
+  (0x01D78,0x01D78);
+  (0x01D9B,0x01DBF);
+  (0x02071,0x02071);
+  (0x0207F,0x0207F);
+  (0x02090,0x0209C);
+  (0x02C7C,0x02C7D);
+  (0x02D6F,0x02D6F);
+  (0x02E2F,0x02E2F);
   (0x03005,0x03005);
   (0x03031,0x03035);
   (0x0303B,0x0303B);
   (0x0309D,0x0309E);
   (0x030FC,0x030FE);
+  (0x0A015,0x0A015);
+  (0x0A4F8,0x0A4FD);
+  (0x0A60C,0x0A60C);
+  (0x0A67F,0x0A67F);
+  (0x0A69C,0x0A69D);
+  (0x0A717,0x0A71F);
+  (0x0A770,0x0A770);
+  (0x0A788,0x0A788);
+  (0x0A7F8,0x0A7F9);
+  (0x0A9CF,0x0A9CF);
+  (0x0A9E6,0x0A9E6);
+  (0x0AA70,0x0AA70);
+  (0x0AADD,0x0AADD);
+  (0x0AAF3,0x0AAF4);
+  (0x0AB5C,0x0AB5F);
   (0x0FF70,0x0FF70);
-  (0x0FF9E,0x0FF9F)
+  (0x0FF9E,0x0FF9F);
+  (0x16B40,0x16B43);
+  (0x16F93,0x16F9F)
 ]
 (* Letter, Other *)
 let lo = [
+  (0x000AA,0x000AA);
+  (0x000BA,0x000BA);
   (0x001BB,0x001BB);
   (0x001C0,0x001C3);
+  (0x00294,0x00294);
   (0x005D0,0x005EA);
   (0x005F0,0x005F2);
-  (0x00621,0x0063A);
+  (0x00620,0x0063F);
   (0x00641,0x0064A);
   (0x0066E,0x0066F);
   (0x00671,0x006D3);
   (0x006D5,0x006D5);
+  (0x006EE,0x006EF);
   (0x006FA,0x006FC);
+  (0x006FF,0x006FF);
   (0x00710,0x00710);
-  (0x00712,0x0072C);
-  (0x00780,0x007A5);
+  (0x00712,0x0072F);
+  (0x0074D,0x007A5);
   (0x007B1,0x007B1);
-  (0x00905,0x00939);
+  (0x007CA,0x007EA);
+  (0x00800,0x00815);
+  (0x00840,0x00858);
+  (0x008A0,0x008B4);
+  (0x008B6,0x008BD);
+  (0x00904,0x00939);
   (0x0093D,0x0093D);
   (0x00950,0x00950);
   (0x00958,0x00961);
+  (0x00972,0x00980);
   (0x00985,0x0098C);
   (0x0098F,0x00990);
   (0x00993,0x009A8);
   (0x009AA,0x009B0);
   (0x009B2,0x009B2);
   (0x009B6,0x009B9);
+  (0x009BD,0x009BD);
+  (0x009CE,0x009CE);
   (0x009DC,0x009DD);
   (0x009DF,0x009E1);
   (0x009F0,0x009F1);
@@ -1581,8 +2660,7 @@ let lo = [
   (0x00A59,0x00A5C);
   (0x00A5E,0x00A5E);
   (0x00A72,0x00A74);
-  (0x00A85,0x00A8B);
-  (0x00A8D,0x00A8D);
+  (0x00A85,0x00A8D);
   (0x00A8F,0x00A91);
   (0x00A93,0x00AA8);
   (0x00AAA,0x00AB0);
@@ -1590,16 +2668,18 @@ let lo = [
   (0x00AB5,0x00AB9);
   (0x00ABD,0x00ABD);
   (0x00AD0,0x00AD0);
-  (0x00AE0,0x00AE0);
+  (0x00AE0,0x00AE1);
+  (0x00AF9,0x00AF9);
   (0x00B05,0x00B0C);
   (0x00B0F,0x00B10);
   (0x00B13,0x00B28);
   (0x00B2A,0x00B30);
   (0x00B32,0x00B33);
-  (0x00B36,0x00B39);
+  (0x00B35,0x00B39);
   (0x00B3D,0x00B3D);
   (0x00B5C,0x00B5D);
   (0x00B5F,0x00B61);
+  (0x00B71,0x00B71);
   (0x00B83,0x00B83);
   (0x00B85,0x00B8A);
   (0x00B8E,0x00B90);
@@ -1609,26 +2689,33 @@ let lo = [
   (0x00B9E,0x00B9F);
   (0x00BA3,0x00BA4);
   (0x00BA8,0x00BAA);
-  (0x00BAE,0x00BB5);
-  (0x00BB7,0x00BB9);
+  (0x00BAE,0x00BB9);
+  (0x00BD0,0x00BD0);
   (0x00C05,0x00C0C);
   (0x00C0E,0x00C10);
   (0x00C12,0x00C28);
-  (0x00C2A,0x00C33);
-  (0x00C35,0x00C39);
+  (0x00C2A,0x00C39);
+  (0x00C3D,0x00C3D);
+  (0x00C58,0x00C5A);
   (0x00C60,0x00C61);
+  (0x00C80,0x00C80);
   (0x00C85,0x00C8C);
   (0x00C8E,0x00C90);
   (0x00C92,0x00CA8);
   (0x00CAA,0x00CB3);
   (0x00CB5,0x00CB9);
+  (0x00CBD,0x00CBD);
   (0x00CDE,0x00CDE);
   (0x00CE0,0x00CE1);
+  (0x00CF1,0x00CF2);
   (0x00D05,0x00D0C);
   (0x00D0E,0x00D10);
-  (0x00D12,0x00D28);
-  (0x00D2A,0x00D39);
-  (0x00D60,0x00D61);
+  (0x00D12,0x00D3A);
+  (0x00D3D,0x00D3D);
+  (0x00D4E,0x00D4E);
+  (0x00D54,0x00D56);
+  (0x00D5F,0x00D61);
+  (0x00D7A,0x00D7F);
   (0x00D85,0x00D96);
   (0x00D9A,0x00DB1);
   (0x00DB3,0x00DBB);
@@ -1652,49 +2739,43 @@ let lo = [
   (0x00EB2,0x00EB3);
   (0x00EBD,0x00EBD);
   (0x00EC0,0x00EC4);
-  (0x00EDC,0x00EDD);
+  (0x00EDC,0x00EDF);
   (0x00F00,0x00F00);
   (0x00F40,0x00F47);
-  (0x00F49,0x00F6A);
-  (0x00F88,0x00F8B);
-  (0x01000,0x01021);
-  (0x01023,0x01027);
-  (0x01029,0x0102A);
+  (0x00F49,0x00F6C);
+  (0x00F88,0x00F8C);
+  (0x01000,0x0102A);
+  (0x0103F,0x0103F);
   (0x01050,0x01055);
-  (0x010D0,0x010F8);
-  (0x01100,0x01159);
-  (0x0115F,0x011A2);
-  (0x011A8,0x011F9);
-  (0x01200,0x01206);
-  (0x01208,0x01246);
-  (0x01248,0x01248);
+  (0x0105A,0x0105D);
+  (0x01061,0x01061);
+  (0x01065,0x01066);
+  (0x0106E,0x01070);
+  (0x01075,0x01081);
+  (0x0108E,0x0108E);
+  (0x010D0,0x010FA);
+  (0x010FD,0x01248);
   (0x0124A,0x0124D);
   (0x01250,0x01256);
   (0x01258,0x01258);
   (0x0125A,0x0125D);
-  (0x01260,0x01286);
-  (0x01288,0x01288);
+  (0x01260,0x01288);
   (0x0128A,0x0128D);
-  (0x01290,0x012AE);
-  (0x012B0,0x012B0);
+  (0x01290,0x012B0);
   (0x012B2,0x012B5);
   (0x012B8,0x012BE);
   (0x012C0,0x012C0);
   (0x012C2,0x012C5);
-  (0x012C8,0x012CE);
-  (0x012D0,0x012D6);
-  (0x012D8,0x012EE);
-  (0x012F0,0x0130E);
-  (0x01310,0x01310);
+  (0x012C8,0x012D6);
+  (0x012D8,0x01310);
   (0x01312,0x01315);
-  (0x01318,0x0131E);
-  (0x01320,0x01346);
-  (0x01348,0x0135A);
-  (0x013A0,0x013F4);
+  (0x01318,0x0135A);
+  (0x01380,0x0138F);
   (0x01401,0x0166C);
-  (0x0166F,0x01676);
+  (0x0166F,0x0167F);
   (0x01681,0x0169A);
   (0x016A0,0x016EA);
+  (0x016F1,0x016F8);
   (0x01700,0x0170C);
   (0x0170E,0x01711);
   (0x01720,0x01731);
@@ -1705,24 +2786,103 @@ let lo = [
   (0x017DC,0x017DC);
   (0x01820,0x01842);
   (0x01844,0x01877);
-  (0x01880,0x018A8);
+  (0x01880,0x01884);
+  (0x01887,0x018A8);
+  (0x018AA,0x018AA);
+  (0x018B0,0x018F5);
+  (0x01900,0x0191E);
+  (0x01950,0x0196D);
+  (0x01970,0x01974);
+  (0x01980,0x019AB);
+  (0x019B0,0x019C9);
+  (0x01A00,0x01A16);
+  (0x01A20,0x01A54);
+  (0x01B05,0x01B33);
+  (0x01B45,0x01B4B);
+  (0x01B83,0x01BA0);
+  (0x01BAE,0x01BAF);
+  (0x01BBA,0x01BE5);
+  (0x01C00,0x01C23);
+  (0x01C4D,0x01C4F);
+  (0x01C5A,0x01C77);
+  (0x01CE9,0x01CEC);
+  (0x01CEE,0x01CF1);
+  (0x01CF5,0x01CF6);
   (0x02135,0x02138);
+  (0x02D30,0x02D67);
+  (0x02D80,0x02D96);
+  (0x02DA0,0x02DA6);
+  (0x02DA8,0x02DAE);
+  (0x02DB0,0x02DB6);
+  (0x02DB8,0x02DBE);
+  (0x02DC0,0x02DC6);
+  (0x02DC8,0x02DCE);
+  (0x02DD0,0x02DD6);
+  (0x02DD8,0x02DDE);
   (0x03006,0x03006);
   (0x0303C,0x0303C);
   (0x03041,0x03096);
   (0x0309F,0x0309F);
   (0x030A1,0x030FA);
   (0x030FF,0x030FF);
-  (0x03105,0x0312C);
+  (0x03105,0x0312D);
   (0x03131,0x0318E);
-  (0x031A0,0x031B7);
+  (0x031A0,0x031BA);
   (0x031F0,0x031FF);
   (0x03400,0x04DB5);
-  (0x04E00,0x09FA5);
-  (0x0A000,0x0A48C);
+  (0x04E00,0x09FD5);
+  (0x0A000,0x0A014);
+  (0x0A016,0x0A48C);
+  (0x0A4D0,0x0A4F7);
+  (0x0A500,0x0A60B);
+  (0x0A610,0x0A61F);
+  (0x0A62A,0x0A62B);
+  (0x0A66E,0x0A66E);
+  (0x0A6A0,0x0A6E5);
+  (0x0A78F,0x0A78F);
+  (0x0A7F7,0x0A7F7);
+  (0x0A7FB,0x0A801);
+  (0x0A803,0x0A805);
+  (0x0A807,0x0A80A);
+  (0x0A80C,0x0A822);
+  (0x0A840,0x0A873);
+  (0x0A882,0x0A8B3);
+  (0x0A8F2,0x0A8F7);
+  (0x0A8FB,0x0A8FB);
+  (0x0A8FD,0x0A8FD);
+  (0x0A90A,0x0A925);
+  (0x0A930,0x0A946);
+  (0x0A960,0x0A97C);
+  (0x0A984,0x0A9B2);
+  (0x0A9E0,0x0A9E4);
+  (0x0A9E7,0x0A9EF);
+  (0x0A9FA,0x0A9FE);
+  (0x0AA00,0x0AA28);
+  (0x0AA40,0x0AA42);
+  (0x0AA44,0x0AA4B);
+  (0x0AA60,0x0AA6F);
+  (0x0AA71,0x0AA76);
+  (0x0AA7A,0x0AA7A);
+  (0x0AA7E,0x0AAAF);
+  (0x0AAB1,0x0AAB1);
+  (0x0AAB5,0x0AAB6);
+  (0x0AAB9,0x0AABD);
+  (0x0AAC0,0x0AAC0);
+  (0x0AAC2,0x0AAC2);
+  (0x0AADB,0x0AADC);
+  (0x0AAE0,0x0AAEA);
+  (0x0AAF2,0x0AAF2);
+  (0x0AB01,0x0AB06);
+  (0x0AB09,0x0AB0E);
+  (0x0AB11,0x0AB16);
+  (0x0AB20,0x0AB26);
+  (0x0AB28,0x0AB2E);
+  (0x0ABC0,0x0ABE2);
   (0x0AC00,0x0D7A3);
-  (0x0F900,0x0FA2D);
-  (0x0FA30,0x0FA6A);
+  (0x0D7B0,0x0D7C6);
+  (0x0D7CB,0x0D7FB);
+  (0x0F900,0x0FA6D);
+  (0x0FA70,0x0FAD9);
   (0x0FB1D,0x0FB1D);
   (0x0FB1F,0x0FB28);
   (0x0FB2A,0x0FB36);
@@ -1744,35 +2904,183 @@ let lo = [
   (0x0FFCA,0x0FFCF);
   (0x0FFD2,0x0FFD7);
   (0x0FFDA,0x0FFDC);
-  (0x10300,0x1031E);
-  (0x10330,0x10349);
+  (0x10000,0x1000B);
+  (0x1000D,0x10026);
+  (0x10028,0x1003A);
+  (0x1003C,0x1003D);
+  (0x1003F,0x1004D);
+  (0x10050,0x1005D);
+  (0x10080,0x100FA);
+  (0x10280,0x1029C);
+  (0x102A0,0x102D0);
+  (0x10300,0x1031F);
+  (0x10330,0x10340);
+  (0x10342,0x10349);
+  (0x10350,0x10375);
+  (0x10380,0x1039D);
+  (0x103A0,0x103C3);
+  (0x103C8,0x103CF);
+  (0x10450,0x1049D);
+  (0x10500,0x10527);
+  (0x10530,0x10563);
+  (0x10600,0x10736);
+  (0x10740,0x10755);
+  (0x10760,0x10767);
+  (0x10800,0x10805);
+  (0x10808,0x10808);
+  (0x1080A,0x10835);
+  (0x10837,0x10838);
+  (0x1083C,0x1083C);
+  (0x1083F,0x10855);
+  (0x10860,0x10876);
+  (0x10880,0x1089E);
+  (0x108E0,0x108F2);
+  (0x108F4,0x108F5);
+  (0x10900,0x10915);
+  (0x10920,0x10939);
+  (0x10980,0x109B7);
+  (0x109BE,0x109BF);
+  (0x10A00,0x10A00);
+  (0x10A10,0x10A13);
+  (0x10A15,0x10A17);
+  (0x10A19,0x10A33);
+  (0x10A60,0x10A7C);
+  (0x10A80,0x10A9C);
+  (0x10AC0,0x10AC7);
+  (0x10AC9,0x10AE4);
+  (0x10B00,0x10B35);
+  (0x10B40,0x10B55);
+  (0x10B60,0x10B72);
+  (0x10B80,0x10B91);
+  (0x10C00,0x10C48);
+  (0x11003,0x11037);
+  (0x11083,0x110AF);
+  (0x110D0,0x110E8);
+  (0x11103,0x11126);
+  (0x11150,0x11172);
+  (0x11176,0x11176);
+  (0x11183,0x111B2);
+  (0x111C1,0x111C4);
+  (0x111DA,0x111DA);
+  (0x111DC,0x111DC);
+  (0x11200,0x11211);
+  (0x11213,0x1122B);
+  (0x11280,0x11286);
+  (0x11288,0x11288);
+  (0x1128A,0x1128D);
+  (0x1128F,0x1129D);
+  (0x1129F,0x112A8);
+  (0x112B0,0x112DE);
+  (0x11305,0x1130C);
+  (0x1130F,0x11310);
+  (0x11313,0x11328);
+  (0x1132A,0x11330);
+  (0x11332,0x11333);
+  (0x11335,0x11339);
+  (0x1133D,0x1133D);
+  (0x11350,0x11350);
+  (0x1135D,0x11361);
+  (0x11400,0x11434);
+  (0x11447,0x1144A);
+  (0x11480,0x114AF);
+  (0x114C4,0x114C5);
+  (0x114C7,0x114C7);
+  (0x11580,0x115AE);
+  (0x115D8,0x115DB);
+  (0x11600,0x1162F);
+  (0x11644,0x11644);
+  (0x11680,0x116AA);
+  (0x11700,0x11719);
+  (0x118FF,0x118FF);
+  (0x11AC0,0x11AF8);
+  (0x11C00,0x11C08);
+  (0x11C0A,0x11C2E);
+  (0x11C40,0x11C40);
+  (0x11C72,0x11C8F);
+  (0x12000,0x12399);
+  (0x12480,0x12543);
+  (0x13000,0x1342E);
+  (0x14400,0x14646);
+  (0x16800,0x16A38);
+  (0x16A40,0x16A5E);
+  (0x16AD0,0x16AED);
+  (0x16B00,0x16B2F);
+  (0x16B63,0x16B77);
+  (0x16B7D,0x16B8F);
+  (0x16F00,0x16F44);
+  (0x16F50,0x16F50);
+  (0x17000,0x187EC);
+  (0x18800,0x18AF2);
+  (0x1B000,0x1B001);
+  (0x1BC00,0x1BC6A);
+  (0x1BC70,0x1BC7C);
+  (0x1BC80,0x1BC88);
+  (0x1BC90,0x1BC99);
+  (0x1E800,0x1E8C4);
+  (0x1EE00,0x1EE03);
+  (0x1EE05,0x1EE1F);
+  (0x1EE21,0x1EE22);
+  (0x1EE24,0x1EE24);
+  (0x1EE27,0x1EE27);
+  (0x1EE29,0x1EE32);
+  (0x1EE34,0x1EE37);
+  (0x1EE39,0x1EE39);
+  (0x1EE3B,0x1EE3B);
+  (0x1EE42,0x1EE42);
+  (0x1EE47,0x1EE47);
+  (0x1EE49,0x1EE49);
+  (0x1EE4B,0x1EE4B);
+  (0x1EE4D,0x1EE4F);
+  (0x1EE51,0x1EE52);
+  (0x1EE54,0x1EE54);
+  (0x1EE57,0x1EE57);
+  (0x1EE59,0x1EE59);
+  (0x1EE5B,0x1EE5B);
+  (0x1EE5D,0x1EE5D);
+  (0x1EE5F,0x1EE5F);
+  (0x1EE61,0x1EE62);
+  (0x1EE64,0x1EE64);
+  (0x1EE67,0x1EE6A);
+  (0x1EE6C,0x1EE72);
+  (0x1EE74,0x1EE77);
+  (0x1EE79,0x1EE7C);
+  (0x1EE7E,0x1EE7E);
+  (0x1EE80,0x1EE89);
+  (0x1EE8B,0x1EE9B);
+  (0x1EEA1,0x1EEA3);
+  (0x1EEA5,0x1EEA9);
+  (0x1EEAB,0x1EEBB);
   (0x20000,0x2A6D6);
-  (0x2F800,0x2FA1D)
+  (0x2A700,0x2B734);
+  (0x2B740,0x2B81D);
+  (0x2B820,0x2CEA1)
 ]
 (* Punctuation, Connector *)
 let pc = [
   (0x0005F,0x0005F);
   (0x0203F,0x02040);
-  (0x030FB,0x030FB);
+  (0x02054,0x02054);
   (0x0FE33,0x0FE34);
-  (0x0FE4D,0x0FE4F);
-  (0x0FF3F,0x0FF3F);
-  (0x0FF65,0x0FF65)
+  (0x0FE4D,0x0FE4F)
 ]
 (* Punctuation, Dash *)
 let pd = [
   (0x0002D,0x0002D);
-  (0x000AD,0x000AD);
   (0x0058A,0x0058A);
+  (0x005BE,0x005BE);
+  (0x01400,0x01400);
   (0x01806,0x01806);
   (0x02010,0x02015);
+  (0x02E17,0x02E17);
+  (0x02E1A,0x02E1A);
+  (0x02E3A,0x02E3B);
+  (0x02E40,0x02E40);
   (0x0301C,0x0301C);
   (0x03030,0x03030);
   (0x030A0,0x030A0);
   (0x0FE31,0x0FE32);
   (0x0FE58,0x0FE58);
-  (0x0FE63,0x0FE63);
-  (0x0FF0D,0x0FF0D)
+  (0x0FE63,0x0FE63)
 ]
 (* Punctuation, Open *)
 let ps = [
@@ -1787,8 +3095,9 @@ let ps = [
   (0x02045,0x02045);
   (0x0207D,0x0207D);
   (0x0208D,0x0208D);
+  (0x02308,0x02308);
+  (0x0230A,0x0230A);
   (0x02329,0x02329);
-  (0x023B4,0x023B4);
   (0x02768,0x02768);
   (0x0276A,0x0276A);
   (0x0276C,0x0276C);
@@ -1796,9 +3105,12 @@ let ps = [
   (0x02770,0x02770);
   (0x02772,0x02772);
   (0x02774,0x02774);
+  (0x027C5,0x027C5);
   (0x027E6,0x027E6);
   (0x027E8,0x027E8);
   (0x027EA,0x027EA);
+  (0x027EC,0x027EC);
+  (0x027EE,0x027EE);
   (0x02983,0x02983);
   (0x02985,0x02985);
   (0x02987,0x02987);
@@ -1813,6 +3125,11 @@ let ps = [
   (0x029D8,0x029D8);
   (0x029DA,0x029DA);
   (0x029FC,0x029FC);
+  (0x02E22,0x02E22);
+  (0x02E24,0x02E24);
+  (0x02E26,0x02E26);
+  (0x02E28,0x02E28);
+  (0x02E42,0x02E42);
   (0x03008,0x03008);
   (0x0300A,0x0300A);
   (0x0300C,0x0300C);
@@ -1823,7 +3140,8 @@ let ps = [
   (0x03018,0x03018);
   (0x0301A,0x0301A);
   (0x0301D,0x0301D);
-  (0x0FD3E,0x0FD3E);
+  (0x0FD3F,0x0FD3F);
+  (0x0FE17,0x0FE17);
   (0x0FE35,0x0FE35);
   (0x0FE37,0x0FE37);
   (0x0FE39,0x0FE39);
@@ -1832,14 +3150,14 @@ let ps = [
   (0x0FE3F,0x0FE3F);
   (0x0FE41,0x0FE41);
   (0x0FE43,0x0FE43);
+  (0x0FE47,0x0FE47);
   (0x0FE59,0x0FE59);
   (0x0FE5B,0x0FE5B);
   (0x0FE5D,0x0FE5D);
   (0x0FF08,0x0FF08);
   (0x0FF3B,0x0FF3B);
   (0x0FF5B,0x0FF5B);
-  (0x0FF5F,0x0FF5F);
-  (0x0FF62,0x0FF62)
+  (0x0FF5F,0x0FF5F)
 ]
 (* Punctuation, Close *)
 let pe = [
@@ -1852,8 +3170,9 @@ let pe = [
   (0x02046,0x02046);
   (0x0207E,0x0207E);
   (0x0208E,0x0208E);
+  (0x02309,0x02309);
+  (0x0230B,0x0230B);
   (0x0232A,0x0232A);
-  (0x023B5,0x023B5);
   (0x02769,0x02769);
   (0x0276B,0x0276B);
   (0x0276D,0x0276D);
@@ -1861,9 +3180,12 @@ let pe = [
   (0x02771,0x02771);
   (0x02773,0x02773);
   (0x02775,0x02775);
+  (0x027C6,0x027C6);
   (0x027E7,0x027E7);
   (0x027E9,0x027E9);
   (0x027EB,0x027EB);
+  (0x027ED,0x027ED);
+  (0x027EF,0x027EF);
   (0x02984,0x02984);
   (0x02986,0x02986);
   (0x02988,0x02988);
@@ -1878,6 +3200,10 @@ let pe = [
   (0x029D9,0x029D9);
   (0x029DB,0x029DB);
   (0x029FD,0x029FD);
+  (0x02E23,0x02E23);
+  (0x02E25,0x02E25);
+  (0x02E27,0x02E27);
+  (0x02E29,0x02E29);
   (0x03009,0x03009);
   (0x0300B,0x0300B);
   (0x0300D,0x0300D);
@@ -1888,7 +3214,8 @@ let pe = [
   (0x03019,0x03019);
   (0x0301B,0x0301B);
   (0x0301E,0x0301F);
-  (0x0FD3F,0x0FD3F);
+  (0x0FD3E,0x0FD3E);
+  (0x0FE18,0x0FE18);
   (0x0FE36,0x0FE36);
   (0x0FE38,0x0FE38);
   (0x0FE3A,0x0FE3A);
@@ -1897,14 +3224,14 @@ let pe = [
   (0x0FE40,0x0FE40);
   (0x0FE42,0x0FE42);
   (0x0FE44,0x0FE44);
+  (0x0FE48,0x0FE48);
   (0x0FE5A,0x0FE5A);
   (0x0FE5C,0x0FE5C);
   (0x0FE5E,0x0FE5E);
   (0x0FF09,0x0FF09);
   (0x0FF3D,0x0FF3D);
   (0x0FF5D,0x0FF5D);
-  (0x0FF60,0x0FF60);
-  (0x0FF63,0x0FF63)
+  (0x0FF60,0x0FF60)
 ]
 (* Punctuation, Initial quote  *)
 let pi = [
@@ -1912,14 +3239,24 @@ let pi = [
   (0x02018,0x02018);
   (0x0201B,0x0201C);
   (0x0201F,0x0201F);
-  (0x02039,0x02039)
+  (0x02039,0x02039);
+  (0x02E02,0x02E02);
+  (0x02E04,0x02E04);
+  (0x02E09,0x02E09);
+  (0x02E0C,0x02E0C);
+  (0x02E1C,0x02E1C)
 ]
 (* Punctuation, Final quote  *)
 let pf = [
   (0x000BB,0x000BB);
   (0x02019,0x02019);
   (0x0201D,0x0201D);
-  (0x0203A,0x0203A)
+  (0x0203A,0x0203A);
+  (0x02E03,0x02E03);
+  (0x02E05,0x02E05);
+  (0x02E0A,0x02E0A);
+  (0x02E0D,0x02E0D);
+  (0x02E1D,0x02E1D)
 ]
 (* Punctuation, Other *)
 let po = [
@@ -1932,32 +3269,41 @@ let po = [
   (0x0003F,0x00040);
   (0x0005C,0x0005C);
   (0x000A1,0x000A1);
-  (0x000B7,0x000B7);
+  (0x000A7,0x000A7);
+  (0x000B6,0x000B7);
   (0x000BF,0x000BF);
   (0x0037E,0x0037E);
   (0x00387,0x00387);
   (0x0055A,0x0055F);
   (0x00589,0x00589);
-  (0x005BE,0x005BE);
   (0x005C0,0x005C0);
   (0x005C3,0x005C3);
+  (0x005C6,0x005C6);
   (0x005F3,0x005F4);
-  (0x0060C,0x0060C);
+  (0x00609,0x0060A);
+  (0x0060C,0x0060D);
   (0x0061B,0x0061B);
-  (0x0061F,0x0061F);
+  (0x0061E,0x0061F);
   (0x0066A,0x0066D);
   (0x006D4,0x006D4);
   (0x00700,0x0070D);
+  (0x007F7,0x007F9);
+  (0x00830,0x0083E);
+  (0x0085E,0x0085E);
   (0x00964,0x00965);
   (0x00970,0x00970);
+  (0x00AF0,0x00AF0);
   (0x00DF4,0x00DF4);
   (0x00E4F,0x00E4F);
   (0x00E5A,0x00E5B);
   (0x00F04,0x00F12);
+  (0x00F14,0x00F14);
   (0x00F85,0x00F85);
+  (0x00FD0,0x00FD4);
+  (0x00FD9,0x00FDA);
   (0x0104A,0x0104F);
   (0x010FB,0x010FB);
-  (0x01361,0x01368);
+  (0x01360,0x01368);
   (0x0166D,0x0166E);
   (0x016EB,0x016ED);
   (0x01735,0x01736);
@@ -1965,16 +3311,61 @@ let po = [
   (0x017D8,0x017DA);
   (0x01800,0x01805);
   (0x01807,0x0180A);
+  (0x01944,0x01945);
+  (0x01A1E,0x01A1F);
+  (0x01AA0,0x01AA6);
+  (0x01AA8,0x01AAD);
+  (0x01B5A,0x01B60);
+  (0x01BFC,0x01BFF);
+  (0x01C3B,0x01C3F);
+  (0x01C7E,0x01C7F);
+  (0x01CC0,0x01CC7);
+  (0x01CD3,0x01CD3);
   (0x02016,0x02017);
   (0x02020,0x02027);
   (0x02030,0x02038);
   (0x0203B,0x0203E);
   (0x02041,0x02043);
   (0x02047,0x02051);
-  (0x02057,0x02057);
-  (0x023B6,0x023B6);
+  (0x02053,0x02053);
+  (0x02055,0x0205E);
+  (0x02CF9,0x02CFC);
+  (0x02CFE,0x02CFF);
+  (0x02D70,0x02D70);
+  (0x02E00,0x02E01);
+  (0x02E06,0x02E08);
+  (0x02E0B,0x02E0B);
+  (0x02E0E,0x02E16);
+  (0x02E18,0x02E19);
+  (0x02E1B,0x02E1B);
+  (0x02E1E,0x02E1F);
+  (0x02E2A,0x02E2E);
+  (0x02E30,0x02E39);
+  (0x02E3C,0x02E3F);
+  (0x02E41,0x02E41);
+  (0x02E43,0x02E44);
   (0x03001,0x03003);
   (0x0303D,0x0303D);
+  (0x030FB,0x030FB);
+  (0x0A4FE,0x0A4FF);
+  (0x0A60D,0x0A60F);
+  (0x0A673,0x0A673);
+  (0x0A67E,0x0A67E);
+  (0x0A6F2,0x0A6F7);
+  (0x0A874,0x0A877);
+  (0x0A8CE,0x0A8CF);
+  (0x0A8F8,0x0A8FA);
+  (0x0A8FC,0x0A8FC);
+  (0x0A92E,0x0A92F);
+  (0x0A95F,0x0A95F);
+  (0x0A9C1,0x0A9CD);
+  (0x0A9DE,0x0A9DF);
+  (0x0AA5C,0x0AA5F);
+  (0x0AADE,0x0AADF);
+  (0x0AAF0,0x0AAF1);
+  (0x0ABEB,0x0ABEB);
+  (0x0FE10,0x0FE16);
+  (0x0FE19,0x0FE19);
   (0x0FE30,0x0FE30);
   (0x0FE45,0x0FE46);
   (0x0FE49,0x0FE4C);
@@ -1992,7 +3383,47 @@ let po = [
   (0x0FF1F,0x0FF20);
   (0x0FF3C,0x0FF3C);
   (0x0FF61,0x0FF61);
-  (0x0FF64,0x0FF64)
+  (0x0FF64,0x0FF65);
+  (0x10100,0x10102);
+  (0x1039F,0x1039F);
+  (0x103D0,0x103D0);
+  (0x1056F,0x1056F);
+  (0x10857,0x10857);
+  (0x1091F,0x1091F);
+  (0x1093F,0x1093F);
+  (0x10A50,0x10A58);
+  (0x10A7F,0x10A7F);
+  (0x10AF0,0x10AF6);
+  (0x10B39,0x10B3F);
+  (0x10B99,0x10B9C);
+  (0x11047,0x1104D);
+  (0x110BB,0x110BC);
+  (0x110BE,0x110C1);
+  (0x11140,0x11143);
+  (0x11174,0x11175);
+  (0x111C5,0x111C9);
+  (0x111CD,0x111CD);
+  (0x111DB,0x111DB);
+  (0x111DD,0x111DF);
+  (0x11238,0x1123D);
+  (0x112A9,0x112A9);
+  (0x1144B,0x1144F);
+  (0x1145B,0x1145B);
+  (0x1145D,0x1145D);
+  (0x114C6,0x114C6);
+  (0x115C1,0x115D7);
+  (0x11641,0x11643);
+  (0x11660,0x1166C);
+  (0x1173C,0x1173E);
+  (0x11C41,0x11C45);
+  (0x11C70,0x11C71);
+  (0x12470,0x12474);
+  (0x16A6E,0x16A6F);
+  (0x16AF5,0x16AF5);
+  (0x16B37,0x16B3B);
+  (0x16B44,0x16B44);
+  (0x1BC9F,0x1BC9F);
+  (0x1DA87,0x1DA8B)
 ]
 (* Symbol, Math *)
 let sm = [
@@ -2005,10 +3436,12 @@ let sm = [
   (0x000D7,0x000D7);
   (0x000F7,0x000F7);
   (0x003F6,0x003F6);
+  (0x00606,0x00608);
   (0x02044,0x02044);
   (0x02052,0x02052);
   (0x0207A,0x0207C);
   (0x0208A,0x0208C);
+  (0x02118,0x02118);
   (0x02140,0x02144);
   (0x0214B,0x0214B);
   (0x02190,0x02194);
@@ -2021,20 +3454,23 @@ let sm = [
   (0x021D2,0x021D2);
   (0x021D4,0x021D4);
   (0x021F4,0x022FF);
-  (0x02308,0x0230B);
   (0x02320,0x02321);
   (0x0237C,0x0237C);
   (0x0239B,0x023B3);
+  (0x023DC,0x023E1);
   (0x025B7,0x025B7);
   (0x025C1,0x025C1);
   (0x025F8,0x025FF);
   (0x0266F,0x0266F);
-  (0x027D0,0x027E5);
+  (0x027C0,0x027C4);
+  (0x027C7,0x027E5);
   (0x027F0,0x027FF);
   (0x02900,0x02982);
   (0x02999,0x029D7);
   (0x029DC,0x029FB);
   (0x029FE,0x02AFF);
+  (0x02B30,0x02B44);
+  (0x02B47,0x02B4C);
   (0x0FB29,0x0FB29);
   (0x0FE62,0x0FE62);
   (0x0FE64,0x0FE66);
@@ -2059,15 +3495,20 @@ let sm = [
 let sc = [
   (0x00024,0x00024);
   (0x000A2,0x000A5);
+  (0x0058F,0x0058F);
+  (0x0060B,0x0060B);
   (0x009F2,0x009F3);
+  (0x009FB,0x009FB);
+  (0x00AF1,0x00AF1);
+  (0x00BF9,0x00BF9);
   (0x00E3F,0x00E3F);
   (0x017DB,0x017DB);
-  (0x020A0,0x020B1);
+  (0x020A0,0x020BE);
+  (0x0A838,0x0A838);
   (0x0FDFC,0x0FDFC);
   (0x0FE69,0x0FE69);
   (0x0FF04,0x0FF04);
-  (0x0FFE0,0x0FFE1);
-  (0x0FFE5,0x0FFE6)
+  (0x0FFE0,0x0FFE1)
 ]
 (* Symbol, Modifier *)
 let sk = [
@@ -2077,11 +3518,12 @@ let sk = [
   (0x000AF,0x000AF);
   (0x000B4,0x000B4);
   (0x000B8,0x000B8);
-  (0x002B9,0x002BA);
-  (0x002C2,0x002CF);
+  (0x002C2,0x002C5);
   (0x002D2,0x002DF);
-  (0x002E5,0x002ED);
-  (0x00374,0x00375);
+  (0x002E5,0x002EB);
+  (0x002ED,0x002ED);
+  (0x002EF,0x002FF);
+  (0x00375,0x00375);
   (0x00384,0x00385);
   (0x01FBD,0x01FBD);
   (0x01FBF,0x01FC1);
@@ -2090,44 +3532,67 @@ let sk = [
   (0x01FED,0x01FEF);
   (0x01FFD,0x01FFE);
   (0x0309B,0x0309C);
+  (0x0A700,0x0A716);
+  (0x0A720,0x0A721);
+  (0x0A789,0x0A78A);
+  (0x0AB5B,0x0AB5B);
+  (0x0FBB2,0x0FBC1);
   (0x0FF3E,0x0FF3E);
   (0x0FF40,0x0FF40);
   (0x0FFE3,0x0FFE3)
 ]
 (* Symbol, Other  *)
 let so = [
-  (0x000A6,0x000A7);
+  (0x000A6,0x000A6);
   (0x000A9,0x000A9);
   (0x000AE,0x000AE);
   (0x000B0,0x000B0);
-  (0x000B6,0x000B6);
   (0x00482,0x00482);
+  (0x0058D,0x0058E);
+  (0x0060E,0x0060F);
+  (0x006DE,0x006DE);
   (0x006E9,0x006E9);
   (0x006FD,0x006FE);
+  (0x007F6,0x007F6);
   (0x009FA,0x009FA);
   (0x00B70,0x00B70);
+  (0x00BF3,0x00BF8);
+  (0x00BFA,0x00BFA);
+  (0x00C7F,0x00C7F);
+  (0x00D4F,0x00D4F);
+  (0x00D79,0x00D79);
   (0x00F01,0x00F03);
-  (0x00F13,0x00F17);
+  (0x00F13,0x00F13);
+  (0x00F15,0x00F17);
   (0x00F1A,0x00F1F);
   (0x00F34,0x00F34);
   (0x00F36,0x00F36);
   (0x00F38,0x00F38);
   (0x00FBE,0x00FC5);
   (0x00FC7,0x00FCC);
-  (0x00FCF,0x00FCF);
+  (0x00FCE,0x00FCF);
+  (0x00FD5,0x00FD8);
+  (0x0109E,0x0109F);
+  (0x01390,0x01399);
+  (0x01940,0x01940);
+  (0x019DE,0x019FF);
+  (0x01B61,0x01B6A);
+  (0x01B74,0x01B7C);
   (0x02100,0x02101);
   (0x02103,0x02106);
   (0x02108,0x02109);
   (0x02114,0x02114);
-  (0x02116,0x02118);
+  (0x02116,0x02117);
   (0x0211E,0x02123);
   (0x02125,0x02125);
   (0x02127,0x02127);
   (0x02129,0x02129);
   (0x0212E,0x0212E);
-  (0x02132,0x02132);
-  (0x0213A,0x0213A);
+  (0x0213A,0x0213B);
   (0x0214A,0x0214A);
+  (0x0214C,0x0214D);
+  (0x0214F,0x0214F);
+  (0x0218A,0x0218B);
   (0x02195,0x02199);
   (0x0219C,0x0219F);
   (0x021A1,0x021A2);
@@ -2142,31 +3607,27 @@ let so = [
   (0x02322,0x02328);
   (0x0232B,0x0237B);
   (0x0237D,0x0239A);
-  (0x023B7,0x023CE);
+  (0x023B4,0x023DB);
+  (0x023E2,0x023FE);
   (0x02400,0x02426);
   (0x02440,0x0244A);
   (0x0249C,0x024E9);
   (0x02500,0x025B6);
   (0x025B8,0x025C0);
   (0x025C2,0x025F7);
-  (0x02600,0x02613);
-  (0x02616,0x02617);
-  (0x02619,0x0266E);
-  (0x02670,0x0267D);
-  (0x02680,0x02689);
-  (0x02701,0x02704);
-  (0x02706,0x02709);
-  (0x0270C,0x02727);
-  (0x02729,0x0274B);
-  (0x0274D,0x0274D);
-  (0x0274F,0x02752);
-  (0x02756,0x02756);
-  (0x02758,0x0275E);
-  (0x02761,0x02767);
-  (0x02794,0x02794);
-  (0x02798,0x027AF);
-  (0x027B1,0x027BE);
+  (0x02600,0x0266E);
+  (0x02670,0x02767);
+  (0x02794,0x027BF);
   (0x02800,0x028FF);
+  (0x02B00,0x02B2F);
+  (0x02B45,0x02B46);
+  (0x02B4D,0x02B73);
+  (0x02B76,0x02B95);
+  (0x02B98,0x02BB9);
+  (0x02BBD,0x02BC8);
+  (0x02BCA,0x02BD1);
+  (0x02BEC,0x02BEF);
+  (0x02CE5,0x02CEA);
   (0x02E80,0x02E99);
   (0x02E9B,0x02EF3);
   (0x02F00,0x02FD5);
@@ -2178,31 +3639,84 @@ let so = [
   (0x0303E,0x0303F);
   (0x03190,0x03191);
   (0x03196,0x0319F);
-  (0x03200,0x0321C);
-  (0x0322A,0x03243);
-  (0x03260,0x0327B);
-  (0x0327F,0x0327F);
+  (0x031C0,0x031E3);
+  (0x03200,0x0321E);
+  (0x0322A,0x03247);
+  (0x03250,0x03250);
+  (0x03260,0x0327F);
   (0x0328A,0x032B0);
-  (0x032C0,0x032CB);
-  (0x032D0,0x032FE);
-  (0x03300,0x03376);
-  (0x0337B,0x033DD);
-  (0x033E0,0x033FE);
+  (0x032C0,0x032FE);
+  (0x03300,0x033FF);
+  (0x04DC0,0x04DFF);
   (0x0A490,0x0A4C6);
+  (0x0A828,0x0A82B);
+  (0x0A836,0x0A837);
+  (0x0A839,0x0A839);
+  (0x0AA77,0x0AA79);
+  (0x0FDFD,0x0FDFD);
   (0x0FFE4,0x0FFE4);
   (0x0FFE8,0x0FFE8);
   (0x0FFED,0x0FFEE);
   (0x0FFFC,0x0FFFD);
+  (0x10137,0x1013F);
+  (0x10179,0x10189);
+  (0x1018C,0x1018E);
+  (0x10190,0x1019B);
+  (0x101A0,0x101A0);
+  (0x101D0,0x101FC);
+  (0x10877,0x10878);
+  (0x10AC8,0x10AC8);
+  (0x1173F,0x1173F);
+  (0x16B3C,0x16B3F);
+  (0x16B45,0x16B45);
+  (0x1BC9C,0x1BC9C);
   (0x1D000,0x1D0F5);
   (0x1D100,0x1D126);
-  (0x1D12A,0x1D164);
+  (0x1D129,0x1D164);
   (0x1D16A,0x1D16C);
   (0x1D183,0x1D184);
   (0x1D18C,0x1D1A9);
-  (0x1D1AE,0x1D1DD)
+  (0x1D1AE,0x1D1E8);
+  (0x1D200,0x1D241);
+  (0x1D245,0x1D245);
+  (0x1D300,0x1D356);
+  (0x1D800,0x1D9FF);
+  (0x1DA37,0x1DA3A);
+  (0x1DA6D,0x1DA74);
+  (0x1DA76,0x1DA83);
+  (0x1DA85,0x1DA86);
+  (0x1F000,0x1F02B);
+  (0x1F030,0x1F093);
+  (0x1F0A0,0x1F0AE);
+  (0x1F0B1,0x1F0BF);
+  (0x1F0C1,0x1F0CF);
+  (0x1F0D1,0x1F0F5);
+  (0x1F110,0x1F12E);
+  (0x1F130,0x1F16B);
+  (0x1F170,0x1F1AC);
+  (0x1F1E6,0x1F202);
+  (0x1F210,0x1F23B);
+  (0x1F240,0x1F248);
+  (0x1F250,0x1F251);
+  (0x1F300,0x1F3FA);
+  (0x1F400,0x1F6D2);
+  (0x1F6E0,0x1F6EC);
+  (0x1F6F0,0x1F6F6);
+  (0x1F700,0x1F773);
+  (0x1F780,0x1F7D4);
+  (0x1F800,0x1F80B);
+  (0x1F810,0x1F847);
+  (0x1F850,0x1F859);
+  (0x1F860,0x1F887);
+  (0x1F890,0x1F8AD);
+  (0x1F910,0x1F91E);
+  (0x1F920,0x1F927);
+  (0x1F930,0x1F930);
+  (0x1F933,0x1F93E);
+  (0x1F940,0x1F94B);
+  (0x1F950,0x1F95E);
+  (0x1F980,0x1F991)
 ]
-
-(* Conversion to lower case. *)
 let to_lower = [
   (0x00041,0x0005A), `Delta (32);
   (0x000C0,0x000D6), `Delta (32);
@@ -2358,12 +3872,31 @@ let to_lower = [
   (0x0022E,0x0022E), `Abs (0x0022F);
   (0x00230,0x00230), `Abs (0x00231);
   (0x00232,0x00232), `Abs (0x00233);
+  (0x0023A,0x0023A), `Abs (0x02C65);
+  (0x0023B,0x0023B), `Abs (0x0023C);
+  (0x0023D,0x0023D), `Abs (0x0019A);
+  (0x0023E,0x0023E), `Abs (0x02C66);
+  (0x00241,0x00241), `Abs (0x00242);
+  (0x00243,0x00243), `Abs (0x00180);
+  (0x00244,0x00244), `Abs (0x00289);
+  (0x00245,0x00245), `Abs (0x0028C);
+  (0x00246,0x00246), `Abs (0x00247);
+  (0x00248,0x00248), `Abs (0x00249);
+  (0x0024A,0x0024A), `Abs (0x0024B);
+  (0x0024C,0x0024C), `Abs (0x0024D);
+  (0x0024E,0x0024E), `Abs (0x0024F);
+  (0x00370,0x00370), `Abs (0x00371);
+  (0x00372,0x00372), `Abs (0x00373);
+  (0x00376,0x00376), `Abs (0x00377);
+  (0x0037F,0x0037F), `Abs (0x003F3);
   (0x00386,0x00386), `Abs (0x003AC);
   (0x00388,0x0038A), `Delta (37);
   (0x0038C,0x0038C), `Abs (0x003CC);
   (0x0038E,0x0038F), `Delta (63);
   (0x00391,0x003A1), `Delta (32);
   (0x003A3,0x003AB), `Delta (32);
+  (0x003CF,0x003CF), `Abs (0x003D7);
+  (0x003D2,0x003D4), `Delta (0);
   (0x003D8,0x003D8), `Abs (0x003D9);
   (0x003DA,0x003DA), `Abs (0x003DB);
   (0x003DC,0x003DC), `Abs (0x003DD);
@@ -2377,6 +3910,10 @@ let to_lower = [
   (0x003EC,0x003EC), `Abs (0x003ED);
   (0x003EE,0x003EE), `Abs (0x003EF);
   (0x003F4,0x003F4), `Abs (0x003B8);
+  (0x003F7,0x003F7), `Abs (0x003F8);
+  (0x003F9,0x003F9), `Abs (0x003F2);
+  (0x003FA,0x003FA), `Abs (0x003FB);
+  (0x003FD,0x003FF), `Delta (-130);
   (0x00400,0x0040F), `Delta (80);
   (0x00410,0x0042F), `Delta (32);
   (0x00460,0x00460), `Abs (0x00461);
@@ -2423,6 +3960,7 @@ let to_lower = [
   (0x004BA,0x004BA), `Abs (0x004BB);
   (0x004BC,0x004BC), `Abs (0x004BD);
   (0x004BE,0x004BE), `Abs (0x004BF);
+  (0x004C0,0x004C0), `Abs (0x004CF);
   (0x004C1,0x004C1), `Abs (0x004C2);
   (0x004C3,0x004C3), `Abs (0x004C4);
   (0x004C5,0x004C5), `Abs (0x004C6);
@@ -2449,7 +3987,11 @@ let to_lower = [
   (0x004F0,0x004F0), `Abs (0x004F1);
   (0x004F2,0x004F2), `Abs (0x004F3);
   (0x004F4,0x004F4), `Abs (0x004F5);
+  (0x004F6,0x004F6), `Abs (0x004F7);
   (0x004F8,0x004F8), `Abs (0x004F9);
+  (0x004FA,0x004FA), `Abs (0x004FB);
+  (0x004FC,0x004FC), `Abs (0x004FD);
+  (0x004FE,0x004FE), `Abs (0x004FF);
   (0x00500,0x00500), `Abs (0x00501);
   (0x00502,0x00502), `Abs (0x00503);
   (0x00504,0x00504), `Abs (0x00505);
@@ -2458,7 +4000,28 @@ let to_lower = [
   (0x0050A,0x0050A), `Abs (0x0050B);
   (0x0050C,0x0050C), `Abs (0x0050D);
   (0x0050E,0x0050E), `Abs (0x0050F);
+  (0x00510,0x00510), `Abs (0x00511);
+  (0x00512,0x00512), `Abs (0x00513);
+  (0x00514,0x00514), `Abs (0x00515);
+  (0x00516,0x00516), `Abs (0x00517);
+  (0x00518,0x00518), `Abs (0x00519);
+  (0x0051A,0x0051A), `Abs (0x0051B);
+  (0x0051C,0x0051C), `Abs (0x0051D);
+  (0x0051E,0x0051E), `Abs (0x0051F);
+  (0x00520,0x00520), `Abs (0x00521);
+  (0x00522,0x00522), `Abs (0x00523);
+  (0x00524,0x00524), `Abs (0x00525);
+  (0x00526,0x00526), `Abs (0x00527);
+  (0x00528,0x00528), `Abs (0x00529);
+  (0x0052A,0x0052A), `Abs (0x0052B);
+  (0x0052C,0x0052C), `Abs (0x0052D);
+  (0x0052E,0x0052E), `Abs (0x0052F);
   (0x00531,0x00556), `Delta (48);
+  (0x010A0,0x010C5), `Delta (7264);
+  (0x010C7,0x010C7), `Abs (0x02D27);
+  (0x010CD,0x010CD), `Abs (0x02D2D);
+  (0x013A0,0x013EF), `Delta (38864);
+  (0x013F0,0x013F5), `Delta (8);
   (0x01E00,0x01E00), `Abs (0x01E01);
   (0x01E02,0x01E02), `Abs (0x01E03);
   (0x01E04,0x01E04), `Abs (0x01E05);
@@ -2534,6 +4097,7 @@ let to_lower = [
   (0x01E90,0x01E90), `Abs (0x01E91);
   (0x01E92,0x01E92), `Abs (0x01E93);
   (0x01E94,0x01E94), `Abs (0x01E95);
+  (0x01E9E,0x01E9E), `Abs (0x000DF);
   (0x01EA0,0x01EA0), `Abs (0x01EA1);
   (0x01EA2,0x01EA2), `Abs (0x01EA3);
   (0x01EA4,0x01EA4), `Abs (0x01EA5);
@@ -2579,6 +4143,9 @@ let to_lower = [
   (0x01EF4,0x01EF4), `Abs (0x01EF5);
   (0x01EF6,0x01EF6), `Abs (0x01EF7);
   (0x01EF8,0x01EF8), `Abs (0x01EF9);
+  (0x01EFA,0x01EFA), `Abs (0x01EFB);
+  (0x01EFC,0x01EFC), `Abs (0x01EFD);
+  (0x01EFE,0x01EFE), `Abs (0x01EFF);
   (0x01F08,0x01F0F), `Delta (-8);
   (0x01F18,0x01F1D), `Delta (-8);
   (0x01F28,0x01F2F), `Delta (-8);
@@ -2599,11 +4166,870 @@ let to_lower = [
   (0x01FEC,0x01FEC), `Abs (0x01FE5);
   (0x01FF8,0x01FF9), `Delta (-128);
   (0x01FFA,0x01FFB), `Delta (-126);
+  (0x02102,0x02102), `Abs (0x02102);
+  (0x02107,0x02107), `Abs (0x02107);
+  (0x0210B,0x0210D), `Delta (0);
+  (0x02110,0x02112), `Delta (0);
+  (0x02115,0x02115), `Abs (0x02115);
+  (0x02119,0x0211D), `Delta (0);
+  (0x02124,0x02124), `Abs (0x02124);
   (0x02126,0x02126), `Abs (0x003C9);
+  (0x02128,0x02128), `Abs (0x02128);
   (0x0212A,0x0212A), `Abs (0x0006B);
   (0x0212B,0x0212B), `Abs (0x000E5);
+  (0x0212C,0x0212D), `Delta (0);
+  (0x02130,0x02131), `Delta (0);
+  (0x02132,0x02132), `Abs (0x0214E);
+  (0x02133,0x02133), `Abs (0x02133);
+  (0x0213E,0x0213F), `Delta (0);
+  (0x02145,0x02145), `Abs (0x02145);
+  (0x02183,0x02183), `Abs (0x02184);
+  (0x02C00,0x02C2E), `Delta (48);
+  (0x02C60,0x02C60), `Abs (0x02C61);
+  (0x02C62,0x02C62), `Abs (0x0026B);
+  (0x02C63,0x02C63), `Abs (0x01D7D);
+  (0x02C64,0x02C64), `Abs (0x0027D);
+  (0x02C67,0x02C67), `Abs (0x02C68);
+  (0x02C69,0x02C69), `Abs (0x02C6A);
+  (0x02C6B,0x02C6B), `Abs (0x02C6C);
+  (0x02C6D,0x02C6D), `Abs (0x00251);
+  (0x02C6E,0x02C6E), `Abs (0x00271);
+  (0x02C6F,0x02C6F), `Abs (0x00250);
+  (0x02C70,0x02C70), `Abs (0x00252);
+  (0x02C72,0x02C72), `Abs (0x02C73);
+  (0x02C75,0x02C75), `Abs (0x02C76);
+  (0x02C7E,0x02C7F), `Delta (-10815);
+  (0x02C80,0x02C80), `Abs (0x02C81);
+  (0x02C82,0x02C82), `Abs (0x02C83);
+  (0x02C84,0x02C84), `Abs (0x02C85);
+  (0x02C86,0x02C86), `Abs (0x02C87);
+  (0x02C88,0x02C88), `Abs (0x02C89);
+  (0x02C8A,0x02C8A), `Abs (0x02C8B);
+  (0x02C8C,0x02C8C), `Abs (0x02C8D);
+  (0x02C8E,0x02C8E), `Abs (0x02C8F);
+  (0x02C90,0x02C90), `Abs (0x02C91);
+  (0x02C92,0x02C92), `Abs (0x02C93);
+  (0x02C94,0x02C94), `Abs (0x02C95);
+  (0x02C96,0x02C96), `Abs (0x02C97);
+  (0x02C98,0x02C98), `Abs (0x02C99);
+  (0x02C9A,0x02C9A), `Abs (0x02C9B);
+  (0x02C9C,0x02C9C), `Abs (0x02C9D);
+  (0x02C9E,0x02C9E), `Abs (0x02C9F);
+  (0x02CA0,0x02CA0), `Abs (0x02CA1);
+  (0x02CA2,0x02CA2), `Abs (0x02CA3);
+  (0x02CA4,0x02CA4), `Abs (0x02CA5);
+  (0x02CA6,0x02CA6), `Abs (0x02CA7);
+  (0x02CA8,0x02CA8), `Abs (0x02CA9);
+  (0x02CAA,0x02CAA), `Abs (0x02CAB);
+  (0x02CAC,0x02CAC), `Abs (0x02CAD);
+  (0x02CAE,0x02CAE), `Abs (0x02CAF);
+  (0x02CB0,0x02CB0), `Abs (0x02CB1);
+  (0x02CB2,0x02CB2), `Abs (0x02CB3);
+  (0x02CB4,0x02CB4), `Abs (0x02CB5);
+  (0x02CB6,0x02CB6), `Abs (0x02CB7);
+  (0x02CB8,0x02CB8), `Abs (0x02CB9);
+  (0x02CBA,0x02CBA), `Abs (0x02CBB);
+  (0x02CBC,0x02CBC), `Abs (0x02CBD);
+  (0x02CBE,0x02CBE), `Abs (0x02CBF);
+  (0x02CC0,0x02CC0), `Abs (0x02CC1);
+  (0x02CC2,0x02CC2), `Abs (0x02CC3);
+  (0x02CC4,0x02CC4), `Abs (0x02CC5);
+  (0x02CC6,0x02CC6), `Abs (0x02CC7);
+  (0x02CC8,0x02CC8), `Abs (0x02CC9);
+  (0x02CCA,0x02CCA), `Abs (0x02CCB);
+  (0x02CCC,0x02CCC), `Abs (0x02CCD);
+  (0x02CCE,0x02CCE), `Abs (0x02CCF);
+  (0x02CD0,0x02CD0), `Abs (0x02CD1);
+  (0x02CD2,0x02CD2), `Abs (0x02CD3);
+  (0x02CD4,0x02CD4), `Abs (0x02CD5);
+  (0x02CD6,0x02CD6), `Abs (0x02CD7);
+  (0x02CD8,0x02CD8), `Abs (0x02CD9);
+  (0x02CDA,0x02CDA), `Abs (0x02CDB);
+  (0x02CDC,0x02CDC), `Abs (0x02CDD);
+  (0x02CDE,0x02CDE), `Abs (0x02CDF);
+  (0x02CE0,0x02CE0), `Abs (0x02CE1);
+  (0x02CE2,0x02CE2), `Abs (0x02CE3);
+  (0x02CEB,0x02CEB), `Abs (0x02CEC);
+  (0x02CED,0x02CED), `Abs (0x02CEE);
+  (0x02CF2,0x02CF2), `Abs (0x02CF3);
+  (0x0A640,0x0A640), `Abs (0x0A641);
+  (0x0A642,0x0A642), `Abs (0x0A643);
+  (0x0A644,0x0A644), `Abs (0x0A645);
+  (0x0A646,0x0A646), `Abs (0x0A647);
+  (0x0A648,0x0A648), `Abs (0x0A649);
+  (0x0A64A,0x0A64A), `Abs (0x0A64B);
+  (0x0A64C,0x0A64C), `Abs (0x0A64D);
+  (0x0A64E,0x0A64E), `Abs (0x0A64F);
+  (0x0A650,0x0A650), `Abs (0x0A651);
+  (0x0A652,0x0A652), `Abs (0x0A653);
+  (0x0A654,0x0A654), `Abs (0x0A655);
+  (0x0A656,0x0A656), `Abs (0x0A657);
+  (0x0A658,0x0A658), `Abs (0x0A659);
+  (0x0A65A,0x0A65A), `Abs (0x0A65B);
+  (0x0A65C,0x0A65C), `Abs (0x0A65D);
+  (0x0A65E,0x0A65E), `Abs (0x0A65F);
+  (0x0A660,0x0A660), `Abs (0x0A661);
+  (0x0A662,0x0A662), `Abs (0x0A663);
+  (0x0A664,0x0A664), `Abs (0x0A665);
+  (0x0A666,0x0A666), `Abs (0x0A667);
+  (0x0A668,0x0A668), `Abs (0x0A669);
+  (0x0A66A,0x0A66A), `Abs (0x0A66B);
+  (0x0A66C,0x0A66C), `Abs (0x0A66D);
+  (0x0A680,0x0A680), `Abs (0x0A681);
+  (0x0A682,0x0A682), `Abs (0x0A683);
+  (0x0A684,0x0A684), `Abs (0x0A685);
+  (0x0A686,0x0A686), `Abs (0x0A687);
+  (0x0A688,0x0A688), `Abs (0x0A689);
+  (0x0A68A,0x0A68A), `Abs (0x0A68B);
+  (0x0A68C,0x0A68C), `Abs (0x0A68D);
+  (0x0A68E,0x0A68E), `Abs (0x0A68F);
+  (0x0A690,0x0A690), `Abs (0x0A691);
+  (0x0A692,0x0A692), `Abs (0x0A693);
+  (0x0A694,0x0A694), `Abs (0x0A695);
+  (0x0A696,0x0A696), `Abs (0x0A697);
+  (0x0A698,0x0A698), `Abs (0x0A699);
+  (0x0A69A,0x0A69A), `Abs (0x0A69B);
+  (0x0A722,0x0A722), `Abs (0x0A723);
+  (0x0A724,0x0A724), `Abs (0x0A725);
+  (0x0A726,0x0A726), `Abs (0x0A727);
+  (0x0A728,0x0A728), `Abs (0x0A729);
+  (0x0A72A,0x0A72A), `Abs (0x0A72B);
+  (0x0A72C,0x0A72C), `Abs (0x0A72D);
+  (0x0A72E,0x0A72E), `Abs (0x0A72F);
+  (0x0A732,0x0A732), `Abs (0x0A733);
+  (0x0A734,0x0A734), `Abs (0x0A735);
+  (0x0A736,0x0A736), `Abs (0x0A737);
+  (0x0A738,0x0A738), `Abs (0x0A739);
+  (0x0A73A,0x0A73A), `Abs (0x0A73B);
+  (0x0A73C,0x0A73C), `Abs (0x0A73D);
+  (0x0A73E,0x0A73E), `Abs (0x0A73F);
+  (0x0A740,0x0A740), `Abs (0x0A741);
+  (0x0A742,0x0A742), `Abs (0x0A743);
+  (0x0A744,0x0A744), `Abs (0x0A745);
+  (0x0A746,0x0A746), `Abs (0x0A747);
+  (0x0A748,0x0A748), `Abs (0x0A749);
+  (0x0A74A,0x0A74A), `Abs (0x0A74B);
+  (0x0A74C,0x0A74C), `Abs (0x0A74D);
+  (0x0A74E,0x0A74E), `Abs (0x0A74F);
+  (0x0A750,0x0A750), `Abs (0x0A751);
+  (0x0A752,0x0A752), `Abs (0x0A753);
+  (0x0A754,0x0A754), `Abs (0x0A755);
+  (0x0A756,0x0A756), `Abs (0x0A757);
+  (0x0A758,0x0A758), `Abs (0x0A759);
+  (0x0A75A,0x0A75A), `Abs (0x0A75B);
+  (0x0A75C,0x0A75C), `Abs (0x0A75D);
+  (0x0A75E,0x0A75E), `Abs (0x0A75F);
+  (0x0A760,0x0A760), `Abs (0x0A761);
+  (0x0A762,0x0A762), `Abs (0x0A763);
+  (0x0A764,0x0A764), `Abs (0x0A765);
+  (0x0A766,0x0A766), `Abs (0x0A767);
+  (0x0A768,0x0A768), `Abs (0x0A769);
+  (0x0A76A,0x0A76A), `Abs (0x0A76B);
+  (0x0A76C,0x0A76C), `Abs (0x0A76D);
+  (0x0A76E,0x0A76E), `Abs (0x0A76F);
+  (0x0A779,0x0A779), `Abs (0x0A77A);
+  (0x0A77B,0x0A77B), `Abs (0x0A77C);
+  (0x0A77D,0x0A77D), `Abs (0x01D79);
+  (0x0A77E,0x0A77E), `Abs (0x0A77F);
+  (0x0A780,0x0A780), `Abs (0x0A781);
+  (0x0A782,0x0A782), `Abs (0x0A783);
+  (0x0A784,0x0A784), `Abs (0x0A785);
+  (0x0A786,0x0A786), `Abs (0x0A787);
+  (0x0A78B,0x0A78B), `Abs (0x0A78C);
+  (0x0A78D,0x0A78D), `Abs (0x00265);
+  (0x0A790,0x0A790), `Abs (0x0A791);
+  (0x0A792,0x0A792), `Abs (0x0A793);
+  (0x0A796,0x0A796), `Abs (0x0A797);
+  (0x0A798,0x0A798), `Abs (0x0A799);
+  (0x0A79A,0x0A79A), `Abs (0x0A79B);
+  (0x0A79C,0x0A79C), `Abs (0x0A79D);
+  (0x0A79E,0x0A79E), `Abs (0x0A79F);
+  (0x0A7A0,0x0A7A0), `Abs (0x0A7A1);
+  (0x0A7A2,0x0A7A2), `Abs (0x0A7A3);
+  (0x0A7A4,0x0A7A4), `Abs (0x0A7A5);
+  (0x0A7A6,0x0A7A6), `Abs (0x0A7A7);
+  (0x0A7A8,0x0A7A8), `Abs (0x0A7A9);
+  (0x0A7AA,0x0A7AA), `Abs (0x00266);
+  (0x0A7AB,0x0A7AB), `Abs (0x0025C);
+  (0x0A7AC,0x0A7AC), `Abs (0x00261);
+  (0x0A7AD,0x0A7AD), `Abs (0x0026C);
+  (0x0A7AE,0x0A7AE), `Abs (0x0026A);
+  (0x0A7B0,0x0A7B0), `Abs (0x0029E);
+  (0x0A7B1,0x0A7B1), `Abs (0x00287);
+  (0x0A7B2,0x0A7B2), `Abs (0x0029D);
+  (0x0A7B3,0x0A7B3), `Abs (0x0AB53);
+  (0x0A7B4,0x0A7B4), `Abs (0x0A7B5);
+  (0x0A7B6,0x0A7B6), `Abs (0x0A7B7);
   (0x0FF21,0x0FF3A), `Delta (32);
-  (0x10400,0x10425), `Delta (40);
+  (0x10400,0x10427), `Delta (40);
+  (0x104B0,0x104D3), `Delta (40);
+  (0x10C80,0x10CB2), `Delta (64);
+  (0x118A0,0x118BF), `Delta (32);
+  (0x1D400,0x1D419), `Delta (0);
+  (0x1D434,0x1D44D), `Delta (0);
+  (0x1D468,0x1D481), `Delta (0);
+  (0x1D49C,0x1D49C), `Abs (0x1D49C);
+  (0x1D49E,0x1D49F), `Delta (0);
+  (0x1D4A2,0x1D4A2), `Abs (0x1D4A2);
+  (0x1D4A5,0x1D4A6), `Delta (0);
+  (0x1D4A9,0x1D4AC), `Delta (0);
+  (0x1D4AE,0x1D4B5), `Delta (0);
+  (0x1D4D0,0x1D4E9), `Delta (0);
+  (0x1D504,0x1D505), `Delta (0);
+  (0x1D507,0x1D50A), `Delta (0);
+  (0x1D50D,0x1D514), `Delta (0);
+  (0x1D516,0x1D51C), `Delta (0);
+  (0x1D538,0x1D539), `Delta (0);
+  (0x1D53B,0x1D53E), `Delta (0);
+  (0x1D540,0x1D544), `Delta (0);
+  (0x1D546,0x1D546), `Abs (0x1D546);
+  (0x1D54A,0x1D550), `Delta (0);
+  (0x1D56C,0x1D585), `Delta (0);
+  (0x1D5A0,0x1D5B9), `Delta (0);
+  (0x1D5D4,0x1D5ED), `Delta (0);
+  (0x1D608,0x1D621), `Delta (0);
+  (0x1D63C,0x1D655), `Delta (0);
+  (0x1D670,0x1D689), `Delta (0);
+  (0x1D6A8,0x1D6C0), `Delta (0);
+  (0x1D6E2,0x1D6FA), `Delta (0);
+  (0x1D71C,0x1D734), `Delta (0);
+  (0x1D756,0x1D76E), `Delta (0);
+  (0x1D790,0x1D7A8), `Delta (0);
+  (0x1D7CA,0x1D7CA), `Abs (0x1D7CA);
+  (0x1E900,0x1E921), `Delta (34);
+  (0x00061,0x0007A), `Delta (0);
+  (0x000B5,0x000B5), `Abs (0x000B5);
+  (0x000DF,0x000F6), `Delta (0);
+  (0x000F8,0x000FF), `Delta (0);
+  (0x00101,0x00101), `Abs (0x00101);
+  (0x00103,0x00103), `Abs (0x00103);
+  (0x00105,0x00105), `Abs (0x00105);
+  (0x00107,0x00107), `Abs (0x00107);
+  (0x00109,0x00109), `Abs (0x00109);
+  (0x0010B,0x0010B), `Abs (0x0010B);
+  (0x0010D,0x0010D), `Abs (0x0010D);
+  (0x0010F,0x0010F), `Abs (0x0010F);
+  (0x00111,0x00111), `Abs (0x00111);
+  (0x00113,0x00113), `Abs (0x00113);
+  (0x00115,0x00115), `Abs (0x00115);
+  (0x00117,0x00117), `Abs (0x00117);
+  (0x00119,0x00119), `Abs (0x00119);
+  (0x0011B,0x0011B), `Abs (0x0011B);
+  (0x0011D,0x0011D), `Abs (0x0011D);
+  (0x0011F,0x0011F), `Abs (0x0011F);
+  (0x00121,0x00121), `Abs (0x00121);
+  (0x00123,0x00123), `Abs (0x00123);
+  (0x00125,0x00125), `Abs (0x00125);
+  (0x00127,0x00127), `Abs (0x00127);
+  (0x00129,0x00129), `Abs (0x00129);
+  (0x0012B,0x0012B), `Abs (0x0012B);
+  (0x0012D,0x0012D), `Abs (0x0012D);
+  (0x0012F,0x0012F), `Abs (0x0012F);
+  (0x00131,0x00131), `Abs (0x00131);
+  (0x00133,0x00133), `Abs (0x00133);
+  (0x00135,0x00135), `Abs (0x00135);
+  (0x00137,0x00138), `Delta (0);
+  (0x0013A,0x0013A), `Abs (0x0013A);
+  (0x0013C,0x0013C), `Abs (0x0013C);
+  (0x0013E,0x0013E), `Abs (0x0013E);
+  (0x00140,0x00140), `Abs (0x00140);
+  (0x00142,0x00142), `Abs (0x00142);
+  (0x00144,0x00144), `Abs (0x00144);
+  (0x00146,0x00146), `Abs (0x00146);
+  (0x00148,0x00149), `Delta (0);
+  (0x0014B,0x0014B), `Abs (0x0014B);
+  (0x0014D,0x0014D), `Abs (0x0014D);
+  (0x0014F,0x0014F), `Abs (0x0014F);
+  (0x00151,0x00151), `Abs (0x00151);
+  (0x00153,0x00153), `Abs (0x00153);
+  (0x00155,0x00155), `Abs (0x00155);
+  (0x00157,0x00157), `Abs (0x00157);
+  (0x00159,0x00159), `Abs (0x00159);
+  (0x0015B,0x0015B), `Abs (0x0015B);
+  (0x0015D,0x0015D), `Abs (0x0015D);
+  (0x0015F,0x0015F), `Abs (0x0015F);
+  (0x00161,0x00161), `Abs (0x00161);
+  (0x00163,0x00163), `Abs (0x00163);
+  (0x00165,0x00165), `Abs (0x00165);
+  (0x00167,0x00167), `Abs (0x00167);
+  (0x00169,0x00169), `Abs (0x00169);
+  (0x0016B,0x0016B), `Abs (0x0016B);
+  (0x0016D,0x0016D), `Abs (0x0016D);
+  (0x0016F,0x0016F), `Abs (0x0016F);
+  (0x00171,0x00171), `Abs (0x00171);
+  (0x00173,0x00173), `Abs (0x00173);
+  (0x00175,0x00175), `Abs (0x00175);
+  (0x00177,0x00177), `Abs (0x00177);
+  (0x0017A,0x0017A), `Abs (0x0017A);
+  (0x0017C,0x0017C), `Abs (0x0017C);
+  (0x0017E,0x00180), `Delta (0);
+  (0x00183,0x00183), `Abs (0x00183);
+  (0x00185,0x00185), `Abs (0x00185);
+  (0x00188,0x00188), `Abs (0x00188);
+  (0x0018C,0x0018D), `Delta (0);
+  (0x00192,0x00192), `Abs (0x00192);
+  (0x00195,0x00195), `Abs (0x00195);
+  (0x00199,0x0019B), `Delta (0);
+  (0x0019E,0x0019E), `Abs (0x0019E);
+  (0x001A1,0x001A1), `Abs (0x001A1);
+  (0x001A3,0x001A3), `Abs (0x001A3);
+  (0x001A5,0x001A5), `Abs (0x001A5);
+  (0x001A8,0x001A8), `Abs (0x001A8);
+  (0x001AA,0x001AB), `Delta (0);
+  (0x001AD,0x001AD), `Abs (0x001AD);
+  (0x001B0,0x001B0), `Abs (0x001B0);
+  (0x001B4,0x001B4), `Abs (0x001B4);
+  (0x001B6,0x001B6), `Abs (0x001B6);
+  (0x001B9,0x001BA), `Delta (0);
+  (0x001BD,0x001BF), `Delta (0);
+  (0x001C6,0x001C6), `Abs (0x001C6);
+  (0x001C9,0x001C9), `Abs (0x001C9);
+  (0x001CC,0x001CC), `Abs (0x001CC);
+  (0x001CE,0x001CE), `Abs (0x001CE);
+  (0x001D0,0x001D0), `Abs (0x001D0);
+  (0x001D2,0x001D2), `Abs (0x001D2);
+  (0x001D4,0x001D4), `Abs (0x001D4);
+  (0x001D6,0x001D6), `Abs (0x001D6);
+  (0x001D8,0x001D8), `Abs (0x001D8);
+  (0x001DA,0x001DA), `Abs (0x001DA);
+  (0x001DC,0x001DD), `Delta (0);
+  (0x001DF,0x001DF), `Abs (0x001DF);
+  (0x001E1,0x001E1), `Abs (0x001E1);
+  (0x001E3,0x001E3), `Abs (0x001E3);
+  (0x001E5,0x001E5), `Abs (0x001E5);
+  (0x001E7,0x001E7), `Abs (0x001E7);
+  (0x001E9,0x001E9), `Abs (0x001E9);
+  (0x001EB,0x001EB), `Abs (0x001EB);
+  (0x001ED,0x001ED), `Abs (0x001ED);
+  (0x001EF,0x001F0), `Delta (0);
+  (0x001F3,0x001F3), `Abs (0x001F3);
+  (0x001F5,0x001F5), `Abs (0x001F5);
+  (0x001F9,0x001F9), `Abs (0x001F9);
+  (0x001FB,0x001FB), `Abs (0x001FB);
+  (0x001FD,0x001FD), `Abs (0x001FD);
+  (0x001FF,0x001FF), `Abs (0x001FF);
+  (0x00201,0x00201), `Abs (0x00201);
+  (0x00203,0x00203), `Abs (0x00203);
+  (0x00205,0x00205), `Abs (0x00205);
+  (0x00207,0x00207), `Abs (0x00207);
+  (0x00209,0x00209), `Abs (0x00209);
+  (0x0020B,0x0020B), `Abs (0x0020B);
+  (0x0020D,0x0020D), `Abs (0x0020D);
+  (0x0020F,0x0020F), `Abs (0x0020F);
+  (0x00211,0x00211), `Abs (0x00211);
+  (0x00213,0x00213), `Abs (0x00213);
+  (0x00215,0x00215), `Abs (0x00215);
+  (0x00217,0x00217), `Abs (0x00217);
+  (0x00219,0x00219), `Abs (0x00219);
+  (0x0021B,0x0021B), `Abs (0x0021B);
+  (0x0021D,0x0021D), `Abs (0x0021D);
+  (0x0021F,0x0021F), `Abs (0x0021F);
+  (0x00221,0x00221), `Abs (0x00221);
+  (0x00223,0x00223), `Abs (0x00223);
+  (0x00225,0x00225), `Abs (0x00225);
+  (0x00227,0x00227), `Abs (0x00227);
+  (0x00229,0x00229), `Abs (0x00229);
+  (0x0022B,0x0022B), `Abs (0x0022B);
+  (0x0022D,0x0022D), `Abs (0x0022D);
+  (0x0022F,0x0022F), `Abs (0x0022F);
+  (0x00231,0x00231), `Abs (0x00231);
+  (0x00233,0x00239), `Delta (0);
+  (0x0023C,0x0023C), `Abs (0x0023C);
+  (0x0023F,0x00240), `Delta (0);
+  (0x00242,0x00242), `Abs (0x00242);
+  (0x00247,0x00247), `Abs (0x00247);
+  (0x00249,0x00249), `Abs (0x00249);
+  (0x0024B,0x0024B), `Abs (0x0024B);
+  (0x0024D,0x0024D), `Abs (0x0024D);
+  (0x0024F,0x00293), `Delta (0);
+  (0x00295,0x002AF), `Delta (0);
+  (0x00371,0x00371), `Abs (0x00371);
+  (0x00373,0x00373), `Abs (0x00373);
+  (0x00377,0x00377), `Abs (0x00377);
+  (0x0037B,0x0037D), `Delta (0);
+  (0x00390,0x00390), `Abs (0x00390);
+  (0x003AC,0x003CE), `Delta (0);
+  (0x003D0,0x003D1), `Delta (0);
+  (0x003D5,0x003D7), `Delta (0);
+  (0x003D9,0x003D9), `Abs (0x003D9);
+  (0x003DB,0x003DB), `Abs (0x003DB);
+  (0x003DD,0x003DD), `Abs (0x003DD);
+  (0x003DF,0x003DF), `Abs (0x003DF);
+  (0x003E1,0x003E1), `Abs (0x003E1);
+  (0x003E3,0x003E3), `Abs (0x003E3);
+  (0x003E5,0x003E5), `Abs (0x003E5);
+  (0x003E7,0x003E7), `Abs (0x003E7);
+  (0x003E9,0x003E9), `Abs (0x003E9);
+  (0x003EB,0x003EB), `Abs (0x003EB);
+  (0x003ED,0x003ED), `Abs (0x003ED);
+  (0x003EF,0x003F3), `Delta (0);
+  (0x003F5,0x003F5), `Abs (0x003F5);
+  (0x003F8,0x003F8), `Abs (0x003F8);
+  (0x003FB,0x003FC), `Delta (0);
+  (0x00430,0x0045F), `Delta (0);
+  (0x00461,0x00461), `Abs (0x00461);
+  (0x00463,0x00463), `Abs (0x00463);
+  (0x00465,0x00465), `Abs (0x00465);
+  (0x00467,0x00467), `Abs (0x00467);
+  (0x00469,0x00469), `Abs (0x00469);
+  (0x0046B,0x0046B), `Abs (0x0046B);
+  (0x0046D,0x0046D), `Abs (0x0046D);
+  (0x0046F,0x0046F), `Abs (0x0046F);
+  (0x00471,0x00471), `Abs (0x00471);
+  (0x00473,0x00473), `Abs (0x00473);
+  (0x00475,0x00475), `Abs (0x00475);
+  (0x00477,0x00477), `Abs (0x00477);
+  (0x00479,0x00479), `Abs (0x00479);
+  (0x0047B,0x0047B), `Abs (0x0047B);
+  (0x0047D,0x0047D), `Abs (0x0047D);
+  (0x0047F,0x0047F), `Abs (0x0047F);
+  (0x00481,0x00481), `Abs (0x00481);
+  (0x0048B,0x0048B), `Abs (0x0048B);
+  (0x0048D,0x0048D), `Abs (0x0048D);
+  (0x0048F,0x0048F), `Abs (0x0048F);
+  (0x00491,0x00491), `Abs (0x00491);
+  (0x00493,0x00493), `Abs (0x00493);
+  (0x00495,0x00495), `Abs (0x00495);
+  (0x00497,0x00497), `Abs (0x00497);
+  (0x00499,0x00499), `Abs (0x00499);
+  (0x0049B,0x0049B), `Abs (0x0049B);
+  (0x0049D,0x0049D), `Abs (0x0049D);
+  (0x0049F,0x0049F), `Abs (0x0049F);
+  (0x004A1,0x004A1), `Abs (0x004A1);
+  (0x004A3,0x004A3), `Abs (0x004A3);
+  (0x004A5,0x004A5), `Abs (0x004A5);
+  (0x004A7,0x004A7), `Abs (0x004A7);
+  (0x004A9,0x004A9), `Abs (0x004A9);
+  (0x004AB,0x004AB), `Abs (0x004AB);
+  (0x004AD,0x004AD), `Abs (0x004AD);
+  (0x004AF,0x004AF), `Abs (0x004AF);
+  (0x004B1,0x004B1), `Abs (0x004B1);
+  (0x004B3,0x004B3), `Abs (0x004B3);
+  (0x004B5,0x004B5), `Abs (0x004B5);
+  (0x004B7,0x004B7), `Abs (0x004B7);
+  (0x004B9,0x004B9), `Abs (0x004B9);
+  (0x004BB,0x004BB), `Abs (0x004BB);
+  (0x004BD,0x004BD), `Abs (0x004BD);
+  (0x004BF,0x004BF), `Abs (0x004BF);
+  (0x004C2,0x004C2), `Abs (0x004C2);
+  (0x004C4,0x004C4), `Abs (0x004C4);
+  (0x004C6,0x004C6), `Abs (0x004C6);
+  (0x004C8,0x004C8), `Abs (0x004C8);
+  (0x004CA,0x004CA), `Abs (0x004CA);
+  (0x004CC,0x004CC), `Abs (0x004CC);
+  (0x004CE,0x004CF), `Delta (0);
+  (0x004D1,0x004D1), `Abs (0x004D1);
+  (0x004D3,0x004D3), `Abs (0x004D3);
+  (0x004D5,0x004D5), `Abs (0x004D5);
+  (0x004D7,0x004D7), `Abs (0x004D7);
+  (0x004D9,0x004D9), `Abs (0x004D9);
+  (0x004DB,0x004DB), `Abs (0x004DB);
+  (0x004DD,0x004DD), `Abs (0x004DD);
+  (0x004DF,0x004DF), `Abs (0x004DF);
+  (0x004E1,0x004E1), `Abs (0x004E1);
+  (0x004E3,0x004E3), `Abs (0x004E3);
+  (0x004E5,0x004E5), `Abs (0x004E5);
+  (0x004E7,0x004E7), `Abs (0x004E7);
+  (0x004E9,0x004E9), `Abs (0x004E9);
+  (0x004EB,0x004EB), `Abs (0x004EB);
+  (0x004ED,0x004ED), `Abs (0x004ED);
+  (0x004EF,0x004EF), `Abs (0x004EF);
+  (0x004F1,0x004F1), `Abs (0x004F1);
+  (0x004F3,0x004F3), `Abs (0x004F3);
+  (0x004F5,0x004F5), `Abs (0x004F5);
+  (0x004F7,0x004F7), `Abs (0x004F7);
+  (0x004F9,0x004F9), `Abs (0x004F9);
+  (0x004FB,0x004FB), `Abs (0x004FB);
+  (0x004FD,0x004FD), `Abs (0x004FD);
+  (0x004FF,0x004FF), `Abs (0x004FF);
+  (0x00501,0x00501), `Abs (0x00501);
+  (0x00503,0x00503), `Abs (0x00503);
+  (0x00505,0x00505), `Abs (0x00505);
+  (0x00507,0x00507), `Abs (0x00507);
+  (0x00509,0x00509), `Abs (0x00509);
+  (0x0050B,0x0050B), `Abs (0x0050B);
+  (0x0050D,0x0050D), `Abs (0x0050D);
+  (0x0050F,0x0050F), `Abs (0x0050F);
+  (0x00511,0x00511), `Abs (0x00511);
+  (0x00513,0x00513), `Abs (0x00513);
+  (0x00515,0x00515), `Abs (0x00515);
+  (0x00517,0x00517), `Abs (0x00517);
+  (0x00519,0x00519), `Abs (0x00519);
+  (0x0051B,0x0051B), `Abs (0x0051B);
+  (0x0051D,0x0051D), `Abs (0x0051D);
+  (0x0051F,0x0051F), `Abs (0x0051F);
+  (0x00521,0x00521), `Abs (0x00521);
+  (0x00523,0x00523), `Abs (0x00523);
+  (0x00525,0x00525), `Abs (0x00525);
+  (0x00527,0x00527), `Abs (0x00527);
+  (0x00529,0x00529), `Abs (0x00529);
+  (0x0052B,0x0052B), `Abs (0x0052B);
+  (0x0052D,0x0052D), `Abs (0x0052D);
+  (0x0052F,0x0052F), `Abs (0x0052F);
+  (0x00561,0x00587), `Delta (0);
+  (0x013F8,0x013FD), `Delta (0);
+  (0x01C80,0x01C88), `Delta (0);
+  (0x01D00,0x01D2B), `Delta (0);
+  (0x01D6B,0x01D77), `Delta (0);
+  (0x01D79,0x01D9A), `Delta (0);
+  (0x01E01,0x01E01), `Abs (0x01E01);
+  (0x01E03,0x01E03), `Abs (0x01E03);
+  (0x01E05,0x01E05), `Abs (0x01E05);
+  (0x01E07,0x01E07), `Abs (0x01E07);
+  (0x01E09,0x01E09), `Abs (0x01E09);
+  (0x01E0B,0x01E0B), `Abs (0x01E0B);
+  (0x01E0D,0x01E0D), `Abs (0x01E0D);
+  (0x01E0F,0x01E0F), `Abs (0x01E0F);
+  (0x01E11,0x01E11), `Abs (0x01E11);
+  (0x01E13,0x01E13), `Abs (0x01E13);
+  (0x01E15,0x01E15), `Abs (0x01E15);
+  (0x01E17,0x01E17), `Abs (0x01E17);
+  (0x01E19,0x01E19), `Abs (0x01E19);
+  (0x01E1B,0x01E1B), `Abs (0x01E1B);
+  (0x01E1D,0x01E1D), `Abs (0x01E1D);
+  (0x01E1F,0x01E1F), `Abs (0x01E1F);
+  (0x01E21,0x01E21), `Abs (0x01E21);
+  (0x01E23,0x01E23), `Abs (0x01E23);
+  (0x01E25,0x01E25), `Abs (0x01E25);
+  (0x01E27,0x01E27), `Abs (0x01E27);
+  (0x01E29,0x01E29), `Abs (0x01E29);
+  (0x01E2B,0x01E2B), `Abs (0x01E2B);
+  (0x01E2D,0x01E2D), `Abs (0x01E2D);
+  (0x01E2F,0x01E2F), `Abs (0x01E2F);
+  (0x01E31,0x01E31), `Abs (0x01E31);
+  (0x01E33,0x01E33), `Abs (0x01E33);
+  (0x01E35,0x01E35), `Abs (0x01E35);
+  (0x01E37,0x01E37), `Abs (0x01E37);
+  (0x01E39,0x01E39), `Abs (0x01E39);
+  (0x01E3B,0x01E3B), `Abs (0x01E3B);
+  (0x01E3D,0x01E3D), `Abs (0x01E3D);
+  (0x01E3F,0x01E3F), `Abs (0x01E3F);
+  (0x01E41,0x01E41), `Abs (0x01E41);
+  (0x01E43,0x01E43), `Abs (0x01E43);
+  (0x01E45,0x01E45), `Abs (0x01E45);
+  (0x01E47,0x01E47), `Abs (0x01E47);
+  (0x01E49,0x01E49), `Abs (0x01E49);
+  (0x01E4B,0x01E4B), `Abs (0x01E4B);
+  (0x01E4D,0x01E4D), `Abs (0x01E4D);
+  (0x01E4F,0x01E4F), `Abs (0x01E4F);
+  (0x01E51,0x01E51), `Abs (0x01E51);
+  (0x01E53,0x01E53), `Abs (0x01E53);
+  (0x01E55,0x01E55), `Abs (0x01E55);
+  (0x01E57,0x01E57), `Abs (0x01E57);
+  (0x01E59,0x01E59), `Abs (0x01E59);
+  (0x01E5B,0x01E5B), `Abs (0x01E5B);
+  (0x01E5D,0x01E5D), `Abs (0x01E5D);
+  (0x01E5F,0x01E5F), `Abs (0x01E5F);
+  (0x01E61,0x01E61), `Abs (0x01E61);
+  (0x01E63,0x01E63), `Abs (0x01E63);
+  (0x01E65,0x01E65), `Abs (0x01E65);
+  (0x01E67,0x01E67), `Abs (0x01E67);
+  (0x01E69,0x01E69), `Abs (0x01E69);
+  (0x01E6B,0x01E6B), `Abs (0x01E6B);
+  (0x01E6D,0x01E6D), `Abs (0x01E6D);
+  (0x01E6F,0x01E6F), `Abs (0x01E6F);
+  (0x01E71,0x01E71), `Abs (0x01E71);
+  (0x01E73,0x01E73), `Abs (0x01E73);
+  (0x01E75,0x01E75), `Abs (0x01E75);
+  (0x01E77,0x01E77), `Abs (0x01E77);
+  (0x01E79,0x01E79), `Abs (0x01E79);
+  (0x01E7B,0x01E7B), `Abs (0x01E7B);
+  (0x01E7D,0x01E7D), `Abs (0x01E7D);
+  (0x01E7F,0x01E7F), `Abs (0x01E7F);
+  (0x01E81,0x01E81), `Abs (0x01E81);
+  (0x01E83,0x01E83), `Abs (0x01E83);
+  (0x01E85,0x01E85), `Abs (0x01E85);
+  (0x01E87,0x01E87), `Abs (0x01E87);
+  (0x01E89,0x01E89), `Abs (0x01E89);
+  (0x01E8B,0x01E8B), `Abs (0x01E8B);
+  (0x01E8D,0x01E8D), `Abs (0x01E8D);
+  (0x01E8F,0x01E8F), `Abs (0x01E8F);
+  (0x01E91,0x01E91), `Abs (0x01E91);
+  (0x01E93,0x01E93), `Abs (0x01E93);
+  (0x01E95,0x01E9D), `Delta (0);
+  (0x01E9F,0x01E9F), `Abs (0x01E9F);
+  (0x01EA1,0x01EA1), `Abs (0x01EA1);
+  (0x01EA3,0x01EA3), `Abs (0x01EA3);
+  (0x01EA5,0x01EA5), `Abs (0x01EA5);
+  (0x01EA7,0x01EA7), `Abs (0x01EA7);
+  (0x01EA9,0x01EA9), `Abs (0x01EA9);
+  (0x01EAB,0x01EAB), `Abs (0x01EAB);
+  (0x01EAD,0x01EAD), `Abs (0x01EAD);
+  (0x01EAF,0x01EAF), `Abs (0x01EAF);
+  (0x01EB1,0x01EB1), `Abs (0x01EB1);
+  (0x01EB3,0x01EB3), `Abs (0x01EB3);
+  (0x01EB5,0x01EB5), `Abs (0x01EB5);
+  (0x01EB7,0x01EB7), `Abs (0x01EB7);
+  (0x01EB9,0x01EB9), `Abs (0x01EB9);
+  (0x01EBB,0x01EBB), `Abs (0x01EBB);
+  (0x01EBD,0x01EBD), `Abs (0x01EBD);
+  (0x01EBF,0x01EBF), `Abs (0x01EBF);
+  (0x01EC1,0x01EC1), `Abs (0x01EC1);
+  (0x01EC3,0x01EC3), `Abs (0x01EC3);
+  (0x01EC5,0x01EC5), `Abs (0x01EC5);
+  (0x01EC7,0x01EC7), `Abs (0x01EC7);
+  (0x01EC9,0x01EC9), `Abs (0x01EC9);
+  (0x01ECB,0x01ECB), `Abs (0x01ECB);
+  (0x01ECD,0x01ECD), `Abs (0x01ECD);
+  (0x01ECF,0x01ECF), `Abs (0x01ECF);
+  (0x01ED1,0x01ED1), `Abs (0x01ED1);
+  (0x01ED3,0x01ED3), `Abs (0x01ED3);
+  (0x01ED5,0x01ED5), `Abs (0x01ED5);
+  (0x01ED7,0x01ED7), `Abs (0x01ED7);
+  (0x01ED9,0x01ED9), `Abs (0x01ED9);
+  (0x01EDB,0x01EDB), `Abs (0x01EDB);
+  (0x01EDD,0x01EDD), `Abs (0x01EDD);
+  (0x01EDF,0x01EDF), `Abs (0x01EDF);
+  (0x01EE1,0x01EE1), `Abs (0x01EE1);
+  (0x01EE3,0x01EE3), `Abs (0x01EE3);
+  (0x01EE5,0x01EE5), `Abs (0x01EE5);
+  (0x01EE7,0x01EE7), `Abs (0x01EE7);
+  (0x01EE9,0x01EE9), `Abs (0x01EE9);
+  (0x01EEB,0x01EEB), `Abs (0x01EEB);
+  (0x01EED,0x01EED), `Abs (0x01EED);
+  (0x01EEF,0x01EEF), `Abs (0x01EEF);
+  (0x01EF1,0x01EF1), `Abs (0x01EF1);
+  (0x01EF3,0x01EF3), `Abs (0x01EF3);
+  (0x01EF5,0x01EF5), `Abs (0x01EF5);
+  (0x01EF7,0x01EF7), `Abs (0x01EF7);
+  (0x01EF9,0x01EF9), `Abs (0x01EF9);
+  (0x01EFB,0x01EFB), `Abs (0x01EFB);
+  (0x01EFD,0x01EFD), `Abs (0x01EFD);
+  (0x01EFF,0x01F07), `Delta (0);
+  (0x01F10,0x01F15), `Delta (0);
+  (0x01F20,0x01F27), `Delta (0);
+  (0x01F30,0x01F37), `Delta (0);
+  (0x01F40,0x01F45), `Delta (0);
+  (0x01F50,0x01F57), `Delta (0);
+  (0x01F60,0x01F67), `Delta (0);
+  (0x01F70,0x01F7D), `Delta (0);
+  (0x01F80,0x01F87), `Delta (0);
+  (0x01F90,0x01F97), `Delta (0);
+  (0x01FA0,0x01FA7), `Delta (0);
+  (0x01FB0,0x01FB4), `Delta (0);
+  (0x01FB6,0x01FB7), `Delta (0);
+  (0x01FBE,0x01FBE), `Abs (0x01FBE);
+  (0x01FC2,0x01FC4), `Delta (0);
+  (0x01FC6,0x01FC7), `Delta (0);
+  (0x01FD0,0x01FD3), `Delta (0);
+  (0x01FD6,0x01FD7), `Delta (0);
+  (0x01FE0,0x01FE7), `Delta (0);
+  (0x01FF2,0x01FF4), `Delta (0);
+  (0x01FF6,0x01FF7), `Delta (0);
+  (0x0210A,0x0210A), `Abs (0x0210A);
+  (0x0210E,0x0210F), `Delta (0);
+  (0x02113,0x02113), `Abs (0x02113);
+  (0x0212F,0x0212F), `Abs (0x0212F);
+  (0x02134,0x02134), `Abs (0x02134);
+  (0x02139,0x02139), `Abs (0x02139);
+  (0x0213C,0x0213D), `Delta (0);
+  (0x02146,0x02149), `Delta (0);
+  (0x0214E,0x0214E), `Abs (0x0214E);
+  (0x02184,0x02184), `Abs (0x02184);
+  (0x02C30,0x02C5E), `Delta (0);
+  (0x02C61,0x02C61), `Abs (0x02C61);
+  (0x02C65,0x02C66), `Delta (0);
+  (0x02C68,0x02C68), `Abs (0x02C68);
+  (0x02C6A,0x02C6A), `Abs (0x02C6A);
+  (0x02C6C,0x02C6C), `Abs (0x02C6C);
+  (0x02C71,0x02C71), `Abs (0x02C71);
+  (0x02C73,0x02C74), `Delta (0);
+  (0x02C76,0x02C7B), `Delta (0);
+  (0x02C81,0x02C81), `Abs (0x02C81);
+  (0x02C83,0x02C83), `Abs (0x02C83);
+  (0x02C85,0x02C85), `Abs (0x02C85);
+  (0x02C87,0x02C87), `Abs (0x02C87);
+  (0x02C89,0x02C89), `Abs (0x02C89);
+  (0x02C8B,0x02C8B), `Abs (0x02C8B);
+  (0x02C8D,0x02C8D), `Abs (0x02C8D);
+  (0x02C8F,0x02C8F), `Abs (0x02C8F);
+  (0x02C91,0x02C91), `Abs (0x02C91);
+  (0x02C93,0x02C93), `Abs (0x02C93);
+  (0x02C95,0x02C95), `Abs (0x02C95);
+  (0x02C97,0x02C97), `Abs (0x02C97);
+  (0x02C99,0x02C99), `Abs (0x02C99);
+  (0x02C9B,0x02C9B), `Abs (0x02C9B);
+  (0x02C9D,0x02C9D), `Abs (0x02C9D);
+  (0x02C9F,0x02C9F), `Abs (0x02C9F);
+  (0x02CA1,0x02CA1), `Abs (0x02CA1);
+  (0x02CA3,0x02CA3), `Abs (0x02CA3);
+  (0x02CA5,0x02CA5), `Abs (0x02CA5);
+  (0x02CA7,0x02CA7), `Abs (0x02CA7);
+  (0x02CA9,0x02CA9), `Abs (0x02CA9);
+  (0x02CAB,0x02CAB), `Abs (0x02CAB);
+  (0x02CAD,0x02CAD), `Abs (0x02CAD);
+  (0x02CAF,0x02CAF), `Abs (0x02CAF);
+  (0x02CB1,0x02CB1), `Abs (0x02CB1);
+  (0x02CB3,0x02CB3), `Abs (0x02CB3);
+  (0x02CB5,0x02CB5), `Abs (0x02CB5);
+  (0x02CB7,0x02CB7), `Abs (0x02CB7);
+  (0x02CB9,0x02CB9), `Abs (0x02CB9);
+  (0x02CBB,0x02CBB), `Abs (0x02CBB);
+  (0x02CBD,0x02CBD), `Abs (0x02CBD);
+  (0x02CBF,0x02CBF), `Abs (0x02CBF);
+  (0x02CC1,0x02CC1), `Abs (0x02CC1);
+  (0x02CC3,0x02CC3), `Abs (0x02CC3);
+  (0x02CC5,0x02CC5), `Abs (0x02CC5);
+  (0x02CC7,0x02CC7), `Abs (0x02CC7);
+  (0x02CC9,0x02CC9), `Abs (0x02CC9);
+  (0x02CCB,0x02CCB), `Abs (0x02CCB);
+  (0x02CCD,0x02CCD), `Abs (0x02CCD);
+  (0x02CCF,0x02CCF), `Abs (0x02CCF);
+  (0x02CD1,0x02CD1), `Abs (0x02CD1);
+  (0x02CD3,0x02CD3), `Abs (0x02CD3);
+  (0x02CD5,0x02CD5), `Abs (0x02CD5);
+  (0x02CD7,0x02CD7), `Abs (0x02CD7);
+  (0x02CD9,0x02CD9), `Abs (0x02CD9);
+  (0x02CDB,0x02CDB), `Abs (0x02CDB);
+  (0x02CDD,0x02CDD), `Abs (0x02CDD);
+  (0x02CDF,0x02CDF), `Abs (0x02CDF);
+  (0x02CE1,0x02CE1), `Abs (0x02CE1);
+  (0x02CE3,0x02CE4), `Delta (0);
+  (0x02CEC,0x02CEC), `Abs (0x02CEC);
+  (0x02CEE,0x02CEE), `Abs (0x02CEE);
+  (0x02CF3,0x02CF3), `Abs (0x02CF3);
+  (0x02D00,0x02D25), `Delta (0);
+  (0x02D27,0x02D27), `Abs (0x02D27);
+  (0x02D2D,0x02D2D), `Abs (0x02D2D);
+  (0x0A641,0x0A641), `Abs (0x0A641);
+  (0x0A643,0x0A643), `Abs (0x0A643);
+  (0x0A645,0x0A645), `Abs (0x0A645);
+  (0x0A647,0x0A647), `Abs (0x0A647);
+  (0x0A649,0x0A649), `Abs (0x0A649);
+  (0x0A64B,0x0A64B), `Abs (0x0A64B);
+  (0x0A64D,0x0A64D), `Abs (0x0A64D);
+  (0x0A64F,0x0A64F), `Abs (0x0A64F);
+  (0x0A651,0x0A651), `Abs (0x0A651);
+  (0x0A653,0x0A653), `Abs (0x0A653);
+  (0x0A655,0x0A655), `Abs (0x0A655);
+  (0x0A657,0x0A657), `Abs (0x0A657);
+  (0x0A659,0x0A659), `Abs (0x0A659);
+  (0x0A65B,0x0A65B), `Abs (0x0A65B);
+  (0x0A65D,0x0A65D), `Abs (0x0A65D);
+  (0x0A65F,0x0A65F), `Abs (0x0A65F);
+  (0x0A661,0x0A661), `Abs (0x0A661);
+  (0x0A663,0x0A663), `Abs (0x0A663);
+  (0x0A665,0x0A665), `Abs (0x0A665);
+  (0x0A667,0x0A667), `Abs (0x0A667);
+  (0x0A669,0x0A669), `Abs (0x0A669);
+  (0x0A66B,0x0A66B), `Abs (0x0A66B);
+  (0x0A66D,0x0A66D), `Abs (0x0A66D);
+  (0x0A681,0x0A681), `Abs (0x0A681);
+  (0x0A683,0x0A683), `Abs (0x0A683);
+  (0x0A685,0x0A685), `Abs (0x0A685);
+  (0x0A687,0x0A687), `Abs (0x0A687);
+  (0x0A689,0x0A689), `Abs (0x0A689);
+  (0x0A68B,0x0A68B), `Abs (0x0A68B);
+  (0x0A68D,0x0A68D), `Abs (0x0A68D);
+  (0x0A68F,0x0A68F), `Abs (0x0A68F);
+  (0x0A691,0x0A691), `Abs (0x0A691);
+  (0x0A693,0x0A693), `Abs (0x0A693);
+  (0x0A695,0x0A695), `Abs (0x0A695);
+  (0x0A697,0x0A697), `Abs (0x0A697);
+  (0x0A699,0x0A699), `Abs (0x0A699);
+  (0x0A69B,0x0A69B), `Abs (0x0A69B);
+  (0x0A723,0x0A723), `Abs (0x0A723);
+  (0x0A725,0x0A725), `Abs (0x0A725);
+  (0x0A727,0x0A727), `Abs (0x0A727);
+  (0x0A729,0x0A729), `Abs (0x0A729);
+  (0x0A72B,0x0A72B), `Abs (0x0A72B);
+  (0x0A72D,0x0A72D), `Abs (0x0A72D);
+  (0x0A72F,0x0A731), `Delta (0);
+  (0x0A733,0x0A733), `Abs (0x0A733);
+  (0x0A735,0x0A735), `Abs (0x0A735);
+  (0x0A737,0x0A737), `Abs (0x0A737);
+  (0x0A739,0x0A739), `Abs (0x0A739);
+  (0x0A73B,0x0A73B), `Abs (0x0A73B);
+  (0x0A73D,0x0A73D), `Abs (0x0A73D);
+  (0x0A73F,0x0A73F), `Abs (0x0A73F);
+  (0x0A741,0x0A741), `Abs (0x0A741);
+  (0x0A743,0x0A743), `Abs (0x0A743);
+  (0x0A745,0x0A745), `Abs (0x0A745);
+  (0x0A747,0x0A747), `Abs (0x0A747);
+  (0x0A749,0x0A749), `Abs (0x0A749);
+  (0x0A74B,0x0A74B), `Abs (0x0A74B);
+  (0x0A74D,0x0A74D), `Abs (0x0A74D);
+  (0x0A74F,0x0A74F), `Abs (0x0A74F);
+  (0x0A751,0x0A751), `Abs (0x0A751);
+  (0x0A753,0x0A753), `Abs (0x0A753);
+  (0x0A755,0x0A755), `Abs (0x0A755);
+  (0x0A757,0x0A757), `Abs (0x0A757);
+  (0x0A759,0x0A759), `Abs (0x0A759);
+  (0x0A75B,0x0A75B), `Abs (0x0A75B);
+  (0x0A75D,0x0A75D), `Abs (0x0A75D);
+  (0x0A75F,0x0A75F), `Abs (0x0A75F);
+  (0x0A761,0x0A761), `Abs (0x0A761);
+  (0x0A763,0x0A763), `Abs (0x0A763);
+  (0x0A765,0x0A765), `Abs (0x0A765);
+  (0x0A767,0x0A767), `Abs (0x0A767);
+  (0x0A769,0x0A769), `Abs (0x0A769);
+  (0x0A76B,0x0A76B), `Abs (0x0A76B);
+  (0x0A76D,0x0A76D), `Abs (0x0A76D);
+  (0x0A76F,0x0A76F), `Abs (0x0A76F);
+  (0x0A771,0x0A778), `Delta (0);
+  (0x0A77A,0x0A77A), `Abs (0x0A77A);
+  (0x0A77C,0x0A77C), `Abs (0x0A77C);
+  (0x0A77F,0x0A77F), `Abs (0x0A77F);
+  (0x0A781,0x0A781), `Abs (0x0A781);
+  (0x0A783,0x0A783), `Abs (0x0A783);
+  (0x0A785,0x0A785), `Abs (0x0A785);
+  (0x0A787,0x0A787), `Abs (0x0A787);
+  (0x0A78C,0x0A78C), `Abs (0x0A78C);
+  (0x0A78E,0x0A78E), `Abs (0x0A78E);
+  (0x0A791,0x0A791), `Abs (0x0A791);
+  (0x0A793,0x0A795), `Delta (0);
+  (0x0A797,0x0A797), `Abs (0x0A797);
+  (0x0A799,0x0A799), `Abs (0x0A799);
+  (0x0A79B,0x0A79B), `Abs (0x0A79B);
+  (0x0A79D,0x0A79D), `Abs (0x0A79D);
+  (0x0A79F,0x0A79F), `Abs (0x0A79F);
+  (0x0A7A1,0x0A7A1), `Abs (0x0A7A1);
+  (0x0A7A3,0x0A7A3), `Abs (0x0A7A3);
+  (0x0A7A5,0x0A7A5), `Abs (0x0A7A5);
+  (0x0A7A7,0x0A7A7), `Abs (0x0A7A7);
+  (0x0A7A9,0x0A7A9), `Abs (0x0A7A9);
+  (0x0A7B5,0x0A7B5), `Abs (0x0A7B5);
+  (0x0A7B7,0x0A7B7), `Abs (0x0A7B7);
+  (0x0A7FA,0x0A7FA), `Abs (0x0A7FA);
+  (0x0AB30,0x0AB5A), `Delta (0);
+  (0x0AB60,0x0AB65), `Delta (0);
+  (0x0AB70,0x0ABBF), `Delta (0);
+  (0x0FB00,0x0FB06), `Delta (0);
+  (0x0FB13,0x0FB17), `Delta (0);
+  (0x0FF41,0x0FF5A), `Delta (0);
+  (0x10428,0x1044F), `Delta (0);
+  (0x104D8,0x104FB), `Delta (0);
+  (0x10CC0,0x10CF2), `Delta (0);
+  (0x118C0,0x118DF), `Delta (0);
+  (0x1D41A,0x1D433), `Delta (0);
+  (0x1D44E,0x1D454), `Delta (0);
+  (0x1D456,0x1D467), `Delta (0);
+  (0x1D482,0x1D49B), `Delta (0);
+  (0x1D4B6,0x1D4B9), `Delta (0);
+  (0x1D4BB,0x1D4BB), `Abs (0x1D4BB);
+  (0x1D4BD,0x1D4C3), `Delta (0);
+  (0x1D4C5,0x1D4CF), `Delta (0);
+  (0x1D4EA,0x1D503), `Delta (0);
+  (0x1D51E,0x1D537), `Delta (0);
+  (0x1D552,0x1D56B), `Delta (0);
+  (0x1D586,0x1D59F), `Delta (0);
+  (0x1D5BA,0x1D5D3), `Delta (0);
+  (0x1D5EE,0x1D607), `Delta (0);
+  (0x1D622,0x1D63B), `Delta (0);
+  (0x1D656,0x1D66F), `Delta (0);
+  (0x1D68A,0x1D6A5), `Delta (0);
+  (0x1D6C2,0x1D6DA), `Delta (0);
+  (0x1D6DC,0x1D6E1), `Delta (0);
+  (0x1D6FC,0x1D714), `Delta (0);
+  (0x1D716,0x1D71B), `Delta (0);
+  (0x1D736,0x1D74E), `Delta (0);
+  (0x1D750,0x1D755), `Delta (0);
+  (0x1D770,0x1D788), `Delta (0);
+  (0x1D78A,0x1D78F), `Delta (0);
+  (0x1D7AA,0x1D7C2), `Delta (0);
+  (0x1D7C4,0x1D7C9), `Delta (0);
+  (0x1D7CB,0x1D7CB), `Abs (0x1D7CB);
+  (0x1E922,0x1E943), `Delta (0);
   (0x001C5,0x001C5), `Abs (0x001C6);
   (0x001C8,0x001C8), `Abs (0x001C9);
   (0x001CB,0x001CB), `Abs (0x001CC);
@@ -2614,6 +5040,2388 @@ let to_lower = [
   (0x01FBC,0x01FBC), `Abs (0x01FB3);
   (0x01FCC,0x01FCC), `Abs (0x01FC3);
   (0x01FFC,0x01FFC), `Abs (0x01FF3);
-  (0x02160,0x0216F), `Delta (16)
-]
-
+  (0x00300,0x0036F), `Delta (0);
+  (0x00483,0x00487), `Delta (0);
+  (0x00591,0x005BD), `Delta (0);
+  (0x005BF,0x005BF), `Abs (0x005BF);
+  (0x005C1,0x005C2), `Delta (0);
+  (0x005C4,0x005C5), `Delta (0);
+  (0x005C7,0x005C7), `Abs (0x005C7);
+  (0x00610,0x0061A), `Delta (0);
+  (0x0064B,0x0065F), `Delta (0);
+  (0x00670,0x00670), `Abs (0x00670);
+  (0x006D6,0x006DC), `Delta (0);
+  (0x006DF,0x006E4), `Delta (0);
+  (0x006E7,0x006E8), `Delta (0);
+  (0x006EA,0x006ED), `Delta (0);
+  (0x00711,0x00711), `Abs (0x00711);
+  (0x00730,0x0074A), `Delta (0);
+  (0x007A6,0x007B0), `Delta (0);
+  (0x007EB,0x007F3), `Delta (0);
+  (0x00816,0x00819), `Delta (0);
+  (0x0081B,0x00823), `Delta (0);
+  (0x00825,0x00827), `Delta (0);
+  (0x00829,0x0082D), `Delta (0);
+  (0x00859,0x0085B), `Delta (0);
+  (0x008D4,0x008E1), `Delta (0);
+  (0x008E3,0x00902), `Delta (0);
+  (0x0093A,0x0093A), `Abs (0x0093A);
+  (0x0093C,0x0093C), `Abs (0x0093C);
+  (0x00941,0x00948), `Delta (0);
+  (0x0094D,0x0094D), `Abs (0x0094D);
+  (0x00951,0x00957), `Delta (0);
+  (0x00962,0x00963), `Delta (0);
+  (0x00981,0x00981), `Abs (0x00981);
+  (0x009BC,0x009BC), `Abs (0x009BC);
+  (0x009C1,0x009C4), `Delta (0);
+  (0x009CD,0x009CD), `Abs (0x009CD);
+  (0x009E2,0x009E3), `Delta (0);
+  (0x00A01,0x00A02), `Delta (0);
+  (0x00A3C,0x00A3C), `Abs (0x00A3C);
+  (0x00A41,0x00A42), `Delta (0);
+  (0x00A47,0x00A48), `Delta (0);
+  (0x00A4B,0x00A4D), `Delta (0);
+  (0x00A51,0x00A51), `Abs (0x00A51);
+  (0x00A70,0x00A71), `Delta (0);
+  (0x00A75,0x00A75), `Abs (0x00A75);
+  (0x00A81,0x00A82), `Delta (0);
+  (0x00ABC,0x00ABC), `Abs (0x00ABC);
+  (0x00AC1,0x00AC5), `Delta (0);
+  (0x00AC7,0x00AC8), `Delta (0);
+  (0x00ACD,0x00ACD), `Abs (0x00ACD);
+  (0x00AE2,0x00AE3), `Delta (0);
+  (0x00B01,0x00B01), `Abs (0x00B01);
+  (0x00B3C,0x00B3C), `Abs (0x00B3C);
+  (0x00B3F,0x00B3F), `Abs (0x00B3F);
+  (0x00B41,0x00B44), `Delta (0);
+  (0x00B4D,0x00B4D), `Abs (0x00B4D);
+  (0x00B56,0x00B56), `Abs (0x00B56);
+  (0x00B62,0x00B63), `Delta (0);
+  (0x00B82,0x00B82), `Abs (0x00B82);
+  (0x00BC0,0x00BC0), `Abs (0x00BC0);
+  (0x00BCD,0x00BCD), `Abs (0x00BCD);
+  (0x00C00,0x00C00), `Abs (0x00C00);
+  (0x00C3E,0x00C40), `Delta (0);
+  (0x00C46,0x00C48), `Delta (0);
+  (0x00C4A,0x00C4D), `Delta (0);
+  (0x00C55,0x00C56), `Delta (0);
+  (0x00C62,0x00C63), `Delta (0);
+  (0x00C81,0x00C81), `Abs (0x00C81);
+  (0x00CBC,0x00CBC), `Abs (0x00CBC);
+  (0x00CBF,0x00CBF), `Abs (0x00CBF);
+  (0x00CC6,0x00CC6), `Abs (0x00CC6);
+  (0x00CCC,0x00CCD), `Delta (0);
+  (0x00CE2,0x00CE3), `Delta (0);
+  (0x00D01,0x00D01), `Abs (0x00D01);
+  (0x00D41,0x00D44), `Delta (0);
+  (0x00D4D,0x00D4D), `Abs (0x00D4D);
+  (0x00D62,0x00D63), `Delta (0);
+  (0x00DCA,0x00DCA), `Abs (0x00DCA);
+  (0x00DD2,0x00DD4), `Delta (0);
+  (0x00DD6,0x00DD6), `Abs (0x00DD6);
+  (0x00E31,0x00E31), `Abs (0x00E31);
+  (0x00E34,0x00E3A), `Delta (0);
+  (0x00E47,0x00E4E), `Delta (0);
+  (0x00EB1,0x00EB1), `Abs (0x00EB1);
+  (0x00EB4,0x00EB9), `Delta (0);
+  (0x00EBB,0x00EBC), `Delta (0);
+  (0x00EC8,0x00ECD), `Delta (0);
+  (0x00F18,0x00F19), `Delta (0);
+  (0x00F35,0x00F35), `Abs (0x00F35);
+  (0x00F37,0x00F37), `Abs (0x00F37);
+  (0x00F39,0x00F39), `Abs (0x00F39);
+  (0x00F71,0x00F7E), `Delta (0);
+  (0x00F80,0x00F84), `Delta (0);
+  (0x00F86,0x00F87), `Delta (0);
+  (0x00F8D,0x00F97), `Delta (0);
+  (0x00F99,0x00FBC), `Delta (0);
+  (0x00FC6,0x00FC6), `Abs (0x00FC6);
+  (0x0102D,0x01030), `Delta (0);
+  (0x01032,0x01037), `Delta (0);
+  (0x01039,0x0103A), `Delta (0);
+  (0x0103D,0x0103E), `Delta (0);
+  (0x01058,0x01059), `Delta (0);
+  (0x0105E,0x01060), `Delta (0);
+  (0x01071,0x01074), `Delta (0);
+  (0x01082,0x01082), `Abs (0x01082);
+  (0x01085,0x01086), `Delta (0);
+  (0x0108D,0x0108D), `Abs (0x0108D);
+  (0x0109D,0x0109D), `Abs (0x0109D);
+  (0x0135D,0x0135F), `Delta (0);
+  (0x01712,0x01714), `Delta (0);
+  (0x01732,0x01734), `Delta (0);
+  (0x01752,0x01753), `Delta (0);
+  (0x01772,0x01773), `Delta (0);
+  (0x017B4,0x017B5), `Delta (0);
+  (0x017B7,0x017BD), `Delta (0);
+  (0x017C6,0x017C6), `Abs (0x017C6);
+  (0x017C9,0x017D3), `Delta (0);
+  (0x017DD,0x017DD), `Abs (0x017DD);
+  (0x0180B,0x0180D), `Delta (0);
+  (0x01885,0x01886), `Delta (0);
+  (0x018A9,0x018A9), `Abs (0x018A9);
+  (0x01920,0x01922), `Delta (0);
+  (0x01927,0x01928), `Delta (0);
+  (0x01932,0x01932), `Abs (0x01932);
+  (0x01939,0x0193B), `Delta (0);
+  (0x01A17,0x01A18), `Delta (0);
+  (0x01A1B,0x01A1B), `Abs (0x01A1B);
+  (0x01A56,0x01A56), `Abs (0x01A56);
+  (0x01A58,0x01A5E), `Delta (0);
+  (0x01A60,0x01A60), `Abs (0x01A60);
+  (0x01A62,0x01A62), `Abs (0x01A62);
+  (0x01A65,0x01A6C), `Delta (0);
+  (0x01A73,0x01A7C), `Delta (0);
+  (0x01A7F,0x01A7F), `Abs (0x01A7F);
+  (0x01AB0,0x01ABD), `Delta (0);
+  (0x01B00,0x01B03), `Delta (0);
+  (0x01B34,0x01B34), `Abs (0x01B34);
+  (0x01B36,0x01B3A), `Delta (0);
+  (0x01B3C,0x01B3C), `Abs (0x01B3C);
+  (0x01B42,0x01B42), `Abs (0x01B42);
+  (0x01B6B,0x01B73), `Delta (0);
+  (0x01B80,0x01B81), `Delta (0);
+  (0x01BA2,0x01BA5), `Delta (0);
+  (0x01BA8,0x01BA9), `Delta (0);
+  (0x01BAB,0x01BAD), `Delta (0);
+  (0x01BE6,0x01BE6), `Abs (0x01BE6);
+  (0x01BE8,0x01BE9), `Delta (0);
+  (0x01BED,0x01BED), `Abs (0x01BED);
+  (0x01BEF,0x01BF1), `Delta (0);
+  (0x01C2C,0x01C33), `Delta (0);
+  (0x01C36,0x01C37), `Delta (0);
+  (0x01CD0,0x01CD2), `Delta (0);
+  (0x01CD4,0x01CE0), `Delta (0);
+  (0x01CE2,0x01CE8), `Delta (0);
+  (0x01CED,0x01CED), `Abs (0x01CED);
+  (0x01CF4,0x01CF4), `Abs (0x01CF4);
+  (0x01CF8,0x01CF9), `Delta (0);
+  (0x01DC0,0x01DF5), `Delta (0);
+  (0x01DFB,0x01DFF), `Delta (0);
+  (0x020D0,0x020DC), `Delta (0);
+  (0x020E1,0x020E1), `Abs (0x020E1);
+  (0x020E5,0x020F0), `Delta (0);
+  (0x02CEF,0x02CF1), `Delta (0);
+  (0x02D7F,0x02D7F), `Abs (0x02D7F);
+  (0x02DE0,0x02DFF), `Delta (0);
+  (0x0302A,0x0302D), `Delta (0);
+  (0x03099,0x0309A), `Delta (0);
+  (0x0A66F,0x0A66F), `Abs (0x0A66F);
+  (0x0A674,0x0A67D), `Delta (0);
+  (0x0A69E,0x0A69F), `Delta (0);
+  (0x0A6F0,0x0A6F1), `Delta (0);
+  (0x0A802,0x0A802), `Abs (0x0A802);
+  (0x0A806,0x0A806), `Abs (0x0A806);
+  (0x0A80B,0x0A80B), `Abs (0x0A80B);
+  (0x0A825,0x0A826), `Delta (0);
+  (0x0A8C4,0x0A8C5), `Delta (0);
+  (0x0A8E0,0x0A8F1), `Delta (0);
+  (0x0A926,0x0A92D), `Delta (0);
+  (0x0A947,0x0A951), `Delta (0);
+  (0x0A980,0x0A982), `Delta (0);
+  (0x0A9B3,0x0A9B3), `Abs (0x0A9B3);
+  (0x0A9B6,0x0A9B9), `Delta (0);
+  (0x0A9BC,0x0A9BC), `Abs (0x0A9BC);
+  (0x0A9E5,0x0A9E5), `Abs (0x0A9E5);
+  (0x0AA29,0x0AA2E), `Delta (0);
+  (0x0AA31,0x0AA32), `Delta (0);
+  (0x0AA35,0x0AA36), `Delta (0);
+  (0x0AA43,0x0AA43), `Abs (0x0AA43);
+  (0x0AA4C,0x0AA4C), `Abs (0x0AA4C);
+  (0x0AA7C,0x0AA7C), `Abs (0x0AA7C);
+  (0x0AAB0,0x0AAB0), `Abs (0x0AAB0);
+  (0x0AAB2,0x0AAB4), `Delta (0);
+  (0x0AAB7,0x0AAB8), `Delta (0);
+  (0x0AABE,0x0AABF), `Delta (0);
+  (0x0AAC1,0x0AAC1), `Abs (0x0AAC1);
+  (0x0AAEC,0x0AAED), `Delta (0);
+  (0x0AAF6,0x0AAF6), `Abs (0x0AAF6);
+  (0x0ABE5,0x0ABE5), `Abs (0x0ABE5);
+  (0x0ABE8,0x0ABE8), `Abs (0x0ABE8);
+  (0x0ABED,0x0ABED), `Abs (0x0ABED);
+  (0x0FB1E,0x0FB1E), `Abs (0x0FB1E);
+  (0x0FE00,0x0FE0F), `Delta (0);
+  (0x0FE20,0x0FE2F), `Delta (0);
+  (0x101FD,0x101FD), `Abs (0x101FD);
+  (0x102E0,0x102E0), `Abs (0x102E0);
+  (0x10376,0x1037A), `Delta (0);
+  (0x10A01,0x10A03), `Delta (0);
+  (0x10A05,0x10A06), `Delta (0);
+  (0x10A0C,0x10A0F), `Delta (0);
+  (0x10A38,0x10A3A), `Delta (0);
+  (0x10A3F,0x10A3F), `Abs (0x10A3F);
+  (0x10AE5,0x10AE6), `Delta (0);
+  (0x11001,0x11001), `Abs (0x11001);
+  (0x11038,0x11046), `Delta (0);
+  (0x1107F,0x11081), `Delta (0);
+  (0x110B3,0x110B6), `Delta (0);
+  (0x110B9,0x110BA), `Delta (0);
+  (0x11100,0x11102), `Delta (0);
+  (0x11127,0x1112B), `Delta (0);
+  (0x1112D,0x11134), `Delta (0);
+  (0x11173,0x11173), `Abs (0x11173);
+  (0x11180,0x11181), `Delta (0);
+  (0x111B6,0x111BE), `Delta (0);
+  (0x111CA,0x111CC), `Delta (0);
+  (0x1122F,0x11231), `Delta (0);
+  (0x11234,0x11234), `Abs (0x11234);
+  (0x11236,0x11237), `Delta (0);
+  (0x1123E,0x1123E), `Abs (0x1123E);
+  (0x112DF,0x112DF), `Abs (0x112DF);
+  (0x112E3,0x112EA), `Delta (0);
+  (0x11300,0x11301), `Delta (0);
+  (0x1133C,0x1133C), `Abs (0x1133C);
+  (0x11340,0x11340), `Abs (0x11340);
+  (0x11366,0x1136C), `Delta (0);
+  (0x11370,0x11374), `Delta (0);
+  (0x11438,0x1143F), `Delta (0);
+  (0x11442,0x11444), `Delta (0);
+  (0x11446,0x11446), `Abs (0x11446);
+  (0x114B3,0x114B8), `Delta (0);
+  (0x114BA,0x114BA), `Abs (0x114BA);
+  (0x114BF,0x114C0), `Delta (0);
+  (0x114C2,0x114C3), `Delta (0);
+  (0x115B2,0x115B5), `Delta (0);
+  (0x115BC,0x115BD), `Delta (0);
+  (0x115BF,0x115C0), `Delta (0);
+  (0x115DC,0x115DD), `Delta (0);
+  (0x11633,0x1163A), `Delta (0);
+  (0x1163D,0x1163D), `Abs (0x1163D);
+  (0x1163F,0x11640), `Delta (0);
+  (0x116AB,0x116AB), `Abs (0x116AB);
+  (0x116AD,0x116AD), `Abs (0x116AD);
+  (0x116B0,0x116B5), `Delta (0);
+  (0x116B7,0x116B7), `Abs (0x116B7);
+  (0x1171D,0x1171F), `Delta (0);
+  (0x11722,0x11725), `Delta (0);
+  (0x11727,0x1172B), `Delta (0);
+  (0x11C30,0x11C36), `Delta (0);
+  (0x11C38,0x11C3D), `Delta (0);
+  (0x11C3F,0x11C3F), `Abs (0x11C3F);
+  (0x11C92,0x11CA7), `Delta (0);
+  (0x11CAA,0x11CB0), `Delta (0);
+  (0x11CB2,0x11CB3), `Delta (0);
+  (0x11CB5,0x11CB6), `Delta (0);
+  (0x16AF0,0x16AF4), `Delta (0);
+  (0x16B30,0x16B36), `Delta (0);
+  (0x16F8F,0x16F92), `Delta (0);
+  (0x1BC9D,0x1BC9E), `Delta (0);
+  (0x1D167,0x1D169), `Delta (0);
+  (0x1D17B,0x1D182), `Delta (0);
+  (0x1D185,0x1D18B), `Delta (0);
+  (0x1D1AA,0x1D1AD), `Delta (0);
+  (0x1D242,0x1D244), `Delta (0);
+  (0x1DA00,0x1DA36), `Delta (0);
+  (0x1DA3B,0x1DA6C), `Delta (0);
+  (0x1DA75,0x1DA75), `Abs (0x1DA75);
+  (0x1DA84,0x1DA84), `Abs (0x1DA84);
+  (0x1DA9B,0x1DA9F), `Delta (0);
+  (0x1DAA1,0x1DAAF), `Delta (0);
+  (0x1E000,0x1E006), `Delta (0);
+  (0x1E008,0x1E018), `Delta (0);
+  (0x1E01B,0x1E021), `Delta (0);
+  (0x1E023,0x1E024), `Delta (0);
+  (0x1E026,0x1E02A), `Delta (0);
+  (0x1E8D0,0x1E8D6), `Delta (0);
+  (0x1E944,0x1E94A), `Delta (0);
+  (0xE0100,0xE01EF), `Delta (0);
+  (0x00903,0x00903), `Abs (0x00903);
+  (0x0093B,0x0093B), `Abs (0x0093B);
+  (0x0093E,0x00940), `Delta (0);
+  (0x00949,0x0094C), `Delta (0);
+  (0x0094E,0x0094F), `Delta (0);
+  (0x00982,0x00983), `Delta (0);
+  (0x009BE,0x009C0), `Delta (0);
+  (0x009C7,0x009C8), `Delta (0);
+  (0x009CB,0x009CC), `Delta (0);
+  (0x009D7,0x009D7), `Abs (0x009D7);
+  (0x00A03,0x00A03), `Abs (0x00A03);
+  (0x00A3E,0x00A40), `Delta (0);
+  (0x00A83,0x00A83), `Abs (0x00A83);
+  (0x00ABE,0x00AC0), `Delta (0);
+  (0x00AC9,0x00AC9), `Abs (0x00AC9);
+  (0x00ACB,0x00ACC), `Delta (0);
+  (0x00B02,0x00B03), `Delta (0);
+  (0x00B3E,0x00B3E), `Abs (0x00B3E);
+  (0x00B40,0x00B40), `Abs (0x00B40);
+  (0x00B47,0x00B48), `Delta (0);
+  (0x00B4B,0x00B4C), `Delta (0);
+  (0x00B57,0x00B57), `Abs (0x00B57);
+  (0x00BBE,0x00BBF), `Delta (0);
+  (0x00BC1,0x00BC2), `Delta (0);
+  (0x00BC6,0x00BC8), `Delta (0);
+  (0x00BCA,0x00BCC), `Delta (0);
+  (0x00BD7,0x00BD7), `Abs (0x00BD7);
+  (0x00C01,0x00C03), `Delta (0);
+  (0x00C41,0x00C44), `Delta (0);
+  (0x00C82,0x00C83), `Delta (0);
+  (0x00CBE,0x00CBE), `Abs (0x00CBE);
+  (0x00CC0,0x00CC4), `Delta (0);
+  (0x00CC7,0x00CC8), `Delta (0);
+  (0x00CCA,0x00CCB), `Delta (0);
+  (0x00CD5,0x00CD6), `Delta (0);
+  (0x00D02,0x00D03), `Delta (0);
+  (0x00D3E,0x00D40), `Delta (0);
+  (0x00D46,0x00D48), `Delta (0);
+  (0x00D4A,0x00D4C), `Delta (0);
+  (0x00D57,0x00D57), `Abs (0x00D57);
+  (0x00D82,0x00D83), `Delta (0);
+  (0x00DCF,0x00DD1), `Delta (0);
+  (0x00DD8,0x00DDF), `Delta (0);
+  (0x00DF2,0x00DF3), `Delta (0);
+  (0x00F3E,0x00F3F), `Delta (0);
+  (0x00F7F,0x00F7F), `Abs (0x00F7F);
+  (0x0102B,0x0102C), `Delta (0);
+  (0x01031,0x01031), `Abs (0x01031);
+  (0x01038,0x01038), `Abs (0x01038);
+  (0x0103B,0x0103C), `Delta (0);
+  (0x01056,0x01057), `Delta (0);
+  (0x01062,0x01064), `Delta (0);
+  (0x01067,0x0106D), `Delta (0);
+  (0x01083,0x01084), `Delta (0);
+  (0x01087,0x0108C), `Delta (0);
+  (0x0108F,0x0108F), `Abs (0x0108F);
+  (0x0109A,0x0109C), `Delta (0);
+  (0x017B6,0x017B6), `Abs (0x017B6);
+  (0x017BE,0x017C5), `Delta (0);
+  (0x017C7,0x017C8), `Delta (0);
+  (0x01923,0x01926), `Delta (0);
+  (0x01929,0x0192B), `Delta (0);
+  (0x01930,0x01931), `Delta (0);
+  (0x01933,0x01938), `Delta (0);
+  (0x01A19,0x01A1A), `Delta (0);
+  (0x01A55,0x01A55), `Abs (0x01A55);
+  (0x01A57,0x01A57), `Abs (0x01A57);
+  (0x01A61,0x01A61), `Abs (0x01A61);
+  (0x01A63,0x01A64), `Delta (0);
+  (0x01A6D,0x01A72), `Delta (0);
+  (0x01B04,0x01B04), `Abs (0x01B04);
+  (0x01B35,0x01B35), `Abs (0x01B35);
+  (0x01B3B,0x01B3B), `Abs (0x01B3B);
+  (0x01B3D,0x01B41), `Delta (0);
+  (0x01B43,0x01B44), `Delta (0);
+  (0x01B82,0x01B82), `Abs (0x01B82);
+  (0x01BA1,0x01BA1), `Abs (0x01BA1);
+  (0x01BA6,0x01BA7), `Delta (0);
+  (0x01BAA,0x01BAA), `Abs (0x01BAA);
+  (0x01BE7,0x01BE7), `Abs (0x01BE7);
+  (0x01BEA,0x01BEC), `Delta (0);
+  (0x01BEE,0x01BEE), `Abs (0x01BEE);
+  (0x01BF2,0x01BF3), `Delta (0);
+  (0x01C24,0x01C2B), `Delta (0);
+  (0x01C34,0x01C35), `Delta (0);
+  (0x01CE1,0x01CE1), `Abs (0x01CE1);
+  (0x01CF2,0x01CF3), `Delta (0);
+  (0x0302E,0x0302F), `Delta (0);
+  (0x0A823,0x0A824), `Delta (0);
+  (0x0A827,0x0A827), `Abs (0x0A827);
+  (0x0A880,0x0A881), `Delta (0);
+  (0x0A8B4,0x0A8C3), `Delta (0);
+  (0x0A952,0x0A953), `Delta (0);
+  (0x0A983,0x0A983), `Abs (0x0A983);
+  (0x0A9B4,0x0A9B5), `Delta (0);
+  (0x0A9BA,0x0A9BB), `Delta (0);
+  (0x0A9BD,0x0A9C0), `Delta (0);
+  (0x0AA2F,0x0AA30), `Delta (0);
+  (0x0AA33,0x0AA34), `Delta (0);
+  (0x0AA4D,0x0AA4D), `Abs (0x0AA4D);
+  (0x0AA7B,0x0AA7B), `Abs (0x0AA7B);
+  (0x0AA7D,0x0AA7D), `Abs (0x0AA7D);
+  (0x0AAEB,0x0AAEB), `Abs (0x0AAEB);
+  (0x0AAEE,0x0AAEF), `Delta (0);
+  (0x0AAF5,0x0AAF5), `Abs (0x0AAF5);
+  (0x0ABE3,0x0ABE4), `Delta (0);
+  (0x0ABE6,0x0ABE7), `Delta (0);
+  (0x0ABE9,0x0ABEA), `Delta (0);
+  (0x0ABEC,0x0ABEC), `Abs (0x0ABEC);
+  (0x11000,0x11000), `Abs (0x11000);
+  (0x11002,0x11002), `Abs (0x11002);
+  (0x11082,0x11082), `Abs (0x11082);
+  (0x110B0,0x110B2), `Delta (0);
+  (0x110B7,0x110B8), `Delta (0);
+  (0x1112C,0x1112C), `Abs (0x1112C);
+  (0x11182,0x11182), `Abs (0x11182);
+  (0x111B3,0x111B5), `Delta (0);
+  (0x111BF,0x111C0), `Delta (0);
+  (0x1122C,0x1122E), `Delta (0);
+  (0x11232,0x11233), `Delta (0);
+  (0x11235,0x11235), `Abs (0x11235);
+  (0x112E0,0x112E2), `Delta (0);
+  (0x11302,0x11303), `Delta (0);
+  (0x1133E,0x1133F), `Delta (0);
+  (0x11341,0x11344), `Delta (0);
+  (0x11347,0x11348), `Delta (0);
+  (0x1134B,0x1134D), `Delta (0);
+  (0x11357,0x11357), `Abs (0x11357);
+  (0x11362,0x11363), `Delta (0);
+  (0x11435,0x11437), `Delta (0);
+  (0x11440,0x11441), `Delta (0);
+  (0x11445,0x11445), `Abs (0x11445);
+  (0x114B0,0x114B2), `Delta (0);
+  (0x114B9,0x114B9), `Abs (0x114B9);
+  (0x114BB,0x114BE), `Delta (0);
+  (0x114C1,0x114C1), `Abs (0x114C1);
+  (0x115AF,0x115B1), `Delta (0);
+  (0x115B8,0x115BB), `Delta (0);
+  (0x115BE,0x115BE), `Abs (0x115BE);
+  (0x11630,0x11632), `Delta (0);
+  (0x1163B,0x1163C), `Delta (0);
+  (0x1163E,0x1163E), `Abs (0x1163E);
+  (0x116AC,0x116AC), `Abs (0x116AC);
+  (0x116AE,0x116AF), `Delta (0);
+  (0x116B6,0x116B6), `Abs (0x116B6);
+  (0x11720,0x11721), `Delta (0);
+  (0x11726,0x11726), `Abs (0x11726);
+  (0x11C2F,0x11C2F), `Abs (0x11C2F);
+  (0x11C3E,0x11C3E), `Abs (0x11C3E);
+  (0x11CA9,0x11CA9), `Abs (0x11CA9);
+  (0x11CB1,0x11CB1), `Abs (0x11CB1);
+  (0x11CB4,0x11CB4), `Abs (0x11CB4);
+  (0x16F51,0x16F7E), `Delta (0);
+  (0x1D165,0x1D166), `Delta (0);
+  (0x1D16D,0x1D172), `Delta (0);
+  (0x00488,0x00489), `Delta (0);
+  (0x01ABE,0x01ABE), `Abs (0x01ABE);
+  (0x020DD,0x020E0), `Delta (0);
+  (0x020E2,0x020E4), `Delta (0);
+  (0x0A670,0x0A672), `Delta (0);
+  (0x00030,0x00039), `Delta (0);
+  (0x00660,0x00669), `Delta (0);
+  (0x006F0,0x006F9), `Delta (0);
+  (0x007C0,0x007C9), `Delta (0);
+  (0x00966,0x0096F), `Delta (0);
+  (0x009E6,0x009EF), `Delta (0);
+  (0x00A66,0x00A6F), `Delta (0);
+  (0x00AE6,0x00AEF), `Delta (0);
+  (0x00B66,0x00B6F), `Delta (0);
+  (0x00BE6,0x00BEF), `Delta (0);
+  (0x00C66,0x00C6F), `Delta (0);
+  (0x00CE6,0x00CEF), `Delta (0);
+  (0x00D66,0x00D6F), `Delta (0);
+  (0x00DE6,0x00DEF), `Delta (0);
+  (0x00E50,0x00E59), `Delta (0);
+  (0x00ED0,0x00ED9), `Delta (0);
+  (0x00F20,0x00F29), `Delta (0);
+  (0x01040,0x01049), `Delta (0);
+  (0x01090,0x01099), `Delta (0);
+  (0x017E0,0x017E9), `Delta (0);
+  (0x01810,0x01819), `Delta (0);
+  (0x01946,0x0194F), `Delta (0);
+  (0x019D0,0x019D9), `Delta (0);
+  (0x01A80,0x01A89), `Delta (0);
+  (0x01A90,0x01A99), `Delta (0);
+  (0x01B50,0x01B59), `Delta (0);
+  (0x01BB0,0x01BB9), `Delta (0);
+  (0x01C40,0x01C49), `Delta (0);
+  (0x01C50,0x01C59), `Delta (0);
+  (0x0A620,0x0A629), `Delta (0);
+  (0x0A8D0,0x0A8D9), `Delta (0);
+  (0x0A900,0x0A909), `Delta (0);
+  (0x0A9D0,0x0A9D9), `Delta (0);
+  (0x0A9F0,0x0A9F9), `Delta (0);
+  (0x0AA50,0x0AA59), `Delta (0);
+  (0x0ABF0,0x0ABF9), `Delta (0);
+  (0x0FF10,0x0FF19), `Delta (0);
+  (0x104A0,0x104A9), `Delta (0);
+  (0x11066,0x1106F), `Delta (0);
+  (0x110F0,0x110F9), `Delta (0);
+  (0x11136,0x1113F), `Delta (0);
+  (0x111D0,0x111D9), `Delta (0);
+  (0x112F0,0x112F9), `Delta (0);
+  (0x11450,0x11459), `Delta (0);
+  (0x114D0,0x114D9), `Delta (0);
+  (0x11650,0x11659), `Delta (0);
+  (0x116C0,0x116C9), `Delta (0);
+  (0x11730,0x11739), `Delta (0);
+  (0x118E0,0x118E9), `Delta (0);
+  (0x11C50,0x11C59), `Delta (0);
+  (0x16A60,0x16A69), `Delta (0);
+  (0x16B50,0x16B59), `Delta (0);
+  (0x1D7CE,0x1D7FF), `Delta (0);
+  (0x1E950,0x1E959), `Delta (0);
+  (0x016EE,0x016F0), `Delta (0);
+  (0x02160,0x0216F), `Delta (16);
+  (0x02170,0x02182), `Delta (0);
+  (0x02185,0x02188), `Delta (0);
+  (0x03007,0x03007), `Abs (0x03007);
+  (0x03021,0x03029), `Delta (0);
+  (0x03038,0x0303A), `Delta (0);
+  (0x0A6E6,0x0A6EF), `Delta (0);
+  (0x10140,0x10174), `Delta (0);
+  (0x10341,0x10341), `Abs (0x10341);
+  (0x1034A,0x1034A), `Abs (0x1034A);
+  (0x103D1,0x103D5), `Delta (0);
+  (0x12400,0x1246E), `Delta (0);
+  (0x000B2,0x000B3), `Delta (0);
+  (0x000B9,0x000B9), `Abs (0x000B9);
+  (0x000BC,0x000BE), `Delta (0);
+  (0x009F4,0x009F9), `Delta (0);
+  (0x00B72,0x00B77), `Delta (0);
+  (0x00BF0,0x00BF2), `Delta (0);
+  (0x00C78,0x00C7E), `Delta (0);
+  (0x00D58,0x00D5E), `Delta (0);
+  (0x00D70,0x00D78), `Delta (0);
+  (0x00F2A,0x00F33), `Delta (0);
+  (0x01369,0x0137C), `Delta (0);
+  (0x017F0,0x017F9), `Delta (0);
+  (0x019DA,0x019DA), `Abs (0x019DA);
+  (0x02070,0x02070), `Abs (0x02070);
+  (0x02074,0x02079), `Delta (0);
+  (0x02080,0x02089), `Delta (0);
+  (0x02150,0x0215F), `Delta (0);
+  (0x02189,0x02189), `Abs (0x02189);
+  (0x02460,0x0249B), `Delta (0);
+  (0x024EA,0x024FF), `Delta (0);
+  (0x02776,0x02793), `Delta (0);
+  (0x02CFD,0x02CFD), `Abs (0x02CFD);
+  (0x03192,0x03195), `Delta (0);
+  (0x03220,0x03229), `Delta (0);
+  (0x03248,0x0324F), `Delta (0);
+  (0x03251,0x0325F), `Delta (0);
+  (0x03280,0x03289), `Delta (0);
+  (0x032B1,0x032BF), `Delta (0);
+  (0x0A830,0x0A835), `Delta (0);
+  (0x10107,0x10133), `Delta (0);
+  (0x10175,0x10178), `Delta (0);
+  (0x1018A,0x1018B), `Delta (0);
+  (0x102E1,0x102FB), `Delta (0);
+  (0x10320,0x10323), `Delta (0);
+  (0x10858,0x1085F), `Delta (0);
+  (0x10879,0x1087F), `Delta (0);
+  (0x108A7,0x108AF), `Delta (0);
+  (0x108FB,0x108FF), `Delta (0);
+  (0x10916,0x1091B), `Delta (0);
+  (0x109BC,0x109BD), `Delta (0);
+  (0x109C0,0x109CF), `Delta (0);
+  (0x109D2,0x109FF), `Delta (0);
+  (0x10A40,0x10A47), `Delta (0);
+  (0x10A7D,0x10A7E), `Delta (0);
+  (0x10A9D,0x10A9F), `Delta (0);
+  (0x10AEB,0x10AEF), `Delta (0);
+  (0x10B58,0x10B5F), `Delta (0);
+  (0x10B78,0x10B7F), `Delta (0);
+  (0x10BA9,0x10BAF), `Delta (0);
+  (0x10CFA,0x10CFF), `Delta (0);
+  (0x10E60,0x10E7E), `Delta (0);
+  (0x11052,0x11065), `Delta (0);
+  (0x111E1,0x111F4), `Delta (0);
+  (0x1173A,0x1173B), `Delta (0);
+  (0x118EA,0x118F2), `Delta (0);
+  (0x11C5A,0x11C6C), `Delta (0);
+  (0x16B5B,0x16B61), `Delta (0);
+  (0x1D360,0x1D371), `Delta (0);
+  (0x1E8C7,0x1E8CF), `Delta (0);
+  (0x1F100,0x1F10C), `Delta (0);
+  (0x00020,0x00020), `Abs (0x00020);
+  (0x000A0,0x000A0), `Abs (0x000A0);
+  (0x01680,0x01680), `Abs (0x01680);
+  (0x02000,0x0200A), `Delta (0);
+  (0x0202F,0x0202F), `Abs (0x0202F);
+  (0x0205F,0x0205F), `Abs (0x0205F);
+  (0x03000,0x03000), `Abs (0x03000);
+  (0x02028,0x02029), `Delta (0);
+  (0x00001,0x0001F), `Delta (0);
+  (0x0007F,0x0009F), `Delta (0);
+  (0x000AD,0x000AD), `Abs (0x000AD);
+  (0x00600,0x00605), `Delta (0);
+  (0x0061C,0x0061C), `Abs (0x0061C);
+  (0x006DD,0x006DD), `Abs (0x006DD);
+  (0x0070F,0x0070F), `Abs (0x0070F);
+  (0x008E2,0x008E2), `Abs (0x008E2);
+  (0x0180E,0x0180E), `Abs (0x0180E);
+  (0x0200B,0x0200F), `Delta (0);
+  (0x0202A,0x0202E), `Delta (0);
+  (0x02060,0x02064), `Delta (0);
+  (0x02066,0x0206F), `Delta (0);
+  (0x0FEFF,0x0FEFF), `Abs (0x0FEFF);
+  (0x0FFF9,0x0FFFB), `Delta (0);
+  (0x110BD,0x110BD), `Abs (0x110BD);
+  (0x1BCA0,0x1BCA3), `Delta (0);
+  (0x1D173,0x1D17A), `Delta (0);
+  (0xE0001,0xE0001), `Abs (0xE0001);
+  (0xE0020,0xE007F), `Delta (0);
+  (0x0D800,0x0F8FF), `Delta (0);
+  (0xF0000,0xFFFFD), `Delta (0);
+  (0x100000,0x10FFFD), `Delta (0);
+  (0x00378,0x00379), `Delta (0);
+  (0x00380,0x00383), `Delta (0);
+  (0x0038B,0x0038B), `Abs (0x0038B);
+  (0x0038D,0x0038D), `Abs (0x0038D);
+  (0x003A2,0x003A2), `Abs (0x003A2);
+  (0x00530,0x00530), `Abs (0x00530);
+  (0x00557,0x00558), `Delta (0);
+  (0x00560,0x00560), `Abs (0x00560);
+  (0x00588,0x00588), `Abs (0x00588);
+  (0x0058B,0x0058C), `Delta (0);
+  (0x00590,0x00590), `Abs (0x00590);
+  (0x005C8,0x005CF), `Delta (0);
+  (0x005EB,0x005EF), `Delta (0);
+  (0x005F5,0x005FF), `Delta (0);
+  (0x0061D,0x0061D), `Abs (0x0061D);
+  (0x0070E,0x0070E), `Abs (0x0070E);
+  (0x0074B,0x0074C), `Delta (0);
+  (0x007B2,0x007BF), `Delta (0);
+  (0x007FB,0x007FF), `Delta (0);
+  (0x0082E,0x0082F), `Delta (0);
+  (0x0083F,0x0083F), `Abs (0x0083F);
+  (0x0085C,0x0085D), `Delta (0);
+  (0x0085F,0x0089F), `Delta (0);
+  (0x008B5,0x008B5), `Abs (0x008B5);
+  (0x008BE,0x008D3), `Delta (0);
+  (0x00984,0x00984), `Abs (0x00984);
+  (0x0098D,0x0098E), `Delta (0);
+  (0x00991,0x00992), `Delta (0);
+  (0x009A9,0x009A9), `Abs (0x009A9);
+  (0x009B1,0x009B1), `Abs (0x009B1);
+  (0x009B3,0x009B5), `Delta (0);
+  (0x009BA,0x009BB), `Delta (0);
+  (0x009C5,0x009C6), `Delta (0);
+  (0x009C9,0x009CA), `Delta (0);
+  (0x009CF,0x009D6), `Delta (0);
+  (0x009D8,0x009DB), `Delta (0);
+  (0x009DE,0x009DE), `Abs (0x009DE);
+  (0x009E4,0x009E5), `Delta (0);
+  (0x009FC,0x00A00), `Delta (0);
+  (0x00A04,0x00A04), `Abs (0x00A04);
+  (0x00A0B,0x00A0E), `Delta (0);
+  (0x00A11,0x00A12), `Delta (0);
+  (0x00A29,0x00A29), `Abs (0x00A29);
+  (0x00A31,0x00A31), `Abs (0x00A31);
+  (0x00A34,0x00A34), `Abs (0x00A34);
+  (0x00A37,0x00A37), `Abs (0x00A37);
+  (0x00A3A,0x00A3B), `Delta (0);
+  (0x00A3D,0x00A3D), `Abs (0x00A3D);
+  (0x00A43,0x00A46), `Delta (0);
+  (0x00A49,0x00A4A), `Delta (0);
+  (0x00A4E,0x00A50), `Delta (0);
+  (0x00A52,0x00A58), `Delta (0);
+  (0x00A5D,0x00A5D), `Abs (0x00A5D);
+  (0x00A5F,0x00A65), `Delta (0);
+  (0x00A76,0x00A80), `Delta (0);
+  (0x00A84,0x00A84), `Abs (0x00A84);
+  (0x00A8E,0x00A8E), `Abs (0x00A8E);
+  (0x00A92,0x00A92), `Abs (0x00A92);
+  (0x00AA9,0x00AA9), `Abs (0x00AA9);
+  (0x00AB1,0x00AB1), `Abs (0x00AB1);
+  (0x00AB4,0x00AB4), `Abs (0x00AB4);
+  (0x00ABA,0x00ABB), `Delta (0);
+  (0x00AC6,0x00AC6), `Abs (0x00AC6);
+  (0x00ACA,0x00ACA), `Abs (0x00ACA);
+  (0x00ACE,0x00ACF), `Delta (0);
+  (0x00AD1,0x00ADF), `Delta (0);
+  (0x00AE4,0x00AE5), `Delta (0);
+  (0x00AF2,0x00AF8), `Delta (0);
+  (0x00AFA,0x00B00), `Delta (0);
+  (0x00B04,0x00B04), `Abs (0x00B04);
+  (0x00B0D,0x00B0E), `Delta (0);
+  (0x00B11,0x00B12), `Delta (0);
+  (0x00B29,0x00B29), `Abs (0x00B29);
+  (0x00B31,0x00B31), `Abs (0x00B31);
+  (0x00B34,0x00B34), `Abs (0x00B34);
+  (0x00B3A,0x00B3B), `Delta (0);
+  (0x00B45,0x00B46), `Delta (0);
+  (0x00B49,0x00B4A), `Delta (0);
+  (0x00B4E,0x00B55), `Delta (0);
+  (0x00B58,0x00B5B), `Delta (0);
+  (0x00B5E,0x00B5E), `Abs (0x00B5E);
+  (0x00B64,0x00B65), `Delta (0);
+  (0x00B78,0x00B81), `Delta (0);
+  (0x00B84,0x00B84), `Abs (0x00B84);
+  (0x00B8B,0x00B8D), `Delta (0);
+  (0x00B91,0x00B91), `Abs (0x00B91);
+  (0x00B96,0x00B98), `Delta (0);
+  (0x00B9B,0x00B9B), `Abs (0x00B9B);
+  (0x00B9D,0x00B9D), `Abs (0x00B9D);
+  (0x00BA0,0x00BA2), `Delta (0);
+  (0x00BA5,0x00BA7), `Delta (0);
+  (0x00BAB,0x00BAD), `Delta (0);
+  (0x00BBA,0x00BBD), `Delta (0);
+  (0x00BC3,0x00BC5), `Delta (0);
+  (0x00BC9,0x00BC9), `Abs (0x00BC9);
+  (0x00BCE,0x00BCF), `Delta (0);
+  (0x00BD1,0x00BD6), `Delta (0);
+  (0x00BD8,0x00BE5), `Delta (0);
+  (0x00BFB,0x00BFF), `Delta (0);
+  (0x00C04,0x00C04), `Abs (0x00C04);
+  (0x00C0D,0x00C0D), `Abs (0x00C0D);
+  (0x00C11,0x00C11), `Abs (0x00C11);
+  (0x00C29,0x00C29), `Abs (0x00C29);
+  (0x00C3A,0x00C3C), `Delta (0);
+  (0x00C45,0x00C45), `Abs (0x00C45);
+  (0x00C49,0x00C49), `Abs (0x00C49);
+  (0x00C4E,0x00C54), `Delta (0);
+  (0x00C57,0x00C57), `Abs (0x00C57);
+  (0x00C5B,0x00C5F), `Delta (0);
+  (0x00C64,0x00C65), `Delta (0);
+  (0x00C70,0x00C77), `Delta (0);
+  (0x00C84,0x00C84), `Abs (0x00C84);
+  (0x00C8D,0x00C8D), `Abs (0x00C8D);
+  (0x00C91,0x00C91), `Abs (0x00C91);
+  (0x00CA9,0x00CA9), `Abs (0x00CA9);
+  (0x00CB4,0x00CB4), `Abs (0x00CB4);
+  (0x00CBA,0x00CBB), `Delta (0);
+  (0x00CC5,0x00CC5), `Abs (0x00CC5);
+  (0x00CC9,0x00CC9), `Abs (0x00CC9);
+  (0x00CCE,0x00CD4), `Delta (0);
+  (0x00CD7,0x00CDD), `Delta (0);
+  (0x00CDF,0x00CDF), `Abs (0x00CDF);
+  (0x00CE4,0x00CE5), `Delta (0);
+  (0x00CF0,0x00CF0), `Abs (0x00CF0);
+  (0x00CF3,0x00D00), `Delta (0);
+  (0x00D04,0x00D04), `Abs (0x00D04);
+  (0x00D0D,0x00D0D), `Abs (0x00D0D);
+  (0x00D11,0x00D11), `Abs (0x00D11);
+  (0x00D3B,0x00D3C), `Delta (0);
+  (0x00D45,0x00D45), `Abs (0x00D45);
+  (0x00D49,0x00D49), `Abs (0x00D49);
+  (0x00D50,0x00D53), `Delta (0);
+  (0x00D64,0x00D65), `Delta (0);
+  (0x00D80,0x00D81), `Delta (0);
+  (0x00D84,0x00D84), `Abs (0x00D84);
+  (0x00D97,0x00D99), `Delta (0);
+  (0x00DB2,0x00DB2), `Abs (0x00DB2);
+  (0x00DBC,0x00DBC), `Abs (0x00DBC);
+  (0x00DBE,0x00DBF), `Delta (0);
+  (0x00DC7,0x00DC9), `Delta (0);
+  (0x00DCB,0x00DCE), `Delta (0);
+  (0x00DD5,0x00DD5), `Abs (0x00DD5);
+  (0x00DD7,0x00DD7), `Abs (0x00DD7);
+  (0x00DE0,0x00DE5), `Delta (0);
+  (0x00DF0,0x00DF1), `Delta (0);
+  (0x00DF5,0x00E00), `Delta (0);
+  (0x00E3B,0x00E3E), `Delta (0);
+  (0x00E5C,0x00E80), `Delta (0);
+  (0x00E83,0x00E83), `Abs (0x00E83);
+  (0x00E85,0x00E86), `Delta (0);
+  (0x00E89,0x00E89), `Abs (0x00E89);
+  (0x00E8B,0x00E8C), `Delta (0);
+  (0x00E8E,0x00E93), `Delta (0);
+  (0x00E98,0x00E98), `Abs (0x00E98);
+  (0x00EA0,0x00EA0), `Abs (0x00EA0);
+  (0x00EA4,0x00EA4), `Abs (0x00EA4);
+  (0x00EA6,0x00EA6), `Abs (0x00EA6);
+  (0x00EA8,0x00EA9), `Delta (0);
+  (0x00EAC,0x00EAC), `Abs (0x00EAC);
+  (0x00EBA,0x00EBA), `Abs (0x00EBA);
+  (0x00EBE,0x00EBF), `Delta (0);
+  (0x00EC5,0x00EC5), `Abs (0x00EC5);
+  (0x00EC7,0x00EC7), `Abs (0x00EC7);
+  (0x00ECE,0x00ECF), `Delta (0);
+  (0x00EDA,0x00EDB), `Delta (0);
+  (0x00EE0,0x00EFF), `Delta (0);
+  (0x00F48,0x00F48), `Abs (0x00F48);
+  (0x00F6D,0x00F70), `Delta (0);
+  (0x00F98,0x00F98), `Abs (0x00F98);
+  (0x00FBD,0x00FBD), `Abs (0x00FBD);
+  (0x00FCD,0x00FCD), `Abs (0x00FCD);
+  (0x00FDB,0x00FFF), `Delta (0);
+  (0x010C6,0x010C6), `Abs (0x010C6);
+  (0x010C8,0x010CC), `Delta (0);
+  (0x010CE,0x010CF), `Delta (0);
+  (0x01249,0x01249), `Abs (0x01249);
+  (0x0124E,0x0124F), `Delta (0);
+  (0x01257,0x01257), `Abs (0x01257);
+  (0x01259,0x01259), `Abs (0x01259);
+  (0x0125E,0x0125F), `Delta (0);
+  (0x01289,0x01289), `Abs (0x01289);
+  (0x0128E,0x0128F), `Delta (0);
+  (0x012B1,0x012B1), `Abs (0x012B1);
+  (0x012B6,0x012B7), `Delta (0);
+  (0x012BF,0x012BF), `Abs (0x012BF);
+  (0x012C1,0x012C1), `Abs (0x012C1);
+  (0x012C6,0x012C7), `Delta (0);
+  (0x012D7,0x012D7), `Abs (0x012D7);
+  (0x01311,0x01311), `Abs (0x01311);
+  (0x01316,0x01317), `Delta (0);
+  (0x0135B,0x0135C), `Delta (0);
+  (0x0137D,0x0137F), `Delta (0);
+  (0x0139A,0x0139F), `Delta (0);
+  (0x013F6,0x013F7), `Delta (0);
+  (0x013FE,0x013FF), `Delta (0);
+  (0x0169D,0x0169F), `Delta (0);
+  (0x016F9,0x016FF), `Delta (0);
+  (0x0170D,0x0170D), `Abs (0x0170D);
+  (0x01715,0x0171F), `Delta (0);
+  (0x01737,0x0173F), `Delta (0);
+  (0x01754,0x0175F), `Delta (0);
+  (0x0176D,0x0176D), `Abs (0x0176D);
+  (0x01771,0x01771), `Abs (0x01771);
+  (0x01774,0x0177F), `Delta (0);
+  (0x017DE,0x017DF), `Delta (0);
+  (0x017EA,0x017EF), `Delta (0);
+  (0x017FA,0x017FF), `Delta (0);
+  (0x0180F,0x0180F), `Abs (0x0180F);
+  (0x0181A,0x0181F), `Delta (0);
+  (0x01878,0x0187F), `Delta (0);
+  (0x018AB,0x018AF), `Delta (0);
+  (0x018F6,0x018FF), `Delta (0);
+  (0x0191F,0x0191F), `Abs (0x0191F);
+  (0x0192C,0x0192F), `Delta (0);
+  (0x0193C,0x0193F), `Delta (0);
+  (0x01941,0x01943), `Delta (0);
+  (0x0196E,0x0196F), `Delta (0);
+  (0x01975,0x0197F), `Delta (0);
+  (0x019AC,0x019AF), `Delta (0);
+  (0x019CA,0x019CF), `Delta (0);
+  (0x019DB,0x019DD), `Delta (0);
+  (0x01A1C,0x01A1D), `Delta (0);
+  (0x01A5F,0x01A5F), `Abs (0x01A5F);
+  (0x01A7D,0x01A7E), `Delta (0);
+  (0x01A8A,0x01A8F), `Delta (0);
+  (0x01A9A,0x01A9F), `Delta (0);
+  (0x01AAE,0x01AAF), `Delta (0);
+  (0x01ABF,0x01AFF), `Delta (0);
+  (0x01B4C,0x01B4F), `Delta (0);
+  (0x01B7D,0x01B7F), `Delta (0);
+  (0x01BF4,0x01BFB), `Delta (0);
+  (0x01C38,0x01C3A), `Delta (0);
+  (0x01C4A,0x01C4C), `Delta (0);
+  (0x01C89,0x01CBF), `Delta (0);
+  (0x01CC8,0x01CCF), `Delta (0);
+  (0x01CF7,0x01CF7), `Abs (0x01CF7);
+  (0x01CFA,0x01CFF), `Delta (0);
+  (0x01DF6,0x01DFA), `Delta (0);
+  (0x01F16,0x01F17), `Delta (0);
+  (0x01F1E,0x01F1F), `Delta (0);
+  (0x01F46,0x01F47), `Delta (0);
+  (0x01F4E,0x01F4F), `Delta (0);
+  (0x01F58,0x01F58), `Abs (0x01F58);
+  (0x01F5A,0x01F5A), `Abs (0x01F5A);
+  (0x01F5C,0x01F5C), `Abs (0x01F5C);
+  (0x01F5E,0x01F5E), `Abs (0x01F5E);
+  (0x01F7E,0x01F7F), `Delta (0);
+  (0x01FB5,0x01FB5), `Abs (0x01FB5);
+  (0x01FC5,0x01FC5), `Abs (0x01FC5);
+  (0x01FD4,0x01FD5), `Delta (0);
+  (0x01FDC,0x01FDC), `Abs (0x01FDC);
+  (0x01FF0,0x01FF1), `Delta (0);
+  (0x01FF5,0x01FF5), `Abs (0x01FF5);
+  (0x01FFF,0x01FFF), `Abs (0x01FFF);
+  (0x02065,0x02065), `Abs (0x02065);
+  (0x02072,0x02073), `Delta (0);
+  (0x0208F,0x0208F), `Abs (0x0208F);
+  (0x0209D,0x0209F), `Delta (0);
+  (0x020BF,0x020CF), `Delta (0);
+  (0x020F1,0x020FF), `Delta (0);
+  (0x0218C,0x0218F), `Delta (0);
+  (0x023FF,0x023FF), `Abs (0x023FF);
+  (0x02427,0x0243F), `Delta (0);
+  (0x0244B,0x0245F), `Delta (0);
+  (0x02B74,0x02B75), `Delta (0);
+  (0x02B96,0x02B97), `Delta (0);
+  (0x02BBA,0x02BBC), `Delta (0);
+  (0x02BC9,0x02BC9), `Abs (0x02BC9);
+  (0x02BD2,0x02BEB), `Delta (0);
+  (0x02BF0,0x02BFF), `Delta (0);
+  (0x02C2F,0x02C2F), `Abs (0x02C2F);
+  (0x02C5F,0x02C5F), `Abs (0x02C5F);
+  (0x02CF4,0x02CF8), `Delta (0);
+  (0x02D26,0x02D26), `Abs (0x02D26);
+  (0x02D28,0x02D2C), `Delta (0);
+  (0x02D2E,0x02D2F), `Delta (0);
+  (0x02D68,0x02D6E), `Delta (0);
+  (0x02D71,0x02D7E), `Delta (0);
+  (0x02D97,0x02D9F), `Delta (0);
+  (0x02DA7,0x02DA7), `Abs (0x02DA7);
+  (0x02DAF,0x02DAF), `Abs (0x02DAF);
+  (0x02DB7,0x02DB7), `Abs (0x02DB7);
+  (0x02DBF,0x02DBF), `Abs (0x02DBF);
+  (0x02DC7,0x02DC7), `Abs (0x02DC7);
+  (0x02DCF,0x02DCF), `Abs (0x02DCF);
+  (0x02DD7,0x02DD7), `Abs (0x02DD7);
+  (0x02DDF,0x02DDF), `Abs (0x02DDF);
+  (0x02E45,0x02E7F), `Delta (0);
+  (0x02E9A,0x02E9A), `Abs (0x02E9A);
+  (0x02EF4,0x02EFF), `Delta (0);
+  (0x02FD6,0x02FEF), `Delta (0);
+  (0x02FFC,0x02FFF), `Delta (0);
+  (0x03040,0x03040), `Abs (0x03040);
+  (0x03097,0x03098), `Delta (0);
+  (0x03100,0x03104), `Delta (0);
+  (0x0312E,0x03130), `Delta (0);
+  (0x0318F,0x0318F), `Abs (0x0318F);
+  (0x031BB,0x031BF), `Delta (0);
+  (0x031E4,0x031EF), `Delta (0);
+  (0x0321F,0x0321F), `Abs (0x0321F);
+  (0x032FF,0x032FF), `Abs (0x032FF);
+  (0x04DB6,0x04DBF), `Delta (0);
+  (0x09FD6,0x09FFF), `Delta (0);
+  (0x0A48D,0x0A48F), `Delta (0);
+  (0x0A4C7,0x0A4CF), `Delta (0);
+  (0x0A62C,0x0A63F), `Delta (0);
+  (0x0A6F8,0x0A6FF), `Delta (0);
+  (0x0A7AF,0x0A7AF), `Abs (0x0A7AF);
+  (0x0A7B8,0x0A7F6), `Delta (0);
+  (0x0A82C,0x0A82F), `Delta (0);
+  (0x0A83A,0x0A83F), `Delta (0);
+  (0x0A878,0x0A87F), `Delta (0);
+  (0x0A8C6,0x0A8CD), `Delta (0);
+  (0x0A8DA,0x0A8DF), `Delta (0);
+  (0x0A8FE,0x0A8FF), `Delta (0);
+  (0x0A954,0x0A95E), `Delta (0);
+  (0x0A97D,0x0A97F), `Delta (0);
+  (0x0A9CE,0x0A9CE), `Abs (0x0A9CE);
+  (0x0A9DA,0x0A9DD), `Delta (0);
+  (0x0A9FF,0x0A9FF), `Abs (0x0A9FF);
+  (0x0AA37,0x0AA3F), `Delta (0);
+  (0x0AA4E,0x0AA4F), `Delta (0);
+  (0x0AA5A,0x0AA5B), `Delta (0);
+  (0x0AAC3,0x0AADA), `Delta (0);
+  (0x0AAF7,0x0AB00), `Delta (0);
+  (0x0AB07,0x0AB08), `Delta (0);
+  (0x0AB0F,0x0AB10), `Delta (0);
+  (0x0AB17,0x0AB1F), `Delta (0);
+  (0x0AB27,0x0AB27), `Abs (0x0AB27);
+  (0x0AB2F,0x0AB2F), `Abs (0x0AB2F);
+  (0x0AB66,0x0AB6F), `Delta (0);
+  (0x0ABEE,0x0ABEF), `Delta (0);
+  (0x0ABFA,0x0ABFF), `Delta (0);
+  (0x0D7A4,0x0D7AF), `Delta (0);
+  (0x0D7C7,0x0D7CA), `Delta (0);
+  (0x0D7FC,0x0D7FF), `Delta (0);
+  (0x0FA6E,0x0FA6F), `Delta (0);
+  (0x0FADA,0x0FAFF), `Delta (0);
+  (0x0FB07,0x0FB12), `Delta (0);
+  (0x0FB18,0x0FB1C), `Delta (0);
+  (0x0FB37,0x0FB37), `Abs (0x0FB37);
+  (0x0FB3D,0x0FB3D), `Abs (0x0FB3D);
+  (0x0FB3F,0x0FB3F), `Abs (0x0FB3F);
+  (0x0FB42,0x0FB42), `Abs (0x0FB42);
+  (0x0FB45,0x0FB45), `Abs (0x0FB45);
+  (0x0FBC2,0x0FBD2), `Delta (0);
+  (0x0FD40,0x0FD4F), `Delta (0);
+  (0x0FD90,0x0FD91), `Delta (0);
+  (0x0FDC8,0x0FDEF), `Delta (0);
+  (0x0FDFE,0x0FDFF), `Delta (0);
+  (0x0FE1A,0x0FE1F), `Delta (0);
+  (0x0FE53,0x0FE53), `Abs (0x0FE53);
+  (0x0FE67,0x0FE67), `Abs (0x0FE67);
+  (0x0FE6C,0x0FE6F), `Delta (0);
+  (0x0FE75,0x0FE75), `Abs (0x0FE75);
+  (0x0FEFD,0x0FEFE), `Delta (0);
+  (0x0FF00,0x0FF00), `Abs (0x0FF00);
+  (0x0FFBF,0x0FFC1), `Delta (0);
+  (0x0FFC8,0x0FFC9), `Delta (0);
+  (0x0FFD0,0x0FFD1), `Delta (0);
+  (0x0FFD8,0x0FFD9), `Delta (0);
+  (0x0FFDD,0x0FFDF), `Delta (0);
+  (0x0FFE7,0x0FFE7), `Abs (0x0FFE7);
+  (0x0FFEF,0x0FFF8), `Delta (0);
+  (0x0FFFE,0x0FFFF), `Delta (0);
+  (0x1000C,0x1000C), `Abs (0x1000C);
+  (0x10027,0x10027), `Abs (0x10027);
+  (0x1003B,0x1003B), `Abs (0x1003B);
+  (0x1003E,0x1003E), `Abs (0x1003E);
+  (0x1004E,0x1004F), `Delta (0);
+  (0x1005E,0x1007F), `Delta (0);
+  (0x100FB,0x100FF), `Delta (0);
+  (0x10103,0x10106), `Delta (0);
+  (0x10134,0x10136), `Delta (0);
+  (0x1018F,0x1018F), `Abs (0x1018F);
+  (0x1019C,0x1019F), `Delta (0);
+  (0x101A1,0x101CF), `Delta (0);
+  (0x101FE,0x1027F), `Delta (0);
+  (0x1029D,0x1029F), `Delta (0);
+  (0x102D1,0x102DF), `Delta (0);
+  (0x102FC,0x102FF), `Delta (0);
+  (0x10324,0x1032F), `Delta (0);
+  (0x1034B,0x1034F), `Delta (0);
+  (0x1037B,0x1037F), `Delta (0);
+  (0x1039E,0x1039E), `Abs (0x1039E);
+  (0x103C4,0x103C7), `Delta (0);
+  (0x103D6,0x103FF), `Delta (0);
+  (0x1049E,0x1049F), `Delta (0);
+  (0x104AA,0x104AF), `Delta (0);
+  (0x104D4,0x104D7), `Delta (0);
+  (0x104FC,0x104FF), `Delta (0);
+  (0x10528,0x1052F), `Delta (0);
+  (0x10564,0x1056E), `Delta (0);
+  (0x10570,0x105FF), `Delta (0);
+  (0x10737,0x1073F), `Delta (0);
+  (0x10756,0x1075F), `Delta (0);
+  (0x10768,0x107FF), `Delta (0);
+  (0x10806,0x10807), `Delta (0);
+  (0x10809,0x10809), `Abs (0x10809);
+  (0x10836,0x10836), `Abs (0x10836);
+  (0x10839,0x1083B), `Delta (0);
+  (0x1083D,0x1083E), `Delta (0);
+  (0x10856,0x10856), `Abs (0x10856);
+  (0x1089F,0x108A6), `Delta (0);
+  (0x108B0,0x108DF), `Delta (0);
+  (0x108F3,0x108F3), `Abs (0x108F3);
+  (0x108F6,0x108FA), `Delta (0);
+  (0x1091C,0x1091E), `Delta (0);
+  (0x1093A,0x1093E), `Delta (0);
+  (0x10940,0x1097F), `Delta (0);
+  (0x109B8,0x109BB), `Delta (0);
+  (0x109D0,0x109D1), `Delta (0);
+  (0x10A04,0x10A04), `Abs (0x10A04);
+  (0x10A07,0x10A0B), `Delta (0);
+  (0x10A14,0x10A14), `Abs (0x10A14);
+  (0x10A18,0x10A18), `Abs (0x10A18);
+  (0x10A34,0x10A37), `Delta (0);
+  (0x10A3B,0x10A3E), `Delta (0);
+  (0x10A48,0x10A4F), `Delta (0);
+  (0x10A59,0x10A5F), `Delta (0);
+  (0x10AA0,0x10ABF), `Delta (0);
+  (0x10AE7,0x10AEA), `Delta (0);
+  (0x10AF7,0x10AFF), `Delta (0);
+  (0x10B36,0x10B38), `Delta (0);
+  (0x10B56,0x10B57), `Delta (0);
+  (0x10B73,0x10B77), `Delta (0);
+  (0x10B92,0x10B98), `Delta (0);
+  (0x10B9D,0x10BA8), `Delta (0);
+  (0x10BB0,0x10BFF), `Delta (0);
+  (0x10C49,0x10C7F), `Delta (0);
+  (0x10CB3,0x10CBF), `Delta (0);
+  (0x10CF3,0x10CF9), `Delta (0);
+  (0x10D00,0x10E5F), `Delta (0);
+  (0x10E7F,0x10FFF), `Delta (0);
+  (0x1104E,0x11051), `Delta (0);
+  (0x11070,0x1107E), `Delta (0);
+  (0x110C2,0x110CF), `Delta (0);
+  (0x110E9,0x110EF), `Delta (0);
+  (0x110FA,0x110FF), `Delta (0);
+  (0x11135,0x11135), `Abs (0x11135);
+  (0x11144,0x1114F), `Delta (0);
+  (0x11177,0x1117F), `Delta (0);
+  (0x111CE,0x111CF), `Delta (0);
+  (0x111E0,0x111E0), `Abs (0x111E0);
+  (0x111F5,0x111FF), `Delta (0);
+  (0x11212,0x11212), `Abs (0x11212);
+  (0x1123F,0x1127F), `Delta (0);
+  (0x11287,0x11287), `Abs (0x11287);
+  (0x11289,0x11289), `Abs (0x11289);
+  (0x1128E,0x1128E), `Abs (0x1128E);
+  (0x1129E,0x1129E), `Abs (0x1129E);
+  (0x112AA,0x112AF), `Delta (0);
+  (0x112EB,0x112EF), `Delta (0);
+  (0x112FA,0x112FF), `Delta (0);
+  (0x11304,0x11304), `Abs (0x11304);
+  (0x1130D,0x1130E), `Delta (0);
+  (0x11311,0x11312), `Delta (0);
+  (0x11329,0x11329), `Abs (0x11329);
+  (0x11331,0x11331), `Abs (0x11331);
+  (0x11334,0x11334), `Abs (0x11334);
+  (0x1133A,0x1133B), `Delta (0);
+  (0x11345,0x11346), `Delta (0);
+  (0x11349,0x1134A), `Delta (0);
+  (0x1134E,0x1134F), `Delta (0);
+  (0x11351,0x11356), `Delta (0);
+  (0x11358,0x1135C), `Delta (0);
+  (0x11364,0x11365), `Delta (0);
+  (0x1136D,0x1136F), `Delta (0);
+  (0x11375,0x113FF), `Delta (0);
+  (0x1145A,0x1145A), `Abs (0x1145A);
+  (0x1145C,0x1145C), `Abs (0x1145C);
+  (0x1145E,0x1147F), `Delta (0);
+  (0x114C8,0x114CF), `Delta (0);
+  (0x114DA,0x1157F), `Delta (0);
+  (0x115B6,0x115B7), `Delta (0);
+  (0x115DE,0x115FF), `Delta (0);
+  (0x11645,0x1164F), `Delta (0);
+  (0x1165A,0x1165F), `Delta (0);
+  (0x1166D,0x1167F), `Delta (0);
+  (0x116B8,0x116BF), `Delta (0);
+  (0x116CA,0x116FF), `Delta (0);
+  (0x1171A,0x1171C), `Delta (0);
+  (0x1172C,0x1172F), `Delta (0);
+  (0x11740,0x1189F), `Delta (0);
+  (0x118F3,0x118FE), `Delta (0);
+  (0x11900,0x11ABF), `Delta (0);
+  (0x11AF9,0x11BFF), `Delta (0);
+  (0x11C09,0x11C09), `Abs (0x11C09);
+  (0x11C37,0x11C37), `Abs (0x11C37);
+  (0x11C46,0x11C4F), `Delta (0);
+  (0x11C6D,0x11C6F), `Delta (0);
+  (0x11C90,0x11C91), `Delta (0);
+  (0x11CA8,0x11CA8), `Abs (0x11CA8);
+  (0x11CB7,0x11FFF), `Delta (0);
+  (0x1239A,0x123FF), `Delta (0);
+  (0x1246F,0x1246F), `Abs (0x1246F);
+  (0x12475,0x1247F), `Delta (0);
+  (0x12544,0x12FFF), `Delta (0);
+  (0x1342F,0x143FF), `Delta (0);
+  (0x14647,0x167FF), `Delta (0);
+  (0x16A39,0x16A3F), `Delta (0);
+  (0x16A5F,0x16A5F), `Abs (0x16A5F);
+  (0x16A6A,0x16A6D), `Delta (0);
+  (0x16A70,0x16ACF), `Delta (0);
+  (0x16AEE,0x16AEF), `Delta (0);
+  (0x16AF6,0x16AFF), `Delta (0);
+  (0x16B46,0x16B4F), `Delta (0);
+  (0x16B5A,0x16B5A), `Abs (0x16B5A);
+  (0x16B62,0x16B62), `Abs (0x16B62);
+  (0x16B78,0x16B7C), `Delta (0);
+  (0x16B90,0x16EFF), `Delta (0);
+  (0x16F45,0x16F4F), `Delta (0);
+  (0x16F7F,0x16F8E), `Delta (0);
+  (0x16FA0,0x16FDF), `Delta (0);
+  (0x16FE1,0x16FFF), `Delta (0);
+  (0x187ED,0x187FF), `Delta (0);
+  (0x18AF3,0x1AFFF), `Delta (0);
+  (0x1B002,0x1BBFF), `Delta (0);
+  (0x1BC6B,0x1BC6F), `Delta (0);
+  (0x1BC7D,0x1BC7F), `Delta (0);
+  (0x1BC89,0x1BC8F), `Delta (0);
+  (0x1BC9A,0x1BC9B), `Delta (0);
+  (0x1BCA4,0x1CFFF), `Delta (0);
+  (0x1D0F6,0x1D0FF), `Delta (0);
+  (0x1D127,0x1D128), `Delta (0);
+  (0x1D1E9,0x1D1FF), `Delta (0);
+  (0x1D246,0x1D2FF), `Delta (0);
+  (0x1D357,0x1D35F), `Delta (0);
+  (0x1D372,0x1D3FF), `Delta (0);
+  (0x1D455,0x1D455), `Abs (0x1D455);
+  (0x1D49D,0x1D49D), `Abs (0x1D49D);
+  (0x1D4A0,0x1D4A1), `Delta (0);
+  (0x1D4A3,0x1D4A4), `Delta (0);
+  (0x1D4A7,0x1D4A8), `Delta (0);
+  (0x1D4AD,0x1D4AD), `Abs (0x1D4AD);
+  (0x1D4BA,0x1D4BA), `Abs (0x1D4BA);
+  (0x1D4BC,0x1D4BC), `Abs (0x1D4BC);
+  (0x1D4C4,0x1D4C4), `Abs (0x1D4C4);
+  (0x1D506,0x1D506), `Abs (0x1D506);
+  (0x1D50B,0x1D50C), `Delta (0);
+  (0x1D515,0x1D515), `Abs (0x1D515);
+  (0x1D51D,0x1D51D), `Abs (0x1D51D);
+  (0x1D53A,0x1D53A), `Abs (0x1D53A);
+  (0x1D53F,0x1D53F), `Abs (0x1D53F);
+  (0x1D545,0x1D545), `Abs (0x1D545);
+  (0x1D547,0x1D549), `Delta (0);
+  (0x1D551,0x1D551), `Abs (0x1D551);
+  (0x1D6A6,0x1D6A7), `Delta (0);
+  (0x1D7CC,0x1D7CD), `Delta (0);
+  (0x1DA8C,0x1DA9A), `Delta (0);
+  (0x1DAA0,0x1DAA0), `Abs (0x1DAA0);
+  (0x1DAB0,0x1DFFF), `Delta (0);
+  (0x1E007,0x1E007), `Abs (0x1E007);
+  (0x1E019,0x1E01A), `Delta (0);
+  (0x1E022,0x1E022), `Abs (0x1E022);
+  (0x1E025,0x1E025), `Abs (0x1E025);
+  (0x1E02B,0x1E7FF), `Delta (0);
+  (0x1E8C5,0x1E8C6), `Delta (0);
+  (0x1E8D7,0x1E8FF), `Delta (0);
+  (0x1E94B,0x1E94F), `Delta (0);
+  (0x1E95A,0x1E95D), `Delta (0);
+  (0x1E960,0x1EDFF), `Delta (0);
+  (0x1EE04,0x1EE04), `Abs (0x1EE04);
+  (0x1EE20,0x1EE20), `Abs (0x1EE20);
+  (0x1EE23,0x1EE23), `Abs (0x1EE23);
+  (0x1EE25,0x1EE26), `Delta (0);
+  (0x1EE28,0x1EE28), `Abs (0x1EE28);
+  (0x1EE33,0x1EE33), `Abs (0x1EE33);
+  (0x1EE38,0x1EE38), `Abs (0x1EE38);
+  (0x1EE3A,0x1EE3A), `Abs (0x1EE3A);
+  (0x1EE3C,0x1EE41), `Delta (0);
+  (0x1EE43,0x1EE46), `Delta (0);
+  (0x1EE48,0x1EE48), `Abs (0x1EE48);
+  (0x1EE4A,0x1EE4A), `Abs (0x1EE4A);
+  (0x1EE4C,0x1EE4C), `Abs (0x1EE4C);
+  (0x1EE50,0x1EE50), `Abs (0x1EE50);
+  (0x1EE53,0x1EE53), `Abs (0x1EE53);
+  (0x1EE55,0x1EE56), `Delta (0);
+  (0x1EE58,0x1EE58), `Abs (0x1EE58);
+  (0x1EE5A,0x1EE5A), `Abs (0x1EE5A);
+  (0x1EE5C,0x1EE5C), `Abs (0x1EE5C);
+  (0x1EE5E,0x1EE5E), `Abs (0x1EE5E);
+  (0x1EE60,0x1EE60), `Abs (0x1EE60);
+  (0x1EE63,0x1EE63), `Abs (0x1EE63);
+  (0x1EE65,0x1EE66), `Delta (0);
+  (0x1EE6B,0x1EE6B), `Abs (0x1EE6B);
+  (0x1EE73,0x1EE73), `Abs (0x1EE73);
+  (0x1EE78,0x1EE78), `Abs (0x1EE78);
+  (0x1EE7D,0x1EE7D), `Abs (0x1EE7D);
+  (0x1EE7F,0x1EE7F), `Abs (0x1EE7F);
+  (0x1EE8A,0x1EE8A), `Abs (0x1EE8A);
+  (0x1EE9C,0x1EEA0), `Delta (0);
+  (0x1EEA4,0x1EEA4), `Abs (0x1EEA4);
+  (0x1EEAA,0x1EEAA), `Abs (0x1EEAA);
+  (0x1EEBC,0x1EEEF), `Delta (0);
+  (0x1EEF2,0x1EFFF), `Delta (0);
+  (0x1F02C,0x1F02F), `Delta (0);
+  (0x1F094,0x1F09F), `Delta (0);
+  (0x1F0AF,0x1F0B0), `Delta (0);
+  (0x1F0C0,0x1F0C0), `Abs (0x1F0C0);
+  (0x1F0D0,0x1F0D0), `Abs (0x1F0D0);
+  (0x1F0F6,0x1F0FF), `Delta (0);
+  (0x1F10D,0x1F10F), `Delta (0);
+  (0x1F12F,0x1F12F), `Abs (0x1F12F);
+  (0x1F16C,0x1F16F), `Delta (0);
+  (0x1F1AD,0x1F1E5), `Delta (0);
+  (0x1F203,0x1F20F), `Delta (0);
+  (0x1F23C,0x1F23F), `Delta (0);
+  (0x1F249,0x1F24F), `Delta (0);
+  (0x1F252,0x1F2FF), `Delta (0);
+  (0x1F6D3,0x1F6DF), `Delta (0);
+  (0x1F6ED,0x1F6EF), `Delta (0);
+  (0x1F6F7,0x1F6FF), `Delta (0);
+  (0x1F774,0x1F77F), `Delta (0);
+  (0x1F7D5,0x1F7FF), `Delta (0);
+  (0x1F80C,0x1F80F), `Delta (0);
+  (0x1F848,0x1F84F), `Delta (0);
+  (0x1F85A,0x1F85F), `Delta (0);
+  (0x1F888,0x1F88F), `Delta (0);
+  (0x1F8AE,0x1F90F), `Delta (0);
+  (0x1F91F,0x1F91F), `Abs (0x1F91F);
+  (0x1F928,0x1F92F), `Delta (0);
+  (0x1F931,0x1F932), `Delta (0);
+  (0x1F93F,0x1F93F), `Abs (0x1F93F);
+  (0x1F94C,0x1F94F), `Delta (0);
+  (0x1F95F,0x1F97F), `Delta (0);
+  (0x1F992,0x1F9BF), `Delta (0);
+  (0x1F9C1,0x1FFFF), `Delta (0);
+  (0x2A6D7,0x2A6FF), `Delta (0);
+  (0x2B735,0x2B73F), `Delta (0);
+  (0x2B81E,0x2B81F), `Delta (0);
+  (0x2CEA2,0x2F7FF), `Delta (0);
+  (0x2FA1E,0xE0000), `Delta (0);
+  (0xE0002,0xE001F), `Delta (0);
+  (0xE0080,0xE00FF), `Delta (0);
+  (0xE01F0,0xEFFFF), `Delta (0);
+  (0xFFFFE,0xFFFFF), `Delta (0);
+  (0x10FFFE,0x10FFFF), `Delta (0);
+  (0x002B0,0x002C1), `Delta (0);
+  (0x002C6,0x002D1), `Delta (0);
+  (0x002E0,0x002E4), `Delta (0);
+  (0x002EC,0x002EC), `Abs (0x002EC);
+  (0x002EE,0x002EE), `Abs (0x002EE);
+  (0x00374,0x00374), `Abs (0x00374);
+  (0x0037A,0x0037A), `Abs (0x0037A);
+  (0x00559,0x00559), `Abs (0x00559);
+  (0x00640,0x00640), `Abs (0x00640);
+  (0x006E5,0x006E6), `Delta (0);
+  (0x007F4,0x007F5), `Delta (0);
+  (0x007FA,0x007FA), `Abs (0x007FA);
+  (0x0081A,0x0081A), `Abs (0x0081A);
+  (0x00824,0x00824), `Abs (0x00824);
+  (0x00828,0x00828), `Abs (0x00828);
+  (0x00971,0x00971), `Abs (0x00971);
+  (0x00E46,0x00E46), `Abs (0x00E46);
+  (0x00EC6,0x00EC6), `Abs (0x00EC6);
+  (0x010FC,0x010FC), `Abs (0x010FC);
+  (0x017D7,0x017D7), `Abs (0x017D7);
+  (0x01843,0x01843), `Abs (0x01843);
+  (0x01AA7,0x01AA7), `Abs (0x01AA7);
+  (0x01C78,0x01C7D), `Delta (0);
+  (0x01D2C,0x01D6A), `Delta (0);
+  (0x01D78,0x01D78), `Abs (0x01D78);
+  (0x01D9B,0x01DBF), `Delta (0);
+  (0x02071,0x02071), `Abs (0x02071);
+  (0x0207F,0x0207F), `Abs (0x0207F);
+  (0x02090,0x0209C), `Delta (0);
+  (0x02C7C,0x02C7D), `Delta (0);
+  (0x02D6F,0x02D6F), `Abs (0x02D6F);
+  (0x02E2F,0x02E2F), `Abs (0x02E2F);
+  (0x03005,0x03005), `Abs (0x03005);
+  (0x03031,0x03035), `Delta (0);
+  (0x0303B,0x0303B), `Abs (0x0303B);
+  (0x0309D,0x0309E), `Delta (0);
+  (0x030FC,0x030FE), `Delta (0);
+  (0x0A015,0x0A015), `Abs (0x0A015);
+  (0x0A4F8,0x0A4FD), `Delta (0);
+  (0x0A60C,0x0A60C), `Abs (0x0A60C);
+  (0x0A67F,0x0A67F), `Abs (0x0A67F);
+  (0x0A69C,0x0A69D), `Delta (0);
+  (0x0A717,0x0A71F), `Delta (0);
+  (0x0A770,0x0A770), `Abs (0x0A770);
+  (0x0A788,0x0A788), `Abs (0x0A788);
+  (0x0A7F8,0x0A7F9), `Delta (0);
+  (0x0A9CF,0x0A9CF), `Abs (0x0A9CF);
+  (0x0A9E6,0x0A9E6), `Abs (0x0A9E6);
+  (0x0AA70,0x0AA70), `Abs (0x0AA70);
+  (0x0AADD,0x0AADD), `Abs (0x0AADD);
+  (0x0AAF3,0x0AAF4), `Delta (0);
+  (0x0AB5C,0x0AB5F), `Delta (0);
+  (0x0FF70,0x0FF70), `Abs (0x0FF70);
+  (0x0FF9E,0x0FF9F), `Delta (0);
+  (0x16B40,0x16B43), `Delta (0);
+  (0x16F93,0x16F9F), `Delta (0);
+  (0x16FE0,0x16FE0), `Abs (0x16FE0);
+  (0x000AA,0x000AA), `Abs (0x000AA);
+  (0x000BA,0x000BA), `Abs (0x000BA);
+  (0x001BB,0x001BB), `Abs (0x001BB);
+  (0x001C0,0x001C3), `Delta (0);
+  (0x00294,0x00294), `Abs (0x00294);
+  (0x005D0,0x005EA), `Delta (0);
+  (0x005F0,0x005F2), `Delta (0);
+  (0x00620,0x0063F), `Delta (0);
+  (0x00641,0x0064A), `Delta (0);
+  (0x0066E,0x0066F), `Delta (0);
+  (0x00671,0x006D3), `Delta (0);
+  (0x006D5,0x006D5), `Abs (0x006D5);
+  (0x006EE,0x006EF), `Delta (0);
+  (0x006FA,0x006FC), `Delta (0);
+  (0x006FF,0x006FF), `Abs (0x006FF);
+  (0x00710,0x00710), `Abs (0x00710);
+  (0x00712,0x0072F), `Delta (0);
+  (0x0074D,0x007A5), `Delta (0);
+  (0x007B1,0x007B1), `Abs (0x007B1);
+  (0x007CA,0x007EA), `Delta (0);
+  (0x00800,0x00815), `Delta (0);
+  (0x00840,0x00858), `Delta (0);
+  (0x008A0,0x008B4), `Delta (0);
+  (0x008B6,0x008BD), `Delta (0);
+  (0x00904,0x00939), `Delta (0);
+  (0x0093D,0x0093D), `Abs (0x0093D);
+  (0x00950,0x00950), `Abs (0x00950);
+  (0x00958,0x00961), `Delta (0);
+  (0x00972,0x00980), `Delta (0);
+  (0x00985,0x0098C), `Delta (0);
+  (0x0098F,0x00990), `Delta (0);
+  (0x00993,0x009A8), `Delta (0);
+  (0x009AA,0x009B0), `Delta (0);
+  (0x009B2,0x009B2), `Abs (0x009B2);
+  (0x009B6,0x009B9), `Delta (0);
+  (0x009BD,0x009BD), `Abs (0x009BD);
+  (0x009CE,0x009CE), `Abs (0x009CE);
+  (0x009DC,0x009DD), `Delta (0);
+  (0x009DF,0x009E1), `Delta (0);
+  (0x009F0,0x009F1), `Delta (0);
+  (0x00A05,0x00A0A), `Delta (0);
+  (0x00A0F,0x00A10), `Delta (0);
+  (0x00A13,0x00A28), `Delta (0);
+  (0x00A2A,0x00A30), `Delta (0);
+  (0x00A32,0x00A33), `Delta (0);
+  (0x00A35,0x00A36), `Delta (0);
+  (0x00A38,0x00A39), `Delta (0);
+  (0x00A59,0x00A5C), `Delta (0);
+  (0x00A5E,0x00A5E), `Abs (0x00A5E);
+  (0x00A72,0x00A74), `Delta (0);
+  (0x00A85,0x00A8D), `Delta (0);
+  (0x00A8F,0x00A91), `Delta (0);
+  (0x00A93,0x00AA8), `Delta (0);
+  (0x00AAA,0x00AB0), `Delta (0);
+  (0x00AB2,0x00AB3), `Delta (0);
+  (0x00AB5,0x00AB9), `Delta (0);
+  (0x00ABD,0x00ABD), `Abs (0x00ABD);
+  (0x00AD0,0x00AD0), `Abs (0x00AD0);
+  (0x00AE0,0x00AE1), `Delta (0);
+  (0x00AF9,0x00AF9), `Abs (0x00AF9);
+  (0x00B05,0x00B0C), `Delta (0);
+  (0x00B0F,0x00B10), `Delta (0);
+  (0x00B13,0x00B28), `Delta (0);
+  (0x00B2A,0x00B30), `Delta (0);
+  (0x00B32,0x00B33), `Delta (0);
+  (0x00B35,0x00B39), `Delta (0);
+  (0x00B3D,0x00B3D), `Abs (0x00B3D);
+  (0x00B5C,0x00B5D), `Delta (0);
+  (0x00B5F,0x00B61), `Delta (0);
+  (0x00B71,0x00B71), `Abs (0x00B71);
+  (0x00B83,0x00B83), `Abs (0x00B83);
+  (0x00B85,0x00B8A), `Delta (0);
+  (0x00B8E,0x00B90), `Delta (0);
+  (0x00B92,0x00B95), `Delta (0);
+  (0x00B99,0x00B9A), `Delta (0);
+  (0x00B9C,0x00B9C), `Abs (0x00B9C);
+  (0x00B9E,0x00B9F), `Delta (0);
+  (0x00BA3,0x00BA4), `Delta (0);
+  (0x00BA8,0x00BAA), `Delta (0);
+  (0x00BAE,0x00BB9), `Delta (0);
+  (0x00BD0,0x00BD0), `Abs (0x00BD0);
+  (0x00C05,0x00C0C), `Delta (0);
+  (0x00C0E,0x00C10), `Delta (0);
+  (0x00C12,0x00C28), `Delta (0);
+  (0x00C2A,0x00C39), `Delta (0);
+  (0x00C3D,0x00C3D), `Abs (0x00C3D);
+  (0x00C58,0x00C5A), `Delta (0);
+  (0x00C60,0x00C61), `Delta (0);
+  (0x00C80,0x00C80), `Abs (0x00C80);
+  (0x00C85,0x00C8C), `Delta (0);
+  (0x00C8E,0x00C90), `Delta (0);
+  (0x00C92,0x00CA8), `Delta (0);
+  (0x00CAA,0x00CB3), `Delta (0);
+  (0x00CB5,0x00CB9), `Delta (0);
+  (0x00CBD,0x00CBD), `Abs (0x00CBD);
+  (0x00CDE,0x00CDE), `Abs (0x00CDE);
+  (0x00CE0,0x00CE1), `Delta (0);
+  (0x00CF1,0x00CF2), `Delta (0);
+  (0x00D05,0x00D0C), `Delta (0);
+  (0x00D0E,0x00D10), `Delta (0);
+  (0x00D12,0x00D3A), `Delta (0);
+  (0x00D3D,0x00D3D), `Abs (0x00D3D);
+  (0x00D4E,0x00D4E), `Abs (0x00D4E);
+  (0x00D54,0x00D56), `Delta (0);
+  (0x00D5F,0x00D61), `Delta (0);
+  (0x00D7A,0x00D7F), `Delta (0);
+  (0x00D85,0x00D96), `Delta (0);
+  (0x00D9A,0x00DB1), `Delta (0);
+  (0x00DB3,0x00DBB), `Delta (0);
+  (0x00DBD,0x00DBD), `Abs (0x00DBD);
+  (0x00DC0,0x00DC6), `Delta (0);
+  (0x00E01,0x00E30), `Delta (0);
+  (0x00E32,0x00E33), `Delta (0);
+  (0x00E40,0x00E45), `Delta (0);
+  (0x00E81,0x00E82), `Delta (0);
+  (0x00E84,0x00E84), `Abs (0x00E84);
+  (0x00E87,0x00E88), `Delta (0);
+  (0x00E8A,0x00E8A), `Abs (0x00E8A);
+  (0x00E8D,0x00E8D), `Abs (0x00E8D);
+  (0x00E94,0x00E97), `Delta (0);
+  (0x00E99,0x00E9F), `Delta (0);
+  (0x00EA1,0x00EA3), `Delta (0);
+  (0x00EA5,0x00EA5), `Abs (0x00EA5);
+  (0x00EA7,0x00EA7), `Abs (0x00EA7);
+  (0x00EAA,0x00EAB), `Delta (0);
+  (0x00EAD,0x00EB0), `Delta (0);
+  (0x00EB2,0x00EB3), `Delta (0);
+  (0x00EBD,0x00EBD), `Abs (0x00EBD);
+  (0x00EC0,0x00EC4), `Delta (0);
+  (0x00EDC,0x00EDF), `Delta (0);
+  (0x00F00,0x00F00), `Abs (0x00F00);
+  (0x00F40,0x00F47), `Delta (0);
+  (0x00F49,0x00F6C), `Delta (0);
+  (0x00F88,0x00F8C), `Delta (0);
+  (0x01000,0x0102A), `Delta (0);
+  (0x0103F,0x0103F), `Abs (0x0103F);
+  (0x01050,0x01055), `Delta (0);
+  (0x0105A,0x0105D), `Delta (0);
+  (0x01061,0x01061), `Abs (0x01061);
+  (0x01065,0x01066), `Delta (0);
+  (0x0106E,0x01070), `Delta (0);
+  (0x01075,0x01081), `Delta (0);
+  (0x0108E,0x0108E), `Abs (0x0108E);
+  (0x010D0,0x010FA), `Delta (0);
+  (0x010FD,0x01248), `Delta (0);
+  (0x0124A,0x0124D), `Delta (0);
+  (0x01250,0x01256), `Delta (0);
+  (0x01258,0x01258), `Abs (0x01258);
+  (0x0125A,0x0125D), `Delta (0);
+  (0x01260,0x01288), `Delta (0);
+  (0x0128A,0x0128D), `Delta (0);
+  (0x01290,0x012B0), `Delta (0);
+  (0x012B2,0x012B5), `Delta (0);
+  (0x012B8,0x012BE), `Delta (0);
+  (0x012C0,0x012C0), `Abs (0x012C0);
+  (0x012C2,0x012C5), `Delta (0);
+  (0x012C8,0x012D6), `Delta (0);
+  (0x012D8,0x01310), `Delta (0);
+  (0x01312,0x01315), `Delta (0);
+  (0x01318,0x0135A), `Delta (0);
+  (0x01380,0x0138F), `Delta (0);
+  (0x01401,0x0166C), `Delta (0);
+  (0x0166F,0x0167F), `Delta (0);
+  (0x01681,0x0169A), `Delta (0);
+  (0x016A0,0x016EA), `Delta (0);
+  (0x016F1,0x016F8), `Delta (0);
+  (0x01700,0x0170C), `Delta (0);
+  (0x0170E,0x01711), `Delta (0);
+  (0x01720,0x01731), `Delta (0);
+  (0x01740,0x01751), `Delta (0);
+  (0x01760,0x0176C), `Delta (0);
+  (0x0176E,0x01770), `Delta (0);
+  (0x01780,0x017B3), `Delta (0);
+  (0x017DC,0x017DC), `Abs (0x017DC);
+  (0x01820,0x01842), `Delta (0);
+  (0x01844,0x01877), `Delta (0);
+  (0x01880,0x01884), `Delta (0);
+  (0x01887,0x018A8), `Delta (0);
+  (0x018AA,0x018AA), `Abs (0x018AA);
+  (0x018B0,0x018F5), `Delta (0);
+  (0x01900,0x0191E), `Delta (0);
+  (0x01950,0x0196D), `Delta (0);
+  (0x01970,0x01974), `Delta (0);
+  (0x01980,0x019AB), `Delta (0);
+  (0x019B0,0x019C9), `Delta (0);
+  (0x01A00,0x01A16), `Delta (0);
+  (0x01A20,0x01A54), `Delta (0);
+  (0x01B05,0x01B33), `Delta (0);
+  (0x01B45,0x01B4B), `Delta (0);
+  (0x01B83,0x01BA0), `Delta (0);
+  (0x01BAE,0x01BAF), `Delta (0);
+  (0x01BBA,0x01BE5), `Delta (0);
+  (0x01C00,0x01C23), `Delta (0);
+  (0x01C4D,0x01C4F), `Delta (0);
+  (0x01C5A,0x01C77), `Delta (0);
+  (0x01CE9,0x01CEC), `Delta (0);
+  (0x01CEE,0x01CF1), `Delta (0);
+  (0x01CF5,0x01CF6), `Delta (0);
+  (0x02135,0x02138), `Delta (0);
+  (0x02D30,0x02D67), `Delta (0);
+  (0x02D80,0x02D96), `Delta (0);
+  (0x02DA0,0x02DA6), `Delta (0);
+  (0x02DA8,0x02DAE), `Delta (0);
+  (0x02DB0,0x02DB6), `Delta (0);
+  (0x02DB8,0x02DBE), `Delta (0);
+  (0x02DC0,0x02DC6), `Delta (0);
+  (0x02DC8,0x02DCE), `Delta (0);
+  (0x02DD0,0x02DD6), `Delta (0);
+  (0x02DD8,0x02DDE), `Delta (0);
+  (0x03006,0x03006), `Abs (0x03006);
+  (0x0303C,0x0303C), `Abs (0x0303C);
+  (0x03041,0x03096), `Delta (0);
+  (0x0309F,0x0309F), `Abs (0x0309F);
+  (0x030A1,0x030FA), `Delta (0);
+  (0x030FF,0x030FF), `Abs (0x030FF);
+  (0x03105,0x0312D), `Delta (0);
+  (0x03131,0x0318E), `Delta (0);
+  (0x031A0,0x031BA), `Delta (0);
+  (0x031F0,0x031FF), `Delta (0);
+  (0x03400,0x04DB5), `Delta (0);
+  (0x04E00,0x09FD5), `Delta (0);
+  (0x0A000,0x0A014), `Delta (0);
+  (0x0A016,0x0A48C), `Delta (0);
+  (0x0A4D0,0x0A4F7), `Delta (0);
+  (0x0A500,0x0A60B), `Delta (0);
+  (0x0A610,0x0A61F), `Delta (0);
+  (0x0A62A,0x0A62B), `Delta (0);
+  (0x0A66E,0x0A66E), `Abs (0x0A66E);
+  (0x0A6A0,0x0A6E5), `Delta (0);
+  (0x0A78F,0x0A78F), `Abs (0x0A78F);
+  (0x0A7F7,0x0A7F7), `Abs (0x0A7F7);
+  (0x0A7FB,0x0A801), `Delta (0);
+  (0x0A803,0x0A805), `Delta (0);
+  (0x0A807,0x0A80A), `Delta (0);
+  (0x0A80C,0x0A822), `Delta (0);
+  (0x0A840,0x0A873), `Delta (0);
+  (0x0A882,0x0A8B3), `Delta (0);
+  (0x0A8F2,0x0A8F7), `Delta (0);
+  (0x0A8FB,0x0A8FB), `Abs (0x0A8FB);
+  (0x0A8FD,0x0A8FD), `Abs (0x0A8FD);
+  (0x0A90A,0x0A925), `Delta (0);
+  (0x0A930,0x0A946), `Delta (0);
+  (0x0A960,0x0A97C), `Delta (0);
+  (0x0A984,0x0A9B2), `Delta (0);
+  (0x0A9E0,0x0A9E4), `Delta (0);
+  (0x0A9E7,0x0A9EF), `Delta (0);
+  (0x0A9FA,0x0A9FE), `Delta (0);
+  (0x0AA00,0x0AA28), `Delta (0);
+  (0x0AA40,0x0AA42), `Delta (0);
+  (0x0AA44,0x0AA4B), `Delta (0);
+  (0x0AA60,0x0AA6F), `Delta (0);
+  (0x0AA71,0x0AA76), `Delta (0);
+  (0x0AA7A,0x0AA7A), `Abs (0x0AA7A);
+  (0x0AA7E,0x0AAAF), `Delta (0);
+  (0x0AAB1,0x0AAB1), `Abs (0x0AAB1);
+  (0x0AAB5,0x0AAB6), `Delta (0);
+  (0x0AAB9,0x0AABD), `Delta (0);
+  (0x0AAC0,0x0AAC0), `Abs (0x0AAC0);
+  (0x0AAC2,0x0AAC2), `Abs (0x0AAC2);
+  (0x0AADB,0x0AADC), `Delta (0);
+  (0x0AAE0,0x0AAEA), `Delta (0);
+  (0x0AAF2,0x0AAF2), `Abs (0x0AAF2);
+  (0x0AB01,0x0AB06), `Delta (0);
+  (0x0AB09,0x0AB0E), `Delta (0);
+  (0x0AB11,0x0AB16), `Delta (0);
+  (0x0AB20,0x0AB26), `Delta (0);
+  (0x0AB28,0x0AB2E), `Delta (0);
+  (0x0ABC0,0x0ABE2), `Delta (0);
+  (0x0AC00,0x0D7A3), `Delta (0);
+  (0x0D7B0,0x0D7C6), `Delta (0);
+  (0x0D7CB,0x0D7FB), `Delta (0);
+  (0x0F900,0x0FA6D), `Delta (0);
+  (0x0FA70,0x0FAD9), `Delta (0);
+  (0x0FB1D,0x0FB1D), `Abs (0x0FB1D);
+  (0x0FB1F,0x0FB28), `Delta (0);
+  (0x0FB2A,0x0FB36), `Delta (0);
+  (0x0FB38,0x0FB3C), `Delta (0);
+  (0x0FB3E,0x0FB3E), `Abs (0x0FB3E);
+  (0x0FB40,0x0FB41), `Delta (0);
+  (0x0FB43,0x0FB44), `Delta (0);
+  (0x0FB46,0x0FBB1), `Delta (0);
+  (0x0FBD3,0x0FD3D), `Delta (0);
+  (0x0FD50,0x0FD8F), `Delta (0);
+  (0x0FD92,0x0FDC7), `Delta (0);
+  (0x0FDF0,0x0FDFB), `Delta (0);
+  (0x0FE70,0x0FE74), `Delta (0);
+  (0x0FE76,0x0FEFC), `Delta (0);
+  (0x0FF66,0x0FF6F), `Delta (0);
+  (0x0FF71,0x0FF9D), `Delta (0);
+  (0x0FFA0,0x0FFBE), `Delta (0);
+  (0x0FFC2,0x0FFC7), `Delta (0);
+  (0x0FFCA,0x0FFCF), `Delta (0);
+  (0x0FFD2,0x0FFD7), `Delta (0);
+  (0x0FFDA,0x0FFDC), `Delta (0);
+  (0x10000,0x1000B), `Delta (0);
+  (0x1000D,0x10026), `Delta (0);
+  (0x10028,0x1003A), `Delta (0);
+  (0x1003C,0x1003D), `Delta (0);
+  (0x1003F,0x1004D), `Delta (0);
+  (0x10050,0x1005D), `Delta (0);
+  (0x10080,0x100FA), `Delta (0);
+  (0x10280,0x1029C), `Delta (0);
+  (0x102A0,0x102D0), `Delta (0);
+  (0x10300,0x1031F), `Delta (0);
+  (0x10330,0x10340), `Delta (0);
+  (0x10342,0x10349), `Delta (0);
+  (0x10350,0x10375), `Delta (0);
+  (0x10380,0x1039D), `Delta (0);
+  (0x103A0,0x103C3), `Delta (0);
+  (0x103C8,0x103CF), `Delta (0);
+  (0x10450,0x1049D), `Delta (0);
+  (0x10500,0x10527), `Delta (0);
+  (0x10530,0x10563), `Delta (0);
+  (0x10600,0x10736), `Delta (0);
+  (0x10740,0x10755), `Delta (0);
+  (0x10760,0x10767), `Delta (0);
+  (0x10800,0x10805), `Delta (0);
+  (0x10808,0x10808), `Abs (0x10808);
+  (0x1080A,0x10835), `Delta (0);
+  (0x10837,0x10838), `Delta (0);
+  (0x1083C,0x1083C), `Abs (0x1083C);
+  (0x1083F,0x10855), `Delta (0);
+  (0x10860,0x10876), `Delta (0);
+  (0x10880,0x1089E), `Delta (0);
+  (0x108E0,0x108F2), `Delta (0);
+  (0x108F4,0x108F5), `Delta (0);
+  (0x10900,0x10915), `Delta (0);
+  (0x10920,0x10939), `Delta (0);
+  (0x10980,0x109B7), `Delta (0);
+  (0x109BE,0x109BF), `Delta (0);
+  (0x10A00,0x10A00), `Abs (0x10A00);
+  (0x10A10,0x10A13), `Delta (0);
+  (0x10A15,0x10A17), `Delta (0);
+  (0x10A19,0x10A33), `Delta (0);
+  (0x10A60,0x10A7C), `Delta (0);
+  (0x10A80,0x10A9C), `Delta (0);
+  (0x10AC0,0x10AC7), `Delta (0);
+  (0x10AC9,0x10AE4), `Delta (0);
+  (0x10B00,0x10B35), `Delta (0);
+  (0x10B40,0x10B55), `Delta (0);
+  (0x10B60,0x10B72), `Delta (0);
+  (0x10B80,0x10B91), `Delta (0);
+  (0x10C00,0x10C48), `Delta (0);
+  (0x11003,0x11037), `Delta (0);
+  (0x11083,0x110AF), `Delta (0);
+  (0x110D0,0x110E8), `Delta (0);
+  (0x11103,0x11126), `Delta (0);
+  (0x11150,0x11172), `Delta (0);
+  (0x11176,0x11176), `Abs (0x11176);
+  (0x11183,0x111B2), `Delta (0);
+  (0x111C1,0x111C4), `Delta (0);
+  (0x111DA,0x111DA), `Abs (0x111DA);
+  (0x111DC,0x111DC), `Abs (0x111DC);
+  (0x11200,0x11211), `Delta (0);
+  (0x11213,0x1122B), `Delta (0);
+  (0x11280,0x11286), `Delta (0);
+  (0x11288,0x11288), `Abs (0x11288);
+  (0x1128A,0x1128D), `Delta (0);
+  (0x1128F,0x1129D), `Delta (0);
+  (0x1129F,0x112A8), `Delta (0);
+  (0x112B0,0x112DE), `Delta (0);
+  (0x11305,0x1130C), `Delta (0);
+  (0x1130F,0x11310), `Delta (0);
+  (0x11313,0x11328), `Delta (0);
+  (0x1132A,0x11330), `Delta (0);
+  (0x11332,0x11333), `Delta (0);
+  (0x11335,0x11339), `Delta (0);
+  (0x1133D,0x1133D), `Abs (0x1133D);
+  (0x11350,0x11350), `Abs (0x11350);
+  (0x1135D,0x11361), `Delta (0);
+  (0x11400,0x11434), `Delta (0);
+  (0x11447,0x1144A), `Delta (0);
+  (0x11480,0x114AF), `Delta (0);
+  (0x114C4,0x114C5), `Delta (0);
+  (0x114C7,0x114C7), `Abs (0x114C7);
+  (0x11580,0x115AE), `Delta (0);
+  (0x115D8,0x115DB), `Delta (0);
+  (0x11600,0x1162F), `Delta (0);
+  (0x11644,0x11644), `Abs (0x11644);
+  (0x11680,0x116AA), `Delta (0);
+  (0x11700,0x11719), `Delta (0);
+  (0x118FF,0x118FF), `Abs (0x118FF);
+  (0x11AC0,0x11AF8), `Delta (0);
+  (0x11C00,0x11C08), `Delta (0);
+  (0x11C0A,0x11C2E), `Delta (0);
+  (0x11C40,0x11C40), `Abs (0x11C40);
+  (0x11C72,0x11C8F), `Delta (0);
+  (0x12000,0x12399), `Delta (0);
+  (0x12480,0x12543), `Delta (0);
+  (0x13000,0x1342E), `Delta (0);
+  (0x14400,0x14646), `Delta (0);
+  (0x16800,0x16A38), `Delta (0);
+  (0x16A40,0x16A5E), `Delta (0);
+  (0x16AD0,0x16AED), `Delta (0);
+  (0x16B00,0x16B2F), `Delta (0);
+  (0x16B63,0x16B77), `Delta (0);
+  (0x16B7D,0x16B8F), `Delta (0);
+  (0x16F00,0x16F44), `Delta (0);
+  (0x16F50,0x16F50), `Abs (0x16F50);
+  (0x17000,0x187EC), `Delta (0);
+  (0x18800,0x18AF2), `Delta (0);
+  (0x1B000,0x1B001), `Delta (0);
+  (0x1BC00,0x1BC6A), `Delta (0);
+  (0x1BC70,0x1BC7C), `Delta (0);
+  (0x1BC80,0x1BC88), `Delta (0);
+  (0x1BC90,0x1BC99), `Delta (0);
+  (0x1E800,0x1E8C4), `Delta (0);
+  (0x1EE00,0x1EE03), `Delta (0);
+  (0x1EE05,0x1EE1F), `Delta (0);
+  (0x1EE21,0x1EE22), `Delta (0);
+  (0x1EE24,0x1EE24), `Abs (0x1EE24);
+  (0x1EE27,0x1EE27), `Abs (0x1EE27);
+  (0x1EE29,0x1EE32), `Delta (0);
+  (0x1EE34,0x1EE37), `Delta (0);
+  (0x1EE39,0x1EE39), `Abs (0x1EE39);
+  (0x1EE3B,0x1EE3B), `Abs (0x1EE3B);
+  (0x1EE42,0x1EE42), `Abs (0x1EE42);
+  (0x1EE47,0x1EE47), `Abs (0x1EE47);
+  (0x1EE49,0x1EE49), `Abs (0x1EE49);
+  (0x1EE4B,0x1EE4B), `Abs (0x1EE4B);
+  (0x1EE4D,0x1EE4F), `Delta (0);
+  (0x1EE51,0x1EE52), `Delta (0);
+  (0x1EE54,0x1EE54), `Abs (0x1EE54);
+  (0x1EE57,0x1EE57), `Abs (0x1EE57);
+  (0x1EE59,0x1EE59), `Abs (0x1EE59);
+  (0x1EE5B,0x1EE5B), `Abs (0x1EE5B);
+  (0x1EE5D,0x1EE5D), `Abs (0x1EE5D);
+  (0x1EE5F,0x1EE5F), `Abs (0x1EE5F);
+  (0x1EE61,0x1EE62), `Delta (0);
+  (0x1EE64,0x1EE64), `Abs (0x1EE64);
+  (0x1EE67,0x1EE6A), `Delta (0);
+  (0x1EE6C,0x1EE72), `Delta (0);
+  (0x1EE74,0x1EE77), `Delta (0);
+  (0x1EE79,0x1EE7C), `Delta (0);
+  (0x1EE7E,0x1EE7E), `Abs (0x1EE7E);
+  (0x1EE80,0x1EE89), `Delta (0);
+  (0x1EE8B,0x1EE9B), `Delta (0);
+  (0x1EEA1,0x1EEA3), `Delta (0);
+  (0x1EEA5,0x1EEA9), `Delta (0);
+  (0x1EEAB,0x1EEBB), `Delta (0);
+  (0x20000,0x2A6D6), `Delta (0);
+  (0x2A700,0x2B734), `Delta (0);
+  (0x2B740,0x2B81D), `Delta (0);
+  (0x2B820,0x2CEA1), `Delta (0);
+  (0x2F800,0x2FA1D), `Delta (0);
+  (0x0005F,0x0005F), `Abs (0x0005F);
+  (0x0203F,0x02040), `Delta (0);
+  (0x02054,0x02054), `Abs (0x02054);
+  (0x0FE33,0x0FE34), `Delta (0);
+  (0x0FE4D,0x0FE4F), `Delta (0);
+  (0x0FF3F,0x0FF3F), `Abs (0x0FF3F);
+  (0x0002D,0x0002D), `Abs (0x0002D);
+  (0x0058A,0x0058A), `Abs (0x0058A);
+  (0x005BE,0x005BE), `Abs (0x005BE);
+  (0x01400,0x01400), `Abs (0x01400);
+  (0x01806,0x01806), `Abs (0x01806);
+  (0x02010,0x02015), `Delta (0);
+  (0x02E17,0x02E17), `Abs (0x02E17);
+  (0x02E1A,0x02E1A), `Abs (0x02E1A);
+  (0x02E3A,0x02E3B), `Delta (0);
+  (0x02E40,0x02E40), `Abs (0x02E40);
+  (0x0301C,0x0301C), `Abs (0x0301C);
+  (0x03030,0x03030), `Abs (0x03030);
+  (0x030A0,0x030A0), `Abs (0x030A0);
+  (0x0FE31,0x0FE32), `Delta (0);
+  (0x0FE58,0x0FE58), `Abs (0x0FE58);
+  (0x0FE63,0x0FE63), `Abs (0x0FE63);
+  (0x0FF0D,0x0FF0D), `Abs (0x0FF0D);
+  (0x00028,0x00028), `Abs (0x00028);
+  (0x0005B,0x0005B), `Abs (0x0005B);
+  (0x0007B,0x0007B), `Abs (0x0007B);
+  (0x00F3A,0x00F3A), `Abs (0x00F3A);
+  (0x00F3C,0x00F3C), `Abs (0x00F3C);
+  (0x0169B,0x0169B), `Abs (0x0169B);
+  (0x0201A,0x0201A), `Abs (0x0201A);
+  (0x0201E,0x0201E), `Abs (0x0201E);
+  (0x02045,0x02045), `Abs (0x02045);
+  (0x0207D,0x0207D), `Abs (0x0207D);
+  (0x0208D,0x0208D), `Abs (0x0208D);
+  (0x02308,0x02308), `Abs (0x02308);
+  (0x0230A,0x0230A), `Abs (0x0230A);
+  (0x02329,0x02329), `Abs (0x02329);
+  (0x02768,0x02768), `Abs (0x02768);
+  (0x0276A,0x0276A), `Abs (0x0276A);
+  (0x0276C,0x0276C), `Abs (0x0276C);
+  (0x0276E,0x0276E), `Abs (0x0276E);
+  (0x02770,0x02770), `Abs (0x02770);
+  (0x02772,0x02772), `Abs (0x02772);
+  (0x02774,0x02774), `Abs (0x02774);
+  (0x027C5,0x027C5), `Abs (0x027C5);
+  (0x027E6,0x027E6), `Abs (0x027E6);
+  (0x027E8,0x027E8), `Abs (0x027E8);
+  (0x027EA,0x027EA), `Abs (0x027EA);
+  (0x027EC,0x027EC), `Abs (0x027EC);
+  (0x027EE,0x027EE), `Abs (0x027EE);
+  (0x02983,0x02983), `Abs (0x02983);
+  (0x02985,0x02985), `Abs (0x02985);
+  (0x02987,0x02987), `Abs (0x02987);
+  (0x02989,0x02989), `Abs (0x02989);
+  (0x0298B,0x0298B), `Abs (0x0298B);
+  (0x0298D,0x0298D), `Abs (0x0298D);
+  (0x0298F,0x0298F), `Abs (0x0298F);
+  (0x02991,0x02991), `Abs (0x02991);
+  (0x02993,0x02993), `Abs (0x02993);
+  (0x02995,0x02995), `Abs (0x02995);
+  (0x02997,0x02997), `Abs (0x02997);
+  (0x029D8,0x029D8), `Abs (0x029D8);
+  (0x029DA,0x029DA), `Abs (0x029DA);
+  (0x029FC,0x029FC), `Abs (0x029FC);
+  (0x02E22,0x02E22), `Abs (0x02E22);
+  (0x02E24,0x02E24), `Abs (0x02E24);
+  (0x02E26,0x02E26), `Abs (0x02E26);
+  (0x02E28,0x02E28), `Abs (0x02E28);
+  (0x02E42,0x02E42), `Abs (0x02E42);
+  (0x03008,0x03008), `Abs (0x03008);
+  (0x0300A,0x0300A), `Abs (0x0300A);
+  (0x0300C,0x0300C), `Abs (0x0300C);
+  (0x0300E,0x0300E), `Abs (0x0300E);
+  (0x03010,0x03010), `Abs (0x03010);
+  (0x03014,0x03014), `Abs (0x03014);
+  (0x03016,0x03016), `Abs (0x03016);
+  (0x03018,0x03018), `Abs (0x03018);
+  (0x0301A,0x0301A), `Abs (0x0301A);
+  (0x0301D,0x0301D), `Abs (0x0301D);
+  (0x0FD3F,0x0FD3F), `Abs (0x0FD3F);
+  (0x0FE17,0x0FE17), `Abs (0x0FE17);
+  (0x0FE35,0x0FE35), `Abs (0x0FE35);
+  (0x0FE37,0x0FE37), `Abs (0x0FE37);
+  (0x0FE39,0x0FE39), `Abs (0x0FE39);
+  (0x0FE3B,0x0FE3B), `Abs (0x0FE3B);
+  (0x0FE3D,0x0FE3D), `Abs (0x0FE3D);
+  (0x0FE3F,0x0FE3F), `Abs (0x0FE3F);
+  (0x0FE41,0x0FE41), `Abs (0x0FE41);
+  (0x0FE43,0x0FE43), `Abs (0x0FE43);
+  (0x0FE47,0x0FE47), `Abs (0x0FE47);
+  (0x0FE59,0x0FE59), `Abs (0x0FE59);
+  (0x0FE5B,0x0FE5B), `Abs (0x0FE5B);
+  (0x0FE5D,0x0FE5D), `Abs (0x0FE5D);
+  (0x0FF08,0x0FF08), `Abs (0x0FF08);
+  (0x0FF3B,0x0FF3B), `Abs (0x0FF3B);
+  (0x0FF5B,0x0FF5B), `Abs (0x0FF5B);
+  (0x0FF5F,0x0FF5F), `Abs (0x0FF5F);
+  (0x0FF62,0x0FF62), `Abs (0x0FF62);
+  (0x00029,0x00029), `Abs (0x00029);
+  (0x0005D,0x0005D), `Abs (0x0005D);
+  (0x0007D,0x0007D), `Abs (0x0007D);
+  (0x00F3B,0x00F3B), `Abs (0x00F3B);
+  (0x00F3D,0x00F3D), `Abs (0x00F3D);
+  (0x0169C,0x0169C), `Abs (0x0169C);
+  (0x02046,0x02046), `Abs (0x02046);
+  (0x0207E,0x0207E), `Abs (0x0207E);
+  (0x0208E,0x0208E), `Abs (0x0208E);
+  (0x02309,0x02309), `Abs (0x02309);
+  (0x0230B,0x0230B), `Abs (0x0230B);
+  (0x0232A,0x0232A), `Abs (0x0232A);
+  (0x02769,0x02769), `Abs (0x02769);
+  (0x0276B,0x0276B), `Abs (0x0276B);
+  (0x0276D,0x0276D), `Abs (0x0276D);
+  (0x0276F,0x0276F), `Abs (0x0276F);
+  (0x02771,0x02771), `Abs (0x02771);
+  (0x02773,0x02773), `Abs (0x02773);
+  (0x02775,0x02775), `Abs (0x02775);
+  (0x027C6,0x027C6), `Abs (0x027C6);
+  (0x027E7,0x027E7), `Abs (0x027E7);
+  (0x027E9,0x027E9), `Abs (0x027E9);
+  (0x027EB,0x027EB), `Abs (0x027EB);
+  (0x027ED,0x027ED), `Abs (0x027ED);
+  (0x027EF,0x027EF), `Abs (0x027EF);
+  (0x02984,0x02984), `Abs (0x02984);
+  (0x02986,0x02986), `Abs (0x02986);
+  (0x02988,0x02988), `Abs (0x02988);
+  (0x0298A,0x0298A), `Abs (0x0298A);
+  (0x0298C,0x0298C), `Abs (0x0298C);
+  (0x0298E,0x0298E), `Abs (0x0298E);
+  (0x02990,0x02990), `Abs (0x02990);
+  (0x02992,0x02992), `Abs (0x02992);
+  (0x02994,0x02994), `Abs (0x02994);
+  (0x02996,0x02996), `Abs (0x02996);
+  (0x02998,0x02998), `Abs (0x02998);
+  (0x029D9,0x029D9), `Abs (0x029D9);
+  (0x029DB,0x029DB), `Abs (0x029DB);
+  (0x029FD,0x029FD), `Abs (0x029FD);
+  (0x02E23,0x02E23), `Abs (0x02E23);
+  (0x02E25,0x02E25), `Abs (0x02E25);
+  (0x02E27,0x02E27), `Abs (0x02E27);
+  (0x02E29,0x02E29), `Abs (0x02E29);
+  (0x03009,0x03009), `Abs (0x03009);
+  (0x0300B,0x0300B), `Abs (0x0300B);
+  (0x0300D,0x0300D), `Abs (0x0300D);
+  (0x0300F,0x0300F), `Abs (0x0300F);
+  (0x03011,0x03011), `Abs (0x03011);
+  (0x03015,0x03015), `Abs (0x03015);
+  (0x03017,0x03017), `Abs (0x03017);
+  (0x03019,0x03019), `Abs (0x03019);
+  (0x0301B,0x0301B), `Abs (0x0301B);
+  (0x0301E,0x0301F), `Delta (0);
+  (0x0FD3E,0x0FD3E), `Abs (0x0FD3E);
+  (0x0FE18,0x0FE18), `Abs (0x0FE18);
+  (0x0FE36,0x0FE36), `Abs (0x0FE36);
+  (0x0FE38,0x0FE38), `Abs (0x0FE38);
+  (0x0FE3A,0x0FE3A), `Abs (0x0FE3A);
+  (0x0FE3C,0x0FE3C), `Abs (0x0FE3C);
+  (0x0FE3E,0x0FE3E), `Abs (0x0FE3E);
+  (0x0FE40,0x0FE40), `Abs (0x0FE40);
+  (0x0FE42,0x0FE42), `Abs (0x0FE42);
+  (0x0FE44,0x0FE44), `Abs (0x0FE44);
+  (0x0FE48,0x0FE48), `Abs (0x0FE48);
+  (0x0FE5A,0x0FE5A), `Abs (0x0FE5A);
+  (0x0FE5C,0x0FE5C), `Abs (0x0FE5C);
+  (0x0FE5E,0x0FE5E), `Abs (0x0FE5E);
+  (0x0FF09,0x0FF09), `Abs (0x0FF09);
+  (0x0FF3D,0x0FF3D), `Abs (0x0FF3D);
+  (0x0FF5D,0x0FF5D), `Abs (0x0FF5D);
+  (0x0FF60,0x0FF60), `Abs (0x0FF60);
+  (0x0FF63,0x0FF63), `Abs (0x0FF63);
+  (0x000AB,0x000AB), `Abs (0x000AB);
+  (0x02018,0x02018), `Abs (0x02018);
+  (0x0201B,0x0201C), `Delta (0);
+  (0x0201F,0x0201F), `Abs (0x0201F);
+  (0x02039,0x02039), `Abs (0x02039);
+  (0x02E02,0x02E02), `Abs (0x02E02);
+  (0x02E04,0x02E04), `Abs (0x02E04);
+  (0x02E09,0x02E09), `Abs (0x02E09);
+  (0x02E0C,0x02E0C), `Abs (0x02E0C);
+  (0x02E1C,0x02E1C), `Abs (0x02E1C);
+  (0x02E20,0x02E20), `Abs (0x02E20);
+  (0x000BB,0x000BB), `Abs (0x000BB);
+  (0x02019,0x02019), `Abs (0x02019);
+  (0x0201D,0x0201D), `Abs (0x0201D);
+  (0x0203A,0x0203A), `Abs (0x0203A);
+  (0x02E03,0x02E03), `Abs (0x02E03);
+  (0x02E05,0x02E05), `Abs (0x02E05);
+  (0x02E0A,0x02E0A), `Abs (0x02E0A);
+  (0x02E0D,0x02E0D), `Abs (0x02E0D);
+  (0x02E1D,0x02E1D), `Abs (0x02E1D);
+  (0x02E21,0x02E21), `Abs (0x02E21);
+  (0x00021,0x00023), `Delta (0);
+  (0x00025,0x00027), `Delta (0);
+  (0x0002A,0x0002A), `Abs (0x0002A);
+  (0x0002C,0x0002C), `Abs (0x0002C);
+  (0x0002E,0x0002F), `Delta (0);
+  (0x0003A,0x0003B), `Delta (0);
+  (0x0003F,0x00040), `Delta (0);
+  (0x0005C,0x0005C), `Abs (0x0005C);
+  (0x000A1,0x000A1), `Abs (0x000A1);
+  (0x000A7,0x000A7), `Abs (0x000A7);
+  (0x000B6,0x000B7), `Delta (0);
+  (0x000BF,0x000BF), `Abs (0x000BF);
+  (0x0037E,0x0037E), `Abs (0x0037E);
+  (0x00387,0x00387), `Abs (0x00387);
+  (0x0055A,0x0055F), `Delta (0);
+  (0x00589,0x00589), `Abs (0x00589);
+  (0x005C0,0x005C0), `Abs (0x005C0);
+  (0x005C3,0x005C3), `Abs (0x005C3);
+  (0x005C6,0x005C6), `Abs (0x005C6);
+  (0x005F3,0x005F4), `Delta (0);
+  (0x00609,0x0060A), `Delta (0);
+  (0x0060C,0x0060D), `Delta (0);
+  (0x0061B,0x0061B), `Abs (0x0061B);
+  (0x0061E,0x0061F), `Delta (0);
+  (0x0066A,0x0066D), `Delta (0);
+  (0x006D4,0x006D4), `Abs (0x006D4);
+  (0x00700,0x0070D), `Delta (0);
+  (0x007F7,0x007F9), `Delta (0);
+  (0x00830,0x0083E), `Delta (0);
+  (0x0085E,0x0085E), `Abs (0x0085E);
+  (0x00964,0x00965), `Delta (0);
+  (0x00970,0x00970), `Abs (0x00970);
+  (0x00AF0,0x00AF0), `Abs (0x00AF0);
+  (0x00DF4,0x00DF4), `Abs (0x00DF4);
+  (0x00E4F,0x00E4F), `Abs (0x00E4F);
+  (0x00E5A,0x00E5B), `Delta (0);
+  (0x00F04,0x00F12), `Delta (0);
+  (0x00F14,0x00F14), `Abs (0x00F14);
+  (0x00F85,0x00F85), `Abs (0x00F85);
+  (0x00FD0,0x00FD4), `Delta (0);
+  (0x00FD9,0x00FDA), `Delta (0);
+  (0x0104A,0x0104F), `Delta (0);
+  (0x010FB,0x010FB), `Abs (0x010FB);
+  (0x01360,0x01368), `Delta (0);
+  (0x0166D,0x0166E), `Delta (0);
+  (0x016EB,0x016ED), `Delta (0);
+  (0x01735,0x01736), `Delta (0);
+  (0x017D4,0x017D6), `Delta (0);
+  (0x017D8,0x017DA), `Delta (0);
+  (0x01800,0x01805), `Delta (0);
+  (0x01807,0x0180A), `Delta (0);
+  (0x01944,0x01945), `Delta (0);
+  (0x01A1E,0x01A1F), `Delta (0);
+  (0x01AA0,0x01AA6), `Delta (0);
+  (0x01AA8,0x01AAD), `Delta (0);
+  (0x01B5A,0x01B60), `Delta (0);
+  (0x01BFC,0x01BFF), `Delta (0);
+  (0x01C3B,0x01C3F), `Delta (0);
+  (0x01C7E,0x01C7F), `Delta (0);
+  (0x01CC0,0x01CC7), `Delta (0);
+  (0x01CD3,0x01CD3), `Abs (0x01CD3);
+  (0x02016,0x02017), `Delta (0);
+  (0x02020,0x02027), `Delta (0);
+  (0x02030,0x02038), `Delta (0);
+  (0x0203B,0x0203E), `Delta (0);
+  (0x02041,0x02043), `Delta (0);
+  (0x02047,0x02051), `Delta (0);
+  (0x02053,0x02053), `Abs (0x02053);
+  (0x02055,0x0205E), `Delta (0);
+  (0x02CF9,0x02CFC), `Delta (0);
+  (0x02CFE,0x02CFF), `Delta (0);
+  (0x02D70,0x02D70), `Abs (0x02D70);
+  (0x02E00,0x02E01), `Delta (0);
+  (0x02E06,0x02E08), `Delta (0);
+  (0x02E0B,0x02E0B), `Abs (0x02E0B);
+  (0x02E0E,0x02E16), `Delta (0);
+  (0x02E18,0x02E19), `Delta (0);
+  (0x02E1B,0x02E1B), `Abs (0x02E1B);
+  (0x02E1E,0x02E1F), `Delta (0);
+  (0x02E2A,0x02E2E), `Delta (0);
+  (0x02E30,0x02E39), `Delta (0);
+  (0x02E3C,0x02E3F), `Delta (0);
+  (0x02E41,0x02E41), `Abs (0x02E41);
+  (0x02E43,0x02E44), `Delta (0);
+  (0x03001,0x03003), `Delta (0);
+  (0x0303D,0x0303D), `Abs (0x0303D);
+  (0x030FB,0x030FB), `Abs (0x030FB);
+  (0x0A4FE,0x0A4FF), `Delta (0);
+  (0x0A60D,0x0A60F), `Delta (0);
+  (0x0A673,0x0A673), `Abs (0x0A673);
+  (0x0A67E,0x0A67E), `Abs (0x0A67E);
+  (0x0A6F2,0x0A6F7), `Delta (0);
+  (0x0A874,0x0A877), `Delta (0);
+  (0x0A8CE,0x0A8CF), `Delta (0);
+  (0x0A8F8,0x0A8FA), `Delta (0);
+  (0x0A8FC,0x0A8FC), `Abs (0x0A8FC);
+  (0x0A92E,0x0A92F), `Delta (0);
+  (0x0A95F,0x0A95F), `Abs (0x0A95F);
+  (0x0A9C1,0x0A9CD), `Delta (0);
+  (0x0A9DE,0x0A9DF), `Delta (0);
+  (0x0AA5C,0x0AA5F), `Delta (0);
+  (0x0AADE,0x0AADF), `Delta (0);
+  (0x0AAF0,0x0AAF1), `Delta (0);
+  (0x0ABEB,0x0ABEB), `Abs (0x0ABEB);
+  (0x0FE10,0x0FE16), `Delta (0);
+  (0x0FE19,0x0FE19), `Abs (0x0FE19);
+  (0x0FE30,0x0FE30), `Abs (0x0FE30);
+  (0x0FE45,0x0FE46), `Delta (0);
+  (0x0FE49,0x0FE4C), `Delta (0);
+  (0x0FE50,0x0FE52), `Delta (0);
+  (0x0FE54,0x0FE57), `Delta (0);
+  (0x0FE5F,0x0FE61), `Delta (0);
+  (0x0FE68,0x0FE68), `Abs (0x0FE68);
+  (0x0FE6A,0x0FE6B), `Delta (0);
+  (0x0FF01,0x0FF03), `Delta (0);
+  (0x0FF05,0x0FF07), `Delta (0);
+  (0x0FF0A,0x0FF0A), `Abs (0x0FF0A);
+  (0x0FF0C,0x0FF0C), `Abs (0x0FF0C);
+  (0x0FF0E,0x0FF0F), `Delta (0);
+  (0x0FF1A,0x0FF1B), `Delta (0);
+  (0x0FF1F,0x0FF20), `Delta (0);
+  (0x0FF3C,0x0FF3C), `Abs (0x0FF3C);
+  (0x0FF61,0x0FF61), `Abs (0x0FF61);
+  (0x0FF64,0x0FF65), `Delta (0);
+  (0x10100,0x10102), `Delta (0);
+  (0x1039F,0x1039F), `Abs (0x1039F);
+  (0x103D0,0x103D0), `Abs (0x103D0);
+  (0x1056F,0x1056F), `Abs (0x1056F);
+  (0x10857,0x10857), `Abs (0x10857);
+  (0x1091F,0x1091F), `Abs (0x1091F);
+  (0x1093F,0x1093F), `Abs (0x1093F);
+  (0x10A50,0x10A58), `Delta (0);
+  (0x10A7F,0x10A7F), `Abs (0x10A7F);
+  (0x10AF0,0x10AF6), `Delta (0);
+  (0x10B39,0x10B3F), `Delta (0);
+  (0x10B99,0x10B9C), `Delta (0);
+  (0x11047,0x1104D), `Delta (0);
+  (0x110BB,0x110BC), `Delta (0);
+  (0x110BE,0x110C1), `Delta (0);
+  (0x11140,0x11143), `Delta (0);
+  (0x11174,0x11175), `Delta (0);
+  (0x111C5,0x111C9), `Delta (0);
+  (0x111CD,0x111CD), `Abs (0x111CD);
+  (0x111DB,0x111DB), `Abs (0x111DB);
+  (0x111DD,0x111DF), `Delta (0);
+  (0x11238,0x1123D), `Delta (0);
+  (0x112A9,0x112A9), `Abs (0x112A9);
+  (0x1144B,0x1144F), `Delta (0);
+  (0x1145B,0x1145B), `Abs (0x1145B);
+  (0x1145D,0x1145D), `Abs (0x1145D);
+  (0x114C6,0x114C6), `Abs (0x114C6);
+  (0x115C1,0x115D7), `Delta (0);
+  (0x11641,0x11643), `Delta (0);
+  (0x11660,0x1166C), `Delta (0);
+  (0x1173C,0x1173E), `Delta (0);
+  (0x11C41,0x11C45), `Delta (0);
+  (0x11C70,0x11C71), `Delta (0);
+  (0x12470,0x12474), `Delta (0);
+  (0x16A6E,0x16A6F), `Delta (0);
+  (0x16AF5,0x16AF5), `Abs (0x16AF5);
+  (0x16B37,0x16B3B), `Delta (0);
+  (0x16B44,0x16B44), `Abs (0x16B44);
+  (0x1BC9F,0x1BC9F), `Abs (0x1BC9F);
+  (0x1DA87,0x1DA8B), `Delta (0);
+  (0x1E95E,0x1E95F), `Delta (0);
+  (0x0002B,0x0002B), `Abs (0x0002B);
+  (0x0003C,0x0003E), `Delta (0);
+  (0x0007C,0x0007C), `Abs (0x0007C);
+  (0x0007E,0x0007E), `Abs (0x0007E);
+  (0x000AC,0x000AC), `Abs (0x000AC);
+  (0x000B1,0x000B1), `Abs (0x000B1);
+  (0x000D7,0x000D7), `Abs (0x000D7);
+  (0x000F7,0x000F7), `Abs (0x000F7);
+  (0x003F6,0x003F6), `Abs (0x003F6);
+  (0x00606,0x00608), `Delta (0);
+  (0x02044,0x02044), `Abs (0x02044);
+  (0x02052,0x02052), `Abs (0x02052);
+  (0x0207A,0x0207C), `Delta (0);
+  (0x0208A,0x0208C), `Delta (0);
+  (0x02118,0x02118), `Abs (0x02118);
+  (0x02140,0x02144), `Delta (0);
+  (0x0214B,0x0214B), `Abs (0x0214B);
+  (0x02190,0x02194), `Delta (0);
+  (0x0219A,0x0219B), `Delta (0);
+  (0x021A0,0x021A0), `Abs (0x021A0);
+  (0x021A3,0x021A3), `Abs (0x021A3);
+  (0x021A6,0x021A6), `Abs (0x021A6);
+  (0x021AE,0x021AE), `Abs (0x021AE);
+  (0x021CE,0x021CF), `Delta (0);
+  (0x021D2,0x021D2), `Abs (0x021D2);
+  (0x021D4,0x021D4), `Abs (0x021D4);
+  (0x021F4,0x022FF), `Delta (0);
+  (0x02320,0x02321), `Delta (0);
+  (0x0237C,0x0237C), `Abs (0x0237C);
+  (0x0239B,0x023B3), `Delta (0);
+  (0x023DC,0x023E1), `Delta (0);
+  (0x025B7,0x025B7), `Abs (0x025B7);
+  (0x025C1,0x025C1), `Abs (0x025C1);
+  (0x025F8,0x025FF), `Delta (0);
+  (0x0266F,0x0266F), `Abs (0x0266F);
+  (0x027C0,0x027C4), `Delta (0);
+  (0x027C7,0x027E5), `Delta (0);
+  (0x027F0,0x027FF), `Delta (0);
+  (0x02900,0x02982), `Delta (0);
+  (0x02999,0x029D7), `Delta (0);
+  (0x029DC,0x029FB), `Delta (0);
+  (0x029FE,0x02AFF), `Delta (0);
+  (0x02B30,0x02B44), `Delta (0);
+  (0x02B47,0x02B4C), `Delta (0);
+  (0x0FB29,0x0FB29), `Abs (0x0FB29);
+  (0x0FE62,0x0FE62), `Abs (0x0FE62);
+  (0x0FE64,0x0FE66), `Delta (0);
+  (0x0FF0B,0x0FF0B), `Abs (0x0FF0B);
+  (0x0FF1C,0x0FF1E), `Delta (0);
+  (0x0FF5C,0x0FF5C), `Abs (0x0FF5C);
+  (0x0FF5E,0x0FF5E), `Abs (0x0FF5E);
+  (0x0FFE2,0x0FFE2), `Abs (0x0FFE2);
+  (0x0FFE9,0x0FFEC), `Delta (0);
+  (0x1D6C1,0x1D6C1), `Abs (0x1D6C1);
+  (0x1D6DB,0x1D6DB), `Abs (0x1D6DB);
+  (0x1D6FB,0x1D6FB), `Abs (0x1D6FB);
+  (0x1D715,0x1D715), `Abs (0x1D715);
+  (0x1D735,0x1D735), `Abs (0x1D735);
+  (0x1D74F,0x1D74F), `Abs (0x1D74F);
+  (0x1D76F,0x1D76F), `Abs (0x1D76F);
+  (0x1D789,0x1D789), `Abs (0x1D789);
+  (0x1D7A9,0x1D7A9), `Abs (0x1D7A9);
+  (0x1D7C3,0x1D7C3), `Abs (0x1D7C3);
+  (0x1EEF0,0x1EEF1), `Delta (0);
+  (0x00024,0x00024), `Abs (0x00024);
+  (0x000A2,0x000A5), `Delta (0);
+  (0x0058F,0x0058F), `Abs (0x0058F);
+  (0x0060B,0x0060B), `Abs (0x0060B);
+  (0x009F2,0x009F3), `Delta (0);
+  (0x009FB,0x009FB), `Abs (0x009FB);
+  (0x00AF1,0x00AF1), `Abs (0x00AF1);
+  (0x00BF9,0x00BF9), `Abs (0x00BF9);
+  (0x00E3F,0x00E3F), `Abs (0x00E3F);
+  (0x017DB,0x017DB), `Abs (0x017DB);
+  (0x020A0,0x020BE), `Delta (0);
+  (0x0A838,0x0A838), `Abs (0x0A838);
+  (0x0FDFC,0x0FDFC), `Abs (0x0FDFC);
+  (0x0FE69,0x0FE69), `Abs (0x0FE69);
+  (0x0FF04,0x0FF04), `Abs (0x0FF04);
+  (0x0FFE0,0x0FFE1), `Delta (0);
+  (0x0FFE5,0x0FFE6), `Delta (0);
+  (0x0005E,0x0005E), `Abs (0x0005E);
+  (0x00060,0x00060), `Abs (0x00060);
+  (0x000A8,0x000A8), `Abs (0x000A8);
+  (0x000AF,0x000AF), `Abs (0x000AF);
+  (0x000B4,0x000B4), `Abs (0x000B4);
+  (0x000B8,0x000B8), `Abs (0x000B8);
+  (0x002C2,0x002C5), `Delta (0);
+  (0x002D2,0x002DF), `Delta (0);
+  (0x002E5,0x002EB), `Delta (0);
+  (0x002ED,0x002ED), `Abs (0x002ED);
+  (0x002EF,0x002FF), `Delta (0);
+  (0x00375,0x00375), `Abs (0x00375);
+  (0x00384,0x00385), `Delta (0);
+  (0x01FBD,0x01FBD), `Abs (0x01FBD);
+  (0x01FBF,0x01FC1), `Delta (0);
+  (0x01FCD,0x01FCF), `Delta (0);
+  (0x01FDD,0x01FDF), `Delta (0);
+  (0x01FED,0x01FEF), `Delta (0);
+  (0x01FFD,0x01FFE), `Delta (0);
+  (0x0309B,0x0309C), `Delta (0);
+  (0x0A700,0x0A716), `Delta (0);
+  (0x0A720,0x0A721), `Delta (0);
+  (0x0A789,0x0A78A), `Delta (0);
+  (0x0AB5B,0x0AB5B), `Abs (0x0AB5B);
+  (0x0FBB2,0x0FBC1), `Delta (0);
+  (0x0FF3E,0x0FF3E), `Abs (0x0FF3E);
+  (0x0FF40,0x0FF40), `Abs (0x0FF40);
+  (0x0FFE3,0x0FFE3), `Abs (0x0FFE3);
+  (0x1F3FB,0x1F3FF), `Delta (0);
+  (0x000A6,0x000A6), `Abs (0x000A6);
+  (0x000A9,0x000A9), `Abs (0x000A9);
+  (0x000AE,0x000AE), `Abs (0x000AE);
+  (0x000B0,0x000B0), `Abs (0x000B0);
+  (0x00482,0x00482), `Abs (0x00482);
+  (0x0058D,0x0058E), `Delta (0);
+  (0x0060E,0x0060F), `Delta (0);
+  (0x006DE,0x006DE), `Abs (0x006DE);
+  (0x006E9,0x006E9), `Abs (0x006E9);
+  (0x006FD,0x006FE), `Delta (0);
+  (0x007F6,0x007F6), `Abs (0x007F6);
+  (0x009FA,0x009FA), `Abs (0x009FA);
+  (0x00B70,0x00B70), `Abs (0x00B70);
+  (0x00BF3,0x00BF8), `Delta (0);
+  (0x00BFA,0x00BFA), `Abs (0x00BFA);
+  (0x00C7F,0x00C7F), `Abs (0x00C7F);
+  (0x00D4F,0x00D4F), `Abs (0x00D4F);
+  (0x00D79,0x00D79), `Abs (0x00D79);
+  (0x00F01,0x00F03), `Delta (0);
+  (0x00F13,0x00F13), `Abs (0x00F13);
+  (0x00F15,0x00F17), `Delta (0);
+  (0x00F1A,0x00F1F), `Delta (0);
+  (0x00F34,0x00F34), `Abs (0x00F34);
+  (0x00F36,0x00F36), `Abs (0x00F36);
+  (0x00F38,0x00F38), `Abs (0x00F38);
+  (0x00FBE,0x00FC5), `Delta (0);
+  (0x00FC7,0x00FCC), `Delta (0);
+  (0x00FCE,0x00FCF), `Delta (0);
+  (0x00FD5,0x00FD8), `Delta (0);
+  (0x0109E,0x0109F), `Delta (0);
+  (0x01390,0x01399), `Delta (0);
+  (0x01940,0x01940), `Abs (0x01940);
+  (0x019DE,0x019FF), `Delta (0);
+  (0x01B61,0x01B6A), `Delta (0);
+  (0x01B74,0x01B7C), `Delta (0);
+  (0x02100,0x02101), `Delta (0);
+  (0x02103,0x02106), `Delta (0);
+  (0x02108,0x02109), `Delta (0);
+  (0x02114,0x02114), `Abs (0x02114);
+  (0x02116,0x02117), `Delta (0);
+  (0x0211E,0x02123), `Delta (0);
+  (0x02125,0x02125), `Abs (0x02125);
+  (0x02127,0x02127), `Abs (0x02127);
+  (0x02129,0x02129), `Abs (0x02129);
+  (0x0212E,0x0212E), `Abs (0x0212E);
+  (0x0213A,0x0213B), `Delta (0);
+  (0x0214A,0x0214A), `Abs (0x0214A);
+  (0x0214C,0x0214D), `Delta (0);
+  (0x0214F,0x0214F), `Abs (0x0214F);
+  (0x0218A,0x0218B), `Delta (0);
+  (0x02195,0x02199), `Delta (0);
+  (0x0219C,0x0219F), `Delta (0);
+  (0x021A1,0x021A2), `Delta (0);
+  (0x021A4,0x021A5), `Delta (0);
+  (0x021A7,0x021AD), `Delta (0);
+  (0x021AF,0x021CD), `Delta (0);
+  (0x021D0,0x021D1), `Delta (0);
+  (0x021D3,0x021D3), `Abs (0x021D3);
+  (0x021D5,0x021F3), `Delta (0);
+  (0x02300,0x02307), `Delta (0);
+  (0x0230C,0x0231F), `Delta (0);
+  (0x02322,0x02328), `Delta (0);
+  (0x0232B,0x0237B), `Delta (0);
+  (0x0237D,0x0239A), `Delta (0);
+  (0x023B4,0x023DB), `Delta (0);
+  (0x023E2,0x023FE), `Delta (0);
+  (0x02400,0x02426), `Delta (0);
+  (0x02440,0x0244A), `Delta (0);
+  (0x0249C,0x024B5), `Delta (0);
+  (0x024B6,0x024CF), `Delta (26);
+  (0x024D0,0x024E9), `Delta (0);
+  (0x02500,0x025B6), `Delta (0);
+  (0x025B8,0x025C0), `Delta (0);
+  (0x025C2,0x025F7), `Delta (0);
+  (0x02600,0x0266E), `Delta (0);
+  (0x02670,0x02767), `Delta (0);
+  (0x02794,0x027BF), `Delta (0);
+  (0x02800,0x028FF), `Delta (0);
+  (0x02B00,0x02B2F), `Delta (0);
+  (0x02B45,0x02B46), `Delta (0);
+  (0x02B4D,0x02B73), `Delta (0);
+  (0x02B76,0x02B95), `Delta (0);
+  (0x02B98,0x02BB9), `Delta (0);
+  (0x02BBD,0x02BC8), `Delta (0);
+  (0x02BCA,0x02BD1), `Delta (0);
+  (0x02BEC,0x02BEF), `Delta (0);
+  (0x02CE5,0x02CEA), `Delta (0);
+  (0x02E80,0x02E99), `Delta (0);
+  (0x02E9B,0x02EF3), `Delta (0);
+  (0x02F00,0x02FD5), `Delta (0);
+  (0x02FF0,0x02FFB), `Delta (0);
+  (0x03004,0x03004), `Abs (0x03004);
+  (0x03012,0x03013), `Delta (0);
+  (0x03020,0x03020), `Abs (0x03020);
+  (0x03036,0x03037), `Delta (0);
+  (0x0303E,0x0303F), `Delta (0);
+  (0x03190,0x03191), `Delta (0);
+  (0x03196,0x0319F), `Delta (0);
+  (0x031C0,0x031E3), `Delta (0);
+  (0x03200,0x0321E), `Delta (0);
+  (0x0322A,0x03247), `Delta (0);
+  (0x03250,0x03250), `Abs (0x03250);
+  (0x03260,0x0327F), `Delta (0);
+  (0x0328A,0x032B0), `Delta (0);
+  (0x032C0,0x032FE), `Delta (0);
+  (0x03300,0x033FF), `Delta (0);
+  (0x04DC0,0x04DFF), `Delta (0);
+  (0x0A490,0x0A4C6), `Delta (0);
+  (0x0A828,0x0A82B), `Delta (0);
+  (0x0A836,0x0A837), `Delta (0);
+  (0x0A839,0x0A839), `Abs (0x0A839);
+  (0x0AA77,0x0AA79), `Delta (0);
+  (0x0FDFD,0x0FDFD), `Abs (0x0FDFD);
+  (0x0FFE4,0x0FFE4), `Abs (0x0FFE4);
+  (0x0FFE8,0x0FFE8), `Abs (0x0FFE8);
+  (0x0FFED,0x0FFEE), `Delta (0);
+  (0x0FFFC,0x0FFFD), `Delta (0);
+  (0x10137,0x1013F), `Delta (0);
+  (0x10179,0x10189), `Delta (0);
+  (0x1018C,0x1018E), `Delta (0);
+  (0x10190,0x1019B), `Delta (0);
+  (0x101A0,0x101A0), `Abs (0x101A0);
+  (0x101D0,0x101FC), `Delta (0);
+  (0x10877,0x10878), `Delta (0);
+  (0x10AC8,0x10AC8), `Abs (0x10AC8);
+  (0x1173F,0x1173F), `Abs (0x1173F);
+  (0x16B3C,0x16B3F), `Delta (0);
+  (0x16B45,0x16B45), `Abs (0x16B45);
+  (0x1BC9C,0x1BC9C), `Abs (0x1BC9C);
+  (0x1D000,0x1D0F5), `Delta (0);
+  (0x1D100,0x1D126), `Delta (0);
+  (0x1D129,0x1D164), `Delta (0);
+  (0x1D16A,0x1D16C), `Delta (0);
+  (0x1D183,0x1D184), `Delta (0);
+  (0x1D18C,0x1D1A9), `Delta (0);
+  (0x1D1AE,0x1D1E8), `Delta (0);
+  (0x1D200,0x1D241), `Delta (0);
+  (0x1D245,0x1D245), `Abs (0x1D245);
+  (0x1D300,0x1D356), `Delta (0);
+  (0x1D800,0x1D9FF), `Delta (0);
+  (0x1DA37,0x1DA3A), `Delta (0);
+  (0x1DA6D,0x1DA74), `Delta (0);
+  (0x1DA76,0x1DA83), `Delta (0);
+  (0x1DA85,0x1DA86), `Delta (0);
+  (0x1F000,0x1F02B), `Delta (0);
+  (0x1F030,0x1F093), `Delta (0);
+  (0x1F0A0,0x1F0AE), `Delta (0);
+  (0x1F0B1,0x1F0BF), `Delta (0);
+  (0x1F0C1,0x1F0CF), `Delta (0);
+  (0x1F0D1,0x1F0F5), `Delta (0);
+  (0x1F110,0x1F12E), `Delta (0);
+  (0x1F130,0x1F16B), `Delta (0);
+  (0x1F170,0x1F1AC), `Delta (0);
+  (0x1F1E6,0x1F202), `Delta (0);
+  (0x1F210,0x1F23B), `Delta (0);
+  (0x1F240,0x1F248), `Delta (0);
+  (0x1F250,0x1F251), `Delta (0);
+  (0x1F300,0x1F3FA), `Delta (0);
+  (0x1F400,0x1F6D2), `Delta (0);
+  (0x1F6E0,0x1F6EC), `Delta (0);
+  (0x1F6F0,0x1F6F6), `Delta (0);
+  (0x1F700,0x1F773), `Delta (0);
+  (0x1F780,0x1F7D4), `Delta (0);
+  (0x1F800,0x1F80B), `Delta (0);
+  (0x1F810,0x1F847), `Delta (0);
+  (0x1F850,0x1F859), `Delta (0);
+  (0x1F860,0x1F887), `Delta (0);
+  (0x1F890,0x1F8AD), `Delta (0);
+  (0x1F910,0x1F91E), `Delta (0);
+  (0x1F920,0x1F927), `Delta (0);
+  (0x1F930,0x1F930), `Abs (0x1F930);
+  (0x1F933,0x1F93E), `Delta (0);
+  (0x1F940,0x1F94B), `Delta (0);
+  (0x1F950,0x1F95E), `Delta (0);
+  (0x1F980,0x1F991), `Delta (0)
+];;
diff --git a/library/goptions.ml b/library/goptions.ml
index 7ddf46bdd..1c08b9539 100644
--- a/library/goptions.ml
+++ b/library/goptions.ml
@@ -382,9 +382,9 @@ let msg_option_value (name,v) =
     | BoolValue false -> str "off"
     | IntValue (Some n) -> int n
     | IntValue None   -> str "undefined"
-    | StringValue s   -> str "\"" ++ str s ++ str "\""
+    | StringValue s   -> quote (str s)
     | StringOptValue None   -> str"undefined"
-    | StringOptValue (Some s)   -> str "\"" ++ str s ++ str "\""
+    | StringOptValue (Some s)   -> quote (str s)
 (*     | IdentValue r    -> pr_global_env Id.Set.empty r *)
 
 let print_option_value key =
diff --git a/plugins/btauto/g_btauto.ml4 b/plugins/btauto/g_btauto.ml4
index f3e2c99f4..298027448 100644
--- a/plugins/btauto/g_btauto.ml4
+++ b/plugins/btauto/g_btauto.ml4
@@ -8,6 +8,8 @@
 
 (*i camlp4deps: "grammar/grammar.cma"  i*)
 
+open Ltac_plugin
+
 DECLARE PLUGIN "btauto_plugin"
 
 TACTIC EXTEND btauto
diff --git a/plugins/cc/ccalgo.ml b/plugins/cc/ccalgo.ml
index bc53b113d..7347c3c2c 100644
--- a/plugins/cc/ccalgo.ml
+++ b/plugins/cc/ccalgo.ml
@@ -444,7 +444,7 @@ and applist_projection c l =
     let p = Projection.make (fst c) false in
     (match l with 
     | [] -> (* Expand the projection *)
-      let ty,_ = Typeops.type_of_constant (Global.env ()) c in
+      let ty = Typeops.type_of_constant_in (Global.env ()) c in (* FIXME constraints *)
       let pb = Environ.lookup_projection p (Global.env()) in
       let ctx,_ = Term.decompose_prod_n_assum (pb.Declarations.proj_npars + 1) ty in
 	it_mkLambda_or_LetIn (mkProj(p,mkRel 1)) ctx
diff --git a/plugins/cc/g_congruence.ml4 b/plugins/cc/g_congruence.ml4
index 6f6811334..7e76854b1 100644
--- a/plugins/cc/g_congruence.ml4
+++ b/plugins/cc/g_congruence.ml4
@@ -8,6 +8,7 @@
 
 (*i camlp4deps: "grammar/grammar.cma" i*)
 
+open Ltac_plugin
 open Cctac
 open Stdarg
 
diff --git a/plugins/decl_mode/decl_interp.ml b/plugins/decl_mode/decl_interp.ml
index f68c01b18..2b63ed6d6 100644
--- a/plugins/decl_mode/decl_interp.ml
+++ b/plugins/decl_mode/decl_interp.ml
@@ -6,6 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
+open Ltac_plugin
 open CErrors
 open Util
 open Names
diff --git a/plugins/decl_mode/decl_proof_instr.ml b/plugins/decl_mode/decl_proof_instr.ml
index e19dc86c4..deb2ede1d 100644
--- a/plugins/decl_mode/decl_proof_instr.ml
+++ b/plugins/decl_mode/decl_proof_instr.ml
@@ -6,6 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
+open Ltac_plugin
 open CErrors
 open Util
 open Pp
diff --git a/plugins/decl_mode/g_decl_mode.ml4 b/plugins/decl_mode/g_decl_mode.ml4
index 18a35c6cf..a71d20f0d 100644
--- a/plugins/decl_mode/g_decl_mode.ml4
+++ b/plugins/decl_mode/g_decl_mode.ml4
@@ -10,6 +10,7 @@
 
 DECLARE PLUGIN "decl_mode_plugin"
 
+open Ltac_plugin
 open Compat
 open Pp
 open Decl_expr
diff --git a/plugins/decl_mode/ppdecl_proof.ml b/plugins/decl_mode/ppdecl_proof.ml
index 59a0bb5a2..f5de638ed 100644
--- a/plugins/decl_mode/ppdecl_proof.ml
+++ b/plugins/decl_mode/ppdecl_proof.ml
@@ -6,6 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
+open Ltac_plugin
 open CErrors
 open Pp
 open Decl_expr
diff --git a/plugins/extraction/common.ml b/plugins/extraction/common.ml
index 9446cf667..de97ba97c 100644
--- a/plugins/extraction/common.ml
+++ b/plugins/extraction/common.ml
@@ -308,15 +308,16 @@ end
 
 module DupMap = Map.Make(DupOrd)
 
-let add_duplicate, check_duplicate =
+let add_duplicate, get_duplicate =
   let index = ref 0 and dups = ref DupMap.empty in
   register_cleanup (fun () -> index := 0; dups := DupMap.empty);
   let add mp l =
      incr index;
      let ren = "Coq__" ^ string_of_int !index in
      dups := DupMap.add (mp,l) ren !dups
-  and check mp l = DupMap.find (mp, l) !dups
-  in (add,check)
+  and get mp l =
+    try Some (DupMap.find (mp, l) !dups) with Not_found -> None
+  in (add,get)
 
 type reset_kind = AllButExternal | Everything
 
@@ -510,10 +511,11 @@ let pp_duplicate k' prefix mp rls olab =
       (* Here rls=s::rls', we search the label for s inside mp *)
       List.tl rls, get_nth_label_mp (mp_length mp - mp_length prefix) mp
   in
-  try dottify (check_duplicate prefix lbl :: rls')
-  with Not_found ->
-    assert (get_phase () == Pre); (* otherwise it's too late *)
-    add_duplicate prefix lbl; dottify rls
+  match get_duplicate prefix lbl with
+  | Some ren -> dottify (ren :: rls')
+  | None ->
+     assert (get_phase () == Pre); (* otherwise it's too late *)
+     add_duplicate prefix lbl; dottify rls
 
 let fstlev_ks k = function
   | [] -> assert false
diff --git a/plugins/extraction/common.mli b/plugins/extraction/common.mli
index 2f5601964..b8e95afb3 100644
--- a/plugins/extraction/common.mli
+++ b/plugins/extraction/common.mli
@@ -62,7 +62,7 @@ val top_visible_mp : unit -> module_path
 val push_visible : module_path -> module_path list -> unit
 val pop_visible : unit -> unit
 
-val check_duplicate : module_path -> Label.t -> string
+val get_duplicate : module_path -> Label.t -> string option
 
 type reset_kind = AllButExternal | Everything
 
diff --git a/plugins/extraction/extract_env.ml b/plugins/extraction/extract_env.ml
index 52f22ee60..e019bb3c2 100644
--- a/plugins/extraction/extract_env.ml
+++ b/plugins/extraction/extract_env.ml
@@ -507,8 +507,7 @@ let print_structure_to_file (fn,si,mo) dry struc =
   in
   (* First, a dry run, for computing objects to rename or duplicate *)
   set_phase Pre;
-  let devnull = formatter true None in
-  pp_with devnull (d.pp_struct struc);
+  ignore (d.pp_struct struc);
   let opened = opened_libraries () in
   (* Print the implementation *)
   let cout = if dry then None else Option.map open_out fn in
diff --git a/plugins/extraction/extraction.ml b/plugins/extraction/extraction.ml
index a980a43f5..2b19c2805 100644
--- a/plugins/extraction/extraction.ml
+++ b/plugins/extraction/extraction.ml
@@ -258,7 +258,7 @@ let rec extract_type env db j c args =
     | Const (kn,u as c) ->
 	let r = ConstRef kn in
 	let cb = lookup_constant kn env in
-	let typ,_ = Typeops.type_of_constant env c in
+        let typ = Typeops.type_of_constant_in env c in
 	(match flag_of_type env typ with
 	   | (Logic,_) -> assert false (* Cf. logical cases above *)
 	   | (Info, TypeScheme) ->
diff --git a/plugins/extraction/g_extraction.ml4 b/plugins/extraction/g_extraction.ml4
index e1d6bb4a8..3ed959cf2 100644
--- a/plugins/extraction/g_extraction.ml4
+++ b/plugins/extraction/g_extraction.ml4
@@ -12,6 +12,7 @@ DECLARE PLUGIN "extraction_plugin"
 
 (* ML names *)
 
+open Ltac_plugin
 open Genarg
 open Stdarg
 open Pcoq.Prim
diff --git a/plugins/extraction/ocaml.ml b/plugins/extraction/ocaml.ml
index 1c29a9bc2..d89bf95ee 100644
--- a/plugins/extraction/ocaml.ml
+++ b/plugins/extraction/ocaml.ml
@@ -555,24 +555,6 @@ let pp_decl = function
     | Dfix (rv,defs,typs) ->
 	pp_Dfix (rv,defs,typs)
 
-let pp_alias_decl ren = function
-  | Dind (kn,i) -> pp_mind kn { i with ind_equiv = RenEquiv ren }
-  | Dtype (r, l, _) ->
-      let name = pp_global Type r in
-      let l = rename_tvars keywords l in
-      let ids = pp_parameters l in
-      hov 2 (str "type " ++ ids ++ name ++ str " =" ++ spc () ++ ids ++
-	     str (ren^".") ++ name)
-  | Dterm (r, a, t) ->
-      let name = pp_global Term r in
-      hov 2 (str "let " ++ name ++ str (" = "^ren^".") ++ name)
-  | Dfix (rv, _, _) ->
-      prvecti (fun i r -> if is_inline_custom r then mt () else
-		 let name = pp_global Term r in
-		 hov 2 (str "let " ++ name ++ str (" = "^ren^".") ++ name) ++
-		 fnl ())
-	rv
-
 let pp_spec = function
   | Sval (r,_) when is_inline_custom r -> mt ()
   | Stype (r,_,_) when is_inline_custom r -> mt ()
@@ -597,42 +579,32 @@ let pp_spec = function
       in
       hov 2 (str "type " ++ ids ++ name ++ def)
 
-let pp_alias_spec ren = function
-  | Sind (kn,i) -> pp_mind kn { i with ind_equiv = RenEquiv ren }
-  | Stype (r,l,_) ->
-      let name = pp_global Type r in
-      let l = rename_tvars keywords l in
-      let ids = pp_parameters l in
-      hov 2 (str "type " ++ ids ++ name ++ str " =" ++ spc () ++ ids ++
-	     str (ren^".") ++ name)
-  | Sval _ -> assert false
-
 let rec pp_specif = function
   | (_,Spec (Sval _ as s)) -> pp_spec s
   | (l,Spec s) ->
-      (try
-	 let ren = Common.check_duplicate (top_visible_mp ()) l in
+     (match Common.get_duplicate (top_visible_mp ()) l with
+      | None -> pp_spec s
+      | Some ren ->
 	 hov 1 (str ("module "^ren^" : sig") ++ fnl () ++ pp_spec s) ++
 	 fnl () ++ str "end" ++ fnl () ++
-	 pp_alias_spec ren s
-       with Not_found -> pp_spec s)
+         str ("include module type of struct include "^ren^" end"))
   | (l,Smodule mt) ->
       let def = pp_module_type [] mt in
-      let def' = pp_module_type [] mt in
       let name = pp_modname (MPdot (top_visible_mp (), l)) in
       hov 1 (str "module " ++ name ++ str " :" ++ fnl () ++ def) ++
-      (try
-	 let ren = Common.check_duplicate (top_visible_mp ()) l in
-	 fnl () ++ hov 1 (str ("module "^ren^" :") ++ fnl () ++ def')
-       with Not_found -> Pp.mt ())
+      (match Common.get_duplicate (top_visible_mp ()) l with
+       | None -> Pp.mt ()
+       | Some ren ->
+         fnl () ++
+         hov 1 (str ("module "^ren^" :") ++ spc () ++
+                str "module type of struct include " ++ name ++ str " end"))
   | (l,Smodtype mt) ->
       let def = pp_module_type [] mt in
       let name = pp_modname (MPdot (top_visible_mp (), l)) in
       hov 1 (str "module type " ++ name ++ str " =" ++ fnl () ++ def) ++
-      (try
-	 let ren = Common.check_duplicate (top_visible_mp ()) l in
-	 fnl () ++ str ("module type "^ren^" = ") ++ name
-       with Not_found -> Pp.mt ())
+      (match Common.get_duplicate (top_visible_mp ()) l with
+       | None -> Pp.mt ()
+       | Some ren -> fnl () ++ str ("module type "^ren^" = ") ++ name)
 
 and pp_module_type params = function
   | MTident kn ->
@@ -653,8 +625,10 @@ and pp_module_type params = function
       let l = List.rev l in
       pop_visible ();
       str "sig" ++ fnl () ++
-      v 1 (str " " ++ prlist_with_sep cut2 identity l) ++
-	fnl () ++ str "end"
+      (if List.is_empty l then mt ()
+       else
+         v 1 (str " " ++ prlist_with_sep cut2 identity l) ++ fnl ())
+      ++ str "end"
   | MTwith(mt,ML_With_type(idl,vl,typ)) ->
       let ids = pp_parameters (rename_tvars keywords vl) in
       let mp_mt = msid_of_mt mt in
@@ -681,12 +655,11 @@ let is_short = function MEident _ | MEapply _ -> true | _ -> false
 
 let rec pp_structure_elem = function
   | (l,SEdecl d) ->
-       (try
-	 let ren = Common.check_duplicate (top_visible_mp ()) l in
+     (match Common.get_duplicate (top_visible_mp ()) l with
+      | None -> pp_decl d
+      | Some ren ->
 	 hov 1 (str ("module "^ren^" = struct") ++ fnl () ++ pp_decl d) ++
-	 fnl () ++ str "end" ++ fnl () ++
-	 pp_alias_decl ren d
-	with Not_found -> pp_decl d)
+	 fnl () ++ str "end" ++ fnl () ++ str ("include "^ren))
   | (l,SEmodule m) ->
       let typ =
         (* virtual printing of the type, in order to have a correct mli later*)
@@ -699,18 +672,16 @@ let rec pp_structure_elem = function
       hov 1
 	(str "module " ++ name ++ typ ++ str " =" ++
 	 (if is_short m.ml_mod_expr then spc () else fnl ()) ++ def) ++
-      (try
-	 let ren = Common.check_duplicate (top_visible_mp ()) l in
-	 fnl () ++ str ("module "^ren^" = ") ++ name
-       with Not_found -> mt ())
+      (match Common.get_duplicate (top_visible_mp ()) l with
+       | Some ren -> fnl () ++ str ("module "^ren^" = ") ++ name
+       | None -> mt ())
   | (l,SEmodtype m) ->
       let def = pp_module_type [] m in
       let name = pp_modname (MPdot (top_visible_mp (), l)) in
       hov 1 (str "module type " ++ name ++ str " =" ++ fnl () ++ def) ++
-      (try
-	 let ren = Common.check_duplicate (top_visible_mp ()) l in
-         fnl () ++ str ("module type "^ren^" = ") ++ name
-       with Not_found -> mt ())
+      (match Common.get_duplicate (top_visible_mp ()) l with
+       | None -> mt ()
+       | Some ren -> fnl () ++ str ("module type "^ren^" = ") ++ name)
 
 and pp_module_expr params = function
   | MEident mp -> pp_modname mp
@@ -732,8 +703,10 @@ and pp_module_expr params = function
       let l = List.rev l in
       pop_visible ();
       str "struct" ++ fnl () ++
-      v 1 (str " " ++ prlist_with_sep cut2 identity l) ++
-      fnl () ++ str "end"
+      (if List.is_empty l then mt ()
+       else
+         v 1 (str " " ++ prlist_with_sep cut2 identity l) ++ fnl ())
+      ++ str "end"
 
 let rec prlist_sep_nonempty sep f = function
   | [] -> mt ()
diff --git a/plugins/firstorder/g_ground.ml4 b/plugins/firstorder/g_ground.ml4
index 260e86ad6..e28d6aa62 100644
--- a/plugins/firstorder/g_ground.ml4
+++ b/plugins/firstorder/g_ground.ml4
@@ -8,6 +8,7 @@
 
 (*i camlp4deps: "grammar/grammar.cma"  i*)
 
+open Ltac_plugin
 open Formula
 open Sequent
 open Ground
diff --git a/plugins/firstorder/ground.ml b/plugins/firstorder/ground.ml
index 628af4e71..d6cd7e2a0 100644
--- a/plugins/firstorder/ground.ml
+++ b/plugins/firstorder/ground.ml
@@ -6,6 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
+open Ltac_plugin
 open Formula
 open Sequent
 open Rules
diff --git a/plugins/fourier/g_fourier.ml4 b/plugins/fourier/g_fourier.ml4
index 7c665ae7b..1960fa835 100644
--- a/plugins/fourier/g_fourier.ml4
+++ b/plugins/fourier/g_fourier.ml4
@@ -8,6 +8,7 @@
 
 (*i camlp4deps: "grammar/grammar.cma" i*)
 
+open Ltac_plugin
 open FourierR
 
 DECLARE PLUGIN "fourier_plugin"
diff --git a/plugins/funind/g_indfun.ml4 b/plugins/funind/g_indfun.ml4
index 6603a95a8..368b23be3 100644
--- a/plugins/funind/g_indfun.ml4
+++ b/plugins/funind/g_indfun.ml4
@@ -6,6 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 (*i camlp4deps: "grammar/grammar.cma" i*)
+open Ltac_plugin
 open Compat
 open Util
 open Term
diff --git a/plugins/funind/invfun.ml b/plugins/funind/invfun.ml
index c8b4e4833..70333b063 100644
--- a/plugins/funind/invfun.ml
+++ b/plugins/funind/invfun.ml
@@ -6,6 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
+open Ltac_plugin
 open Tacexpr
 open Declarations
 open CErrors
diff --git a/plugins/funind/recdef.ml b/plugins/funind/recdef.ml
index 54066edfb..e00fa528a 100644
--- a/plugins/funind/recdef.ml
+++ b/plugins/funind/recdef.ml
@@ -78,8 +78,10 @@ let def_of_const t =
 
 let type_of_const t =
    match (kind_of_term t) with
-    Const sp -> Typeops.type_of_constant (Global.env()) sp
-    |_ -> assert false
+   | Const sp ->
+      (* FIXME discarding universe constraints *)
+      Typeops.type_of_constant_in (Global.env()) sp
+   |_ -> assert false
 
 let constr_of_global x = 
   fst (Universes.unsafe_constr_of_global x)
@@ -1422,7 +1424,7 @@ let start_equation (f:global_reference) (term_f:global_reference)
   (cont_tactic:Id.t list -> tactic) g =
   let ids = pf_ids_of_hyps g in
   let terminate_constr = constr_of_global term_f in
-  let nargs = nb_prod (fst (type_of_const terminate_constr)) (*FIXME*) in
+  let nargs = nb_prod (type_of_const terminate_constr) in
   let x = n_x_id ids nargs in
   observe_tac (str "start_equation") (observe_tclTHENLIST (str "start_equation") [
     h_intros x;
diff --git a/ltac/tauto.mli b/plugins/ltac/Ltac.v
index e69de29bb..e69de29bb 100644
--- a/ltac/tauto.mli
+++ b/plugins/ltac/Ltac.v
diff --git a/ltac/coretactics.ml4 b/plugins/ltac/coretactics.ml4
index 28ff6df83..28ff6df83 100644
--- a/ltac/coretactics.ml4
+++ b/plugins/ltac/coretactics.ml4
diff --git a/ltac/evar_tactics.ml b/plugins/ltac/evar_tactics.ml
index c5b26e6d5..c5b26e6d5 100644
--- a/ltac/evar_tactics.ml
+++ b/plugins/ltac/evar_tactics.ml
diff --git a/ltac/evar_tactics.mli b/plugins/ltac/evar_tactics.mli
index e67540c05..e67540c05 100644
--- a/ltac/evar_tactics.mli
+++ b/plugins/ltac/evar_tactics.mli
diff --git a/ltac/extraargs.ml4 b/plugins/ltac/extraargs.ml4
index 53b726432..53b726432 100644
--- a/ltac/extraargs.ml4
+++ b/plugins/ltac/extraargs.ml4
diff --git a/ltac/extraargs.mli b/plugins/ltac/extraargs.mli
index b12187e18..b12187e18 100644
--- a/ltac/extraargs.mli
+++ b/plugins/ltac/extraargs.mli
diff --git a/ltac/extratactics.ml4 b/plugins/ltac/extratactics.ml4
index 1223f6eb4..1223f6eb4 100644
--- a/ltac/extratactics.ml4
+++ b/plugins/ltac/extratactics.ml4
diff --git a/ltac/extratactics.mli b/plugins/ltac/extratactics.mli
index 18334dafe..18334dafe 100644
--- a/ltac/extratactics.mli
+++ b/plugins/ltac/extratactics.mli
diff --git a/ltac/g_auto.ml4 b/plugins/ltac/g_auto.ml4
index a37cf306e..fcc2b86a9 100644
--- a/ltac/g_auto.ml4
+++ b/plugins/ltac/g_auto.ml4
@@ -16,6 +16,7 @@ open Pcoq.Constr
 open Pltac
 open Hints
 open Tacexpr
+open Names
 
 DECLARE PLUGIN "g_auto"
 
@@ -149,15 +150,6 @@ TACTIC EXTEND autounfold_one
     [ Eauto.autounfold_one (match db with None -> ["core"] | Some x -> "core"::x) None ]
       END
 
-TACTIC EXTEND autounfoldify
-| [ "autounfoldify" constr(x) ] -> [
-    let db = match Term.kind_of_term x with
-      | Term.Const (c,_) -> Names.Label.to_string (Names.con_label c)
-      | _ -> assert false
-    in Eauto.autounfold ["core";db] Locusops.onConcl 
-  ]
-END
-
 TACTIC EXTEND unify
 | ["unify" constr(x) constr(y) ] -> [ Tactics.unify x y ]
 | ["unify" constr(x) constr(y) "with" preident(base)  ] -> [
diff --git a/ltac/g_class.ml4 b/plugins/ltac/g_class.ml4
index a28132a4b..ca9537c82 100644
--- a/ltac/g_class.ml4
+++ b/plugins/ltac/g_class.ml4
@@ -13,6 +13,7 @@ open Class_tactics
 open Pltac
 open Stdarg
 open Tacarg
+open Names
 
 DECLARE PLUGIN "g_class"
 
diff --git a/ltac/g_eqdecide.ml4 b/plugins/ltac/g_eqdecide.ml4
index 905653281..679aa1127 100644
--- a/ltac/g_eqdecide.ml4
+++ b/plugins/ltac/g_eqdecide.ml4
@@ -15,6 +15,7 @@
 (*i camlp4deps: "grammar/grammar.cma" i*)
 
 open Eqdecide
+open Names
 
 DECLARE PLUGIN "g_eqdecide"
 
diff --git a/ltac/g_ltac.ml4 b/plugins/ltac/g_ltac.ml4
index 54229bb2a..aab568746 100644
--- a/ltac/g_ltac.ml4
+++ b/plugins/ltac/g_ltac.ml4
@@ -17,6 +17,7 @@ open Misctypes
 open Genarg
 open Genredexpr
 open Tok (* necessary for camlp4 *)
+open Names
 
 open Pcoq
 open Pcoq.Constr
@@ -226,8 +227,8 @@ GEXTEND Gram
       | "multimatch" -> General ] ]
   ;
   input_fun:
-    [ [ "_" -> None
-      | l = ident -> Some l ] ]
+    [ [ "_" -> Anonymous
+      | l = ident -> Name l ] ]
   ;
   let_clause:
     [ [ id = identref; ":="; te = tactic_expr ->
@@ -499,8 +500,8 @@ let pr_tacdef_body tacdef_body =
       | Tacexpr.TacFun (idl,b) -> idl,b
       | _ -> [], body in
   id ++
-    prlist (function None -> str " _"
-      | Some id -> spc () ++ Nameops.pr_id id) idl
+    prlist (function Anonymous -> str " _"
+      | Name id -> spc () ++ Nameops.pr_id id) idl
   ++ (if redef then str" ::=" else str" :=") ++ brk(1,1)
   ++ Pptactic.pr_raw_tactic body
 
diff --git a/ltac/g_obligations.ml4 b/plugins/ltac/g_obligations.ml4
index d286a5870..d286a5870 100644
--- a/ltac/g_obligations.ml4
+++ b/plugins/ltac/g_obligations.ml4
diff --git a/ltac/g_rewrite.ml4 b/plugins/ltac/g_rewrite.ml4
index b1c4f58eb..b1c4f58eb 100644
--- a/ltac/g_rewrite.ml4
+++ b/plugins/ltac/g_rewrite.ml4
diff --git a/ltac/g_tactic.ml4 b/plugins/ltac/g_tactic.ml4
index 685c07c9a..fa01baab7 100644
--- a/ltac/g_tactic.ml4
+++ b/plugins/ltac/g_tactic.ml4
@@ -325,8 +325,9 @@ GEXTEND Gram
         l = LIST0 ["%"; c = operconstr LEVEL "0" -> c] ->
           let loc0,pat = pat in
           let f c pat =
-            let loc = Loc.merge loc0 (Constrexpr_ops.constr_loc c) in
-            IntroAction (IntroApplyOn (c,(loc,pat))) in
+            let loc1 = Constrexpr_ops.constr_loc c in
+            let loc = Loc.merge loc0 loc1 in
+            IntroAction (IntroApplyOn ((loc1,c),(loc,pat))) in
           !@loc, List.fold_right f l pat ] ]
   ;
   simple_intropattern_closed:
diff --git a/ltac/ltac.mllib b/plugins/ltac/ltac_plugin.mlpack
index af1c7149d..af1c7149d 100644
--- a/ltac/ltac.mllib
+++ b/plugins/ltac/ltac_plugin.mlpack
diff --git a/ltac/pltac.ml b/plugins/ltac/pltac.ml
index 1d21118ae..1d21118ae 100644
--- a/ltac/pltac.ml
+++ b/plugins/ltac/pltac.ml
diff --git a/ltac/pltac.mli b/plugins/ltac/pltac.mli
index 810e1ec39..810e1ec39 100644
--- a/ltac/pltac.mli
+++ b/plugins/ltac/pltac.mli
diff --git a/ltac/pptactic.ml b/plugins/ltac/pptactic.ml
index b1a6fa63d..6f4ef37b4 100644
--- a/ltac/pptactic.ml
+++ b/plugins/ltac/pptactic.ml
@@ -574,9 +574,7 @@ module Make
               str "=>" ++ brk (1,4) ++ pr t))
     | All t -> str "_" ++ spc () ++ str "=>" ++ brk (1,4) ++ pr t
 
-  let pr_funvar = function
-    | None -> spc () ++ str "_"
-    | Some id -> spc () ++ pr_id id
+  let pr_funvar n = spc () ++ pr_name n
 
   let pr_let_clause k pr (id,(bl,t)) =
     hov 0 (keyword k ++ spc () ++ pr_lident id ++ prlist pr_funvar bl ++
@@ -1243,11 +1241,10 @@ let declare_extra_genarg_pprule wit
   (f : 'a raw_extra_genarg_printer)
   (g : 'b glob_extra_genarg_printer)
   (h : 'c extra_genarg_printer) =
-  let s = match wit with
-    | ExtraArg s -> ArgT.repr s
-    | _ -> error
-      "Can declare a pretty-printing rule only for extra argument types."
-  in
+  begin match wit with
+    | ExtraArg s -> ()
+    | _          -> error "Can declare a pretty-printing rule only for extra argument types."
+  end;
   let f x = f pr_constr_expr pr_lconstr_expr pr_raw_tactic_level x in
   let g x =
     let env = Global.env () in
diff --git a/ltac/pptactic.mli b/plugins/ltac/pptactic.mli
index 86e3ea548..86e3ea548 100644
--- a/ltac/pptactic.mli
+++ b/plugins/ltac/pptactic.mli
diff --git a/ltac/pptacticsig.mli b/plugins/ltac/pptacticsig.mli
index 74ddd377a..74ddd377a 100644
--- a/ltac/pptacticsig.mli
+++ b/plugins/ltac/pptacticsig.mli
diff --git a/ltac/profile_ltac.ml b/plugins/ltac/profile_ltac.ml
index 2514ededb..2514ededb 100644
--- a/ltac/profile_ltac.ml
+++ b/plugins/ltac/profile_ltac.ml
diff --git a/ltac/profile_ltac.mli b/plugins/ltac/profile_ltac.mli
index e5e2e4197..e5e2e4197 100644
--- a/ltac/profile_ltac.mli
+++ b/plugins/ltac/profile_ltac.mli
diff --git a/ltac/profile_ltac_tactics.ml4 b/plugins/ltac/profile_ltac_tactics.ml4
index 8cb76d81c..8cb76d81c 100644
--- a/ltac/profile_ltac_tactics.ml4
+++ b/plugins/ltac/profile_ltac_tactics.ml4
diff --git a/ltac/rewrite.ml b/plugins/ltac/rewrite.ml
index 3c5a109c0..3c5a109c0 100644
--- a/ltac/rewrite.ml
+++ b/plugins/ltac/rewrite.ml
diff --git a/ltac/rewrite.mli b/plugins/ltac/rewrite.mli
index 35c448351..35c448351 100644
--- a/ltac/rewrite.mli
+++ b/plugins/ltac/rewrite.mli
diff --git a/ltac/tacarg.ml b/plugins/ltac/tacarg.ml
index 42552c484..42552c484 100644
--- a/ltac/tacarg.ml
+++ b/plugins/ltac/tacarg.ml
diff --git a/ltac/tacarg.mli b/plugins/ltac/tacarg.mli
index bfa423db2..bfa423db2 100644
--- a/ltac/tacarg.mli
+++ b/plugins/ltac/tacarg.mli
diff --git a/ltac/taccoerce.ml b/plugins/ltac/taccoerce.ml
index df38a42cb..df38a42cb 100644
--- a/ltac/taccoerce.ml
+++ b/plugins/ltac/taccoerce.ml
diff --git a/ltac/taccoerce.mli b/plugins/ltac/taccoerce.mli
index 0b67f8726..0b67f8726 100644
--- a/ltac/taccoerce.mli
+++ b/plugins/ltac/taccoerce.mli
diff --git a/ltac/tacentries.ml b/plugins/ltac/tacentries.ml
index 2e2b55be7..cd8c9e471 100644
--- a/ltac/tacentries.ml
+++ b/plugins/ltac/tacentries.ml
@@ -302,9 +302,9 @@ let cons_production_parameter = function
 | TacTerm _ -> None
 | TacNonTerm (_, _, id) -> Some id
 
-let add_glob_tactic_notation local n prods forml ids tac =
+let add_glob_tactic_notation local ~level prods forml ids tac =
   let parule = {
-    tacgram_level = n;
+    tacgram_level = level;
     tacgram_prods = prods;
   } in
   let tacobj = {
@@ -360,7 +360,7 @@ let extend_atomic_tactic name entries =
   in
   List.iteri add_atomic entries
 
-let add_ml_tactic_notation name prods =
+let add_ml_tactic_notation name ~level prods =
   let len = List.length prods in
   let iter i prods =
     let open Tacexpr in
@@ -372,10 +372,12 @@ let add_ml_tactic_notation name prods =
     let entry = { mltac_name = name; mltac_index = len - i - 1 } in
     let map id = Reference (Misctypes.ArgVar (Loc.ghost, id)) in
     let tac = TacML (Loc.ghost, entry, List.map map ids) in
-    add_glob_tactic_notation false 0 prods true ids tac
+    add_glob_tactic_notation false ~level prods true ids tac
   in
   List.iteri iter (List.rev prods);
-  extend_atomic_tactic name prods
+  (** We call [extend_atomic_tactic] only for "basic tactics" (the ones at
+  tactic_expr level 0) *)
+  if Int.equal level 0 then extend_atomic_tactic name prods
 
 (**********************************************************************)
 (** Ltac quotations                                                   *)
@@ -504,10 +506,7 @@ let print_ltacs () =
     | Tacexpr.TacFun (l, t) -> (l, t)
     | _ -> ([], body)
     in
-    let pr_ltac_fun_arg = function
-    | None -> spc () ++ str "_"
-    | Some id -> spc () ++ pr_id id
-    in
+    let pr_ltac_fun_arg n = spc () ++ pr_name n in
     hov 2 (pr_qualid qid ++ prlist pr_ltac_fun_arg l)
   in
   Feedback.msg_notice (prlist_with_sep fnl pr_entry entries)
diff --git a/ltac/tacentries.mli b/plugins/ltac/tacentries.mli
index 969c118fb..069504473 100644
--- a/ltac/tacentries.mli
+++ b/plugins/ltac/tacentries.mli
@@ -45,7 +45,7 @@ val register_tactic_notation_entry : string -> ('a, 'b, 'c) Genarg.genarg_type -
     to finding an argument by name (as in {!Genarg}) if there is none
     matching. *)
 
-val add_ml_tactic_notation : ml_tactic_name ->
+val add_ml_tactic_notation : ml_tactic_name -> level:int ->
   argument grammar_tactic_prod_item_expr list list -> unit
 (** A low-level variant of {!add_tactic_notation} used by the TACTIC EXTEND
     ML-side macro. *)
diff --git a/ltac/tacenv.ml b/plugins/ltac/tacenv.ml
index e3c2b4ad5..e3c2b4ad5 100644
--- a/ltac/tacenv.ml
+++ b/plugins/ltac/tacenv.ml
diff --git a/ltac/tacenv.mli b/plugins/ltac/tacenv.mli
index 94e14223a..94e14223a 100644
--- a/ltac/tacenv.mli
+++ b/plugins/ltac/tacenv.mli
diff --git a/ltac/tacexpr.mli b/plugins/ltac/tacexpr.mli
index 9c25a1645..e23992a80 100644
--- a/ltac/tacexpr.mli
+++ b/plugins/ltac/tacexpr.mli
@@ -282,7 +282,7 @@ constraint 'a = <
 >
 
 and 'a gen_tactic_fun_ast =
-    Id.t option list * 'a gen_tactic_expr
+    Name.t list * 'a gen_tactic_expr
 
 constraint 'a = <
     term:'t;
diff --git a/ltac/tacintern.ml b/plugins/ltac/tacintern.ml
index 763e0dc22..3f83f104e 100644
--- a/ltac/tacintern.ml
+++ b/plugins/ltac/tacintern.ml
@@ -248,8 +248,8 @@ and intern_intro_pattern_action lf ist = function
   | IntroInjection l ->
       IntroInjection (List.map (intern_intro_pattern lf ist) l)
   | IntroWildcard | IntroRewrite _ as x -> x
-  | IntroApplyOn (c,pat) ->
-      IntroApplyOn (intern_constr ist c, intern_intro_pattern lf ist pat)
+  | IntroApplyOn ((loc,c),pat) ->
+      IntroApplyOn ((loc,intern_constr ist c), intern_intro_pattern lf ist pat)
 
 and intern_or_and_intro_pattern lf ist = function
    | IntroAndPattern l ->
@@ -646,7 +646,7 @@ and intern_tactic_or_tacarg ist = intern_tactic false ist
 and intern_pure_tactic ist = intern_tactic true ist
 
 and intern_tactic_fun ist (var,body) =
-  let lfun = List.fold_left opt_cons ist.ltacvars var in
+  let lfun = List.fold_left name_cons ist.ltacvars var in
   (var,intern_tactic_or_tacarg { ist with ltacvars = lfun } body)
 
 and intern_tacarg strict onlytac ist = function
@@ -722,9 +722,7 @@ let split_ltac_fun = function
   | TacFun (l,t) -> (l,t)
   | t -> ([],t)
 
-let pr_ltac_fun_arg = function
-  | None -> spc () ++ str "_"
-  | Some id -> spc () ++ pr_id id
+let pr_ltac_fun_arg n = spc () ++ pr_name n
 
 let print_ltac id =
  try
@@ -782,6 +780,7 @@ let intern_ltac ist tac =
 let () =
   Genintern.register_intern0 wit_int_or_var (lift intern_int_or_var);
   Genintern.register_intern0 wit_ref (lift intern_global_reference);
+  Genintern.register_intern0 wit_pre_ident (fun ist c -> (ist,c));
   Genintern.register_intern0 wit_ident intern_ident';
   Genintern.register_intern0 wit_var (lift intern_hyp);
   Genintern.register_intern0 wit_tactic (lift intern_tactic_or_tacarg);
diff --git a/ltac/tacintern.mli b/plugins/ltac/tacintern.mli
index 71ca354fa..71ca354fa 100644
--- a/ltac/tacintern.mli
+++ b/plugins/ltac/tacintern.mli
diff --git a/ltac/tacinterp.ml b/plugins/ltac/tacinterp.ml
index ddeab733e..61a70d712 100644
--- a/ltac/tacinterp.ml
+++ b/plugins/ltac/tacinterp.ml
@@ -120,7 +120,7 @@ let combine_appl appl1 appl2 =
 (* Values for interpretation *)
 type tacvalue =
   | VFun of appl*ltac_trace * value Id.Map.t *
-      Id.t option list * glob_tactic_expr
+      Name.t list * glob_tactic_expr
   | VRec of value Id.Map.t ref * glob_tactic_expr
 
 let (wit_tacvalue : (Empty.t, tacvalue, tacvalue) Genarg.genarg_type) =
@@ -520,7 +520,7 @@ let rec intropattern_ids (loc,pat) = match pat with
       List.flatten (List.map intropattern_ids (List.flatten ll))
   | IntroAction (IntroInjection l) ->
       List.flatten (List.map intropattern_ids l)
-  | IntroAction (IntroApplyOn (c,pat)) -> intropattern_ids pat
+  | IntroAction (IntroApplyOn ((_,c),pat)) -> intropattern_ids pat
   | IntroNaming (IntroAnonymous | IntroFresh _)
   | IntroAction (IntroWildcard | IntroRewrite _)
   | IntroForthcoming _ -> []
@@ -913,14 +913,14 @@ and interp_intro_pattern_action ist env sigma = function
   | IntroInjection l ->
       let sigma,l = interp_intro_pattern_list_as_list ist env sigma l in
       sigma, IntroInjection l
-  | IntroApplyOn (c,ipat) ->
+  | IntroApplyOn ((loc,c),ipat) ->
       let c = { delayed = fun env sigma ->
         let sigma = Sigma.to_evar_map sigma in
         let (sigma, c) = interp_open_constr ist env sigma c in
         Sigma.Unsafe.of_pair (c, sigma)
       } in
       let sigma,ipat = interp_intro_pattern ist env sigma ipat in
-      sigma, IntroApplyOn (c,ipat)
+      sigma, IntroApplyOn ((loc,c),ipat)
   | IntroWildcard | IntroRewrite _ as x -> sigma, x
 
 and interp_or_and_intro_pattern ist env sigma = function
@@ -948,7 +948,7 @@ let interp_or_and_intro_pattern_option ist env sigma = function
       (match coerce_to_intro_pattern env (Id.Map.find id ist.lfun) with
       | IntroAction (IntroOrAndPattern l) -> sigma, Some (loc,l)
       | _ ->
-        raise (CannotCoerceTo "a disjunctive/conjunctive introduction pattern"))
+        user_err ~loc (str "Cannot coerce to a disjunctive/conjunctive pattern."))
   | Some (ArgArg (loc,l)) ->
       let sigma,l = interp_or_and_intro_pattern ist env sigma l in
       sigma, Some (loc,l)
@@ -1087,8 +1087,8 @@ let head_with_value (lvar,lval) =
     | ([],[]) -> (lacc,[],[])
     | (vr::tvr,ve::tve) ->
       (match vr with
-      |	None -> head_with_value_rec lacc (tvr,tve)
-      | Some v -> head_with_value_rec ((v,ve)::lacc) (tvr,tve))
+      |	Anonymous -> head_with_value_rec lacc (tvr,tve)
+      | Name v -> head_with_value_rec ((v,ve)::lacc) (tvr,tve))
     | (vr,[]) -> (lacc,vr,[])
     | ([],ve) -> (lacc,[],ve)
   in
@@ -2023,9 +2023,6 @@ let () =
 let () =
   declare_uniform wit_string
 
-let () =
-  declare_uniform wit_pre_ident
-
 let lift f = (); fun ist x -> Ftactic.enter { enter = begin fun gl ->
   let env = Proofview.Goal.env gl in
   let sigma = Sigma.to_evar_map (Proofview.Goal.sigma gl) in
@@ -2053,9 +2050,13 @@ let interp_destruction_arg' ist c = Ftactic.nf_enter { enter = begin fun gl ->
   Ftactic.return (interp_destruction_arg ist gl c)
 end }
 
+let interp_pre_ident ist env sigma s =
+  s |> Id.of_string |> interp_ident ist env sigma |> Id.to_string
+
 let () =
   register_interp0 wit_int_or_var (fun ist n -> Ftactic.return (interp_int_or_var ist n));
   register_interp0 wit_ref (lift interp_reference);
+  register_interp0 wit_pre_ident (lift interp_pre_ident);
   register_interp0 wit_ident (lift interp_ident);
   register_interp0 wit_var (lift interp_hyp);
   register_interp0 wit_intro_pattern (lifts interp_intro_pattern);
@@ -2119,8 +2120,8 @@ let lift_constr_tac_to_ml_tac vars tac =
     let env = Proofview.Goal.env gl in
     let sigma = project gl in
     let map = function
-    | None -> None
-    | Some id ->
+    | Anonymous -> None
+    | Name id ->
       let c = Id.Map.find id ist.lfun in
       try Some (coerce_to_closed_constr env c)
       with CannotCoerceTo ty ->
diff --git a/ltac/tacinterp.mli b/plugins/ltac/tacinterp.mli
index 6f64981ef..adbd1d32b 100644
--- a/ltac/tacinterp.mli
+++ b/plugins/ltac/tacinterp.mli
@@ -115,7 +115,7 @@ val error_ltac_variable : Loc.t -> Id.t ->
 
 (** Transforms a constr-expecting tactic into a tactic finding its arguments in
     the Ltac environment according to the given names. *)
-val lift_constr_tac_to_ml_tac : Id.t option list ->
+val lift_constr_tac_to_ml_tac : Name.t list ->
   (constr list -> Geninterp.interp_sign -> unit Proofview.tactic) -> Tacenv.ml_tactic
 
 val default_ist : unit -> Geninterp.interp_sign
diff --git a/ltac/tacsubst.ml b/plugins/ltac/tacsubst.ml
index 55de58361..fe3a9f3b2 100644
--- a/ltac/tacsubst.ml
+++ b/plugins/ltac/tacsubst.ml
@@ -51,8 +51,8 @@ let rec subst_intro_pattern subst = function
   | loc, IntroNaming _ | loc, IntroForthcoming _ as x -> x
 
 and subst_intro_pattern_action subst = function
-  | IntroApplyOn (t,pat) ->
-      IntroApplyOn (subst_glob_constr subst t,subst_intro_pattern subst pat)
+  | IntroApplyOn ((loc,t),pat) ->
+      IntroApplyOn ((loc,subst_glob_constr subst t),subst_intro_pattern subst pat)
   | IntroOrAndPattern l ->
       IntroOrAndPattern (subst_intro_or_and_pattern subst l)
   | IntroInjection l -> IntroInjection (List.map (subst_intro_pattern subst) l)
@@ -291,6 +291,7 @@ and subst_genarg subst (GenArg (Glbwit wit, x)) =
 let () =
   Genintern.register_subst0 wit_int_or_var (fun _ v -> v);
   Genintern.register_subst0 wit_ref subst_global_reference;
+  Genintern.register_subst0 wit_pre_ident (fun _ v -> v);
   Genintern.register_subst0 wit_ident (fun _ v -> v);
   Genintern.register_subst0 wit_var (fun _ v -> v);
   Genintern.register_subst0 wit_intro_pattern (fun _ v -> v);
diff --git a/ltac/tacsubst.mli b/plugins/ltac/tacsubst.mli
index c1bf27257..c1bf27257 100644
--- a/ltac/tacsubst.mli
+++ b/plugins/ltac/tacsubst.mli
diff --git a/ltac/tactic_debug.ml b/plugins/ltac/tactic_debug.ml
index 5cbddc7f6..5cbddc7f6 100644
--- a/ltac/tactic_debug.ml
+++ b/plugins/ltac/tactic_debug.ml
diff --git a/ltac/tactic_debug.mli b/plugins/ltac/tactic_debug.mli
index 520fb41ef..520fb41ef 100644
--- a/ltac/tactic_debug.mli
+++ b/plugins/ltac/tactic_debug.mli
diff --git a/ltac/tactic_matching.ml b/plugins/ltac/tactic_matching.ml
index ef45ee47e..ef45ee47e 100644
--- a/ltac/tactic_matching.ml
+++ b/plugins/ltac/tactic_matching.ml
diff --git a/ltac/tactic_matching.mli b/plugins/ltac/tactic_matching.mli
index 090207bcc..090207bcc 100644
--- a/ltac/tactic_matching.mli
+++ b/plugins/ltac/tactic_matching.mli
diff --git a/ltac/tactic_option.ml b/plugins/ltac/tactic_option.ml
index a5ba3b837..a5ba3b837 100644
--- a/ltac/tactic_option.ml
+++ b/plugins/ltac/tactic_option.ml
diff --git a/ltac/tactic_option.mli b/plugins/ltac/tactic_option.mli
index ed759a76d..ed759a76d 100644
--- a/ltac/tactic_option.mli
+++ b/plugins/ltac/tactic_option.mli
diff --git a/ltac/tauto.ml b/plugins/ltac/tauto.ml
index 756958c2f..fb05fd7d0 100644
--- a/ltac/tauto.ml
+++ b/plugins/ltac/tauto.ml
@@ -259,7 +259,7 @@ let with_flags flags _ ist =
 
 let register_tauto_tactic tac name0 args =
   let ids = List.map (fun id -> Id.of_string id) args in
-  let ids = List.map (fun id -> Some id) ids in
+  let ids = List.map (fun id -> Name id) ids in
   let name = { mltac_plugin = tauto_plugin; mltac_tactic = name0; } in
   let entry = { mltac_name = name; mltac_index = 0 } in
   let () = Tacenv.register_ml_tactic name [| tac |] in
diff --git a/plugins/ltac/tauto.mli b/plugins/ltac/tauto.mli
new file mode 100644
index 000000000..e69de29bb
--- /dev/null
+++ b/plugins/ltac/tauto.mli
diff --git a/plugins/ltac/vo.itarget b/plugins/ltac/vo.itarget
new file mode 100644
index 000000000..a28fb770b
--- /dev/null
+++ b/plugins/ltac/vo.itarget
@@ -0,0 +1 @@
+Ltac.vo
diff --git a/plugins/micromega/coq_micromega.ml b/plugins/micromega/coq_micromega.ml
index e4b58a56f..97f29df82 100644
--- a/plugins/micromega/coq_micromega.ml
+++ b/plugins/micromega/coq_micromega.ml
@@ -383,7 +383,6 @@ struct
   let coq_and = lazy (init_constant "and")
   let coq_or = lazy (init_constant "or")
   let coq_not = lazy (init_constant "not")
-  let coq_not_gl_ref = (Nametab.locate (  Libnames.qualid_of_string "Coq.Init.Logic.not"))
 
   let coq_iff = lazy (init_constant "iff")
   let coq_True = lazy (init_constant "True")
diff --git a/plugins/micromega/g_micromega.ml4 b/plugins/micromega/g_micromega.ml4
index 79020ed03..ccb6daa11 100644
--- a/plugins/micromega/g_micromega.ml4
+++ b/plugins/micromega/g_micromega.ml4
@@ -16,6 +16,7 @@
 
 (*i camlp4deps: "grammar/grammar.cma" i*)
 
+open Ltac_plugin
 open Stdarg
 open Tacarg
 
diff --git a/plugins/nsatz/g_nsatz.ml4 b/plugins/nsatz/g_nsatz.ml4
index 5f906a8da..635237d33 100644
--- a/plugins/nsatz/g_nsatz.ml4
+++ b/plugins/nsatz/g_nsatz.ml4
@@ -1,5 +1,3 @@
-DECLARE PLUGIN "nsatz_plugin"
-
 (************************************************************************)
 (*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
 (* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016     *)
@@ -10,6 +8,9 @@ DECLARE PLUGIN "nsatz_plugin"
 
 (*i camlp4deps: "grammar/grammar.cma" i*)
 
+open Ltac_plugin
+open Names
+
 DECLARE PLUGIN "nsatz_plugin"
 
 TACTIC EXTEND nsatz_compute
diff --git a/plugins/omega/g_omega.ml4 b/plugins/omega/g_omega.ml4
index 27115abec..6b711a176 100644
--- a/plugins/omega/g_omega.ml4
+++ b/plugins/omega/g_omega.ml4
@@ -17,6 +17,7 @@
 
 DECLARE PLUGIN "omega_plugin"
 
+open Ltac_plugin
 open Names
 open Coq_omega
 open Stdarg
diff --git a/plugins/quote/g_quote.ml4 b/plugins/quote/g_quote.ml4
index e7e6ecef9..f2c021f59 100644
--- a/plugins/quote/g_quote.ml4
+++ b/plugins/quote/g_quote.ml4
@@ -8,6 +8,7 @@
 
 (*i camlp4deps: "grammar/grammar.cma" i*)
 
+open Ltac_plugin
 open Names
 open Misctypes
 open Tacexpr
diff --git a/plugins/romega/g_romega.ml4 b/plugins/romega/g_romega.ml4
index 2f38688d1..9a54ad778 100644
--- a/plugins/romega/g_romega.ml4
+++ b/plugins/romega/g_romega.ml4
@@ -10,6 +10,7 @@
 
 DECLARE PLUGIN "romega_plugin"
 
+open Ltac_plugin
 open Names
 open Refl_omega
 open Stdarg
diff --git a/plugins/rtauto/g_rtauto.ml4 b/plugins/rtauto/g_rtauto.ml4
index d27b04834..7e58ef9a3 100644
--- a/plugins/rtauto/g_rtauto.ml4
+++ b/plugins/rtauto/g_rtauto.ml4
@@ -8,6 +8,8 @@
 
 (*i camlp4deps: "grammar/grammar.cma"  i*)
 
+open Ltac_plugin
+
 DECLARE PLUGIN "rtauto_plugin"
 
 TACTIC EXTEND rtauto
diff --git a/plugins/rtauto/refl_tauto.ml b/plugins/rtauto/refl_tauto.ml
index 367a13333..35d6768c1 100644
--- a/plugins/rtauto/refl_tauto.ml
+++ b/plugins/rtauto/refl_tauto.ml
@@ -8,6 +8,7 @@
 
 module Search = Explore.Make(Proof_search)
 
+open Ltac_plugin
 open CErrors
 open Util
 open Term
diff --git a/plugins/setoid_ring/g_newring.ml4 b/plugins/setoid_ring/g_newring.ml4
index 0987c44ae..707ff79a6 100644
--- a/plugins/setoid_ring/g_newring.ml4
+++ b/plugins/setoid_ring/g_newring.ml4
@@ -8,6 +8,7 @@
 
 (*i camlp4deps: "grammar/grammar.cma" i*)
 
+open Ltac_plugin
 open Pp
 open Util
 open Libnames
diff --git a/plugins/setoid_ring/newring.ml b/plugins/setoid_ring/newring.ml
index 657efe175..eb35d3f80 100644
--- a/plugins/setoid_ring/newring.ml
+++ b/plugins/setoid_ring/newring.ml
@@ -6,6 +6,7 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
+open Ltac_plugin
 open Pp
 open CErrors
 open Util
@@ -122,7 +123,7 @@ let closed_term_ast l =
     mltac_index = 0;
   } in
   let l = List.map (fun gr -> ArgArg(Loc.ghost,gr)) l in
-  TacFun([Some(Id.of_string"t")],
+  TacFun([Name(Id.of_string"t")],
   TacML(Loc.ghost,tacname,
   [TacGeneric (Genarg.in_gen (Genarg.glbwit Stdarg.wit_constr) (GVar(Loc.ghost,Id.of_string"t"),None));
    TacGeneric (Genarg.in_gen (Genarg.glbwit (Genarg.wit_list Stdarg.wit_ref)) l)]))
@@ -205,7 +206,7 @@ let exec_tactic env evd n f args =
   let lid = List.init n (fun i -> Id.of_string("x"^string_of_int i)) in
   let n = Genarg.in_gen (Genarg.glbwit Stdarg.wit_int) n in
   let get_res = TacML (Loc.ghost, get_res, [TacGeneric n]) in
-  let getter = Tacexp (TacFun (List.map (fun id -> Some id) lid, get_res)) in
+  let getter = Tacexp (TacFun (List.map (fun n -> Name n) lid, get_res)) in
   (** Evaluate the whole result *)
   let gl = dummy_goal env evd in
   let gls = Proofview.V82.of_tactic (Tacinterp.eval_tactic_ist ist (ltac_call f (args@[getter]))) gl in
@@ -722,8 +723,8 @@ let ltac_ring_structure e =
   let pow_tac = tacarg e.ring_pow_tac in
   let lemma1 = carg e.ring_lemma1 in
   let lemma2 = carg e.ring_lemma2 in
-  let pretac = tacarg (TacFun([None],e.ring_pre_tac)) in
-  let posttac = tacarg (TacFun([None],e.ring_post_tac)) in
+  let pretac = tacarg (TacFun([Anonymous],e.ring_pre_tac)) in
+  let posttac = tacarg (TacFun([Anonymous],e.ring_post_tac)) in
   [req;sth;ext;morph;th;cst_tac;pow_tac;
    lemma1;lemma2;pretac;posttac]
 
@@ -994,8 +995,8 @@ let ltac_field_structure e =
   let field_simpl_eq_ok = carg e.field_simpl_eq_ok in
   let field_simpl_eq_in_ok = carg e.field_simpl_eq_in_ok in
   let cond_ok = carg e.field_cond in
-  let pretac = tacarg (TacFun([None],e.field_pre_tac)) in
-  let posttac = tacarg (TacFun([None],e.field_post_tac)) in
+  let pretac = tacarg (TacFun([Anonymous],e.field_pre_tac)) in
+  let posttac = tacarg (TacFun([Anonymous],e.field_post_tac)) in
   [req;cst_tac;pow_tac;field_ok;field_simpl_ok;field_simpl_eq_ok;
    field_simpl_eq_in_ok;cond_ok;pretac;posttac]
 
diff --git a/plugins/ssrmatching/ssrmatching.ml4 b/plugins/ssrmatching/ssrmatching.ml4
index 0d4be72d9..03c4ae47d 100644
--- a/plugins/ssrmatching/ssrmatching.ml4
+++ b/plugins/ssrmatching/ssrmatching.ml4
@@ -15,6 +15,7 @@ let frozen_lexer = CLexer.freeze () ;;
 (*i camlp4use: "pa_extend.cmo" i*)
 (*i camlp4deps: "grammar/grammar.cma" i*)
 
+open Ltac_plugin
 open Names
 open Pp
 open Pcoq
@@ -391,7 +392,8 @@ let iter_constr_LR f c = match kind_of_term c with
   | Case (_, p, v, b) -> f v; f p; Array.iter f b
   | Fix (_, (_, t, b)) | CoFix (_, (_, t, b)) ->
     for i = 0 to Array.length t - 1 do f t.(i); f b.(i) done
-  | _ -> ()
+  | Proj(_,a) -> f a
+  | (Rel _ | Meta _ | Var _   | Sort _ | Const _ | Ind _ | Construct _) -> ()
 
 (* The comparison used to determine which subterms matches is KEYED        *)
 (* CONVERSION. This looks for convertible terms that either have the same  *)
@@ -525,7 +527,13 @@ let nb_cs_proj_args pc f u =
   try match kind_of_term f with
   | Prod _ -> na Prod_cs
   | Sort s -> na (Sort_cs (family_of_sort s))
-  | Const (c',_) when Constant.equal c' pc -> Array.length (snd (destApp u.up_f))
+  | Const (c',_) when Constant.equal c' pc ->
+      begin match kind_of_term u.up_f with
+      | App(_,args) -> Array.length args
+      | Proj _ -> 0 (* if splay_app calls expand_projection, this has to be
+                       the number of arguments including the projected *)
+      | _ -> assert false
+      end
   | Var _ | Ind _ | Construct _ | Const _ -> na (Const_cs (global_of_constr f))
   | _ -> -1
   with Not_found -> -1
@@ -1404,7 +1412,7 @@ let () =
   let name = { mltac_plugin = "ssrmatching_plugin"; mltac_tactic = "ssrpattern"; } in
   let () = Tacenv.register_ml_tactic name [|mltac|] in
   let tac =
-    TacFun ([Some (Id.of_string "pattern")],
+    TacFun ([Name (Id.of_string "pattern")],
       TacML (Loc.ghost, { mltac_name = name; mltac_index = 0 }, [])) in
   let obj () =
     Tacenv.register_ltac true false (Id.of_string "ssrpattern") tac in
diff --git a/pretyping/cases.ml b/pretyping/cases.ml
index 468446982..63c2dde18 100644
--- a/pretyping/cases.ml
+++ b/pretyping/cases.ml
@@ -275,9 +275,9 @@ let rec find_row_ind = function
 let inductive_template evdref env tmloc ind =
   let indu = evd_comb1 (Evd.fresh_inductive_instance env) evdref ind in
   let arsign = inductive_alldecls_env env indu in
-  let hole_source = match tmloc with
-    | Some loc -> fun i -> (loc, Evar_kinds.TomatchTypeParameter (ind,i))
-    | None -> fun _ -> (Loc.ghost, Evar_kinds.InternalHole) in
+  let hole_source i = match tmloc with
+    | Some loc -> (loc, Evar_kinds.TomatchTypeParameter (ind,i))
+    | None -> (Loc.ghost, Evar_kinds.TomatchTypeParameter (ind,i)) in
    let (_,evarl,_) =
     List.fold_right
       (fun decl (subst,evarl,n) ->
@@ -849,7 +849,7 @@ let subst_predicate (subst,copt) ccl tms =
     | Some c -> c::subst in
   substnl_predicate sigma 0 ccl tms
 
-let specialize_predicate_var (cur,typ,dep) tms ccl =
+let specialize_predicate_var (cur,typ,dep) env tms ccl =
   let c = match dep with
   | Anonymous -> None
   | Name _ -> Some cur
@@ -857,7 +857,9 @@ let specialize_predicate_var (cur,typ,dep) tms ccl =
   let l =
     match typ with
     | IsInd (_, IndType (_, _), []) -> []
-    | IsInd (_, IndType (_, realargs), names) -> realargs
+    | IsInd (_, IndType (indf, realargs), names) ->
+       let arsign,_ = get_arity env indf in
+       subst_of_rel_context_instance arsign realargs
     | NotInd _ -> [] in
   subst_predicate (l,c) ccl tms
 
@@ -1391,7 +1393,7 @@ and match_current pb (initial,tomatch) =
 and shift_problem ((current,t),_,na) pb =
   let ty = type_of_tomatch t in
   let tomatch = lift_tomatch_stack 1 pb.tomatch in
-  let pred = specialize_predicate_var (current,t,na) pb.tomatch pb.pred in
+  let pred = specialize_predicate_var (current,t,na) pb.env pb.tomatch pb.pred in
   let pb =
     { pb with
        env = push_rel (LocalDef (na,current,ty)) pb.env;
@@ -1408,7 +1410,7 @@ and shift_problem ((current,t),_,na) pb =
    are already introduced in the context, we avoid creating aliases to
    themselves by treating this case specially. *)
 and pop_problem ((current,t),_,na) pb =
-  let pred = specialize_predicate_var (current,t,na) pb.tomatch pb.pred in
+  let pred = specialize_predicate_var (current,t,na) pb.env pb.tomatch pb.pred in
   let pb =
     { pb with
        pred = pred;
diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml
index 29f57144a..ac6d775e3 100644
--- a/pretyping/inductiveops.ml
+++ b/pretyping/inductiveops.ml
@@ -24,14 +24,14 @@ open Context.Rel.Declaration
 
 let type_of_inductive env (ind,u) =
  let (mib,_ as specif) = Inductive.lookup_mind_specif env ind in
- Typeops.check_hyps_inclusion env (mkInd ind) mib.mind_hyps;
+ Typeops.check_hyps_inclusion env mkInd ind mib.mind_hyps;
  Inductive.type_of_inductive env (specif,u)
 
 (* Return type as quoted by the user *)
 let type_of_constructor env (cstr,u) =
  let (mib,_ as specif) =
    Inductive.lookup_mind_specif env (inductive_of_constructor cstr) in
- Typeops.check_hyps_inclusion env (mkConstruct cstr) mib.mind_hyps;
+ Typeops.check_hyps_inclusion env mkConstruct cstr mib.mind_hyps;
  Inductive.type_of_constructor (cstr,u) specif
 
 (* Return constructor types in user form *)
@@ -615,7 +615,7 @@ let type_of_projection_knowing_arg env sigma p c ty =
       raise (Invalid_argument "type_of_projection_knowing_arg_type: not an inductive type")
   in
   let (_,u), pars = dest_ind_family pars in
-  substl (c :: List.rev pars) (Typeops.type_of_projection env (p,u))
+  substl (c :: List.rev pars) (Typeops.type_of_projection_constant env (p,u))
 
 (***********************************************)
 (* Guard condition *)
diff --git a/printing/miscprint.ml b/printing/miscprint.ml
index 7b2c5695f..360843711 100644
--- a/printing/miscprint.ml
+++ b/printing/miscprint.ml
@@ -28,7 +28,7 @@ and pr_intro_pattern_action prc = function
   | IntroInjection pl ->
       str "[=" ++ hv 0 (prlist_with_sep spc (pr_intro_pattern prc) pl) ++
       str "]"
-  | IntroApplyOn (c,pat) -> pr_intro_pattern prc pat ++ str "%" ++ prc c
+  | IntroApplyOn ((_,c),pat) -> pr_intro_pattern prc pat ++ str "%" ++ prc c
   | IntroRewrite true -> str "->"
   | IntroRewrite false -> str "<-"
 
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml
index aa94fb7be..80ddd669f 100644
--- a/printing/ppconstr.ml
+++ b/printing/ppconstr.ml
@@ -442,7 +442,7 @@ end) = struct
   let pr_recursive_decl pr pr_dangling dangling_with_for id bl annot t c =
     let pr_body =
       if dangling_with_for then pr_dangling else pr in
-    pr_id id ++ str" " ++
+    pr_id id ++ (if bl = [] then mt () else str" ") ++
       hov 0 (pr_undelimited_binders spc (pr ltop) bl ++ annot) ++
       pr_opt_type_spc pr t ++ str " :=" ++
       pr_sep_com (fun () -> brk(1,2)) (pr_body ltop) c
diff --git a/printing/printer.ml b/printing/printer.ml
index bfc2e1bc9..00c2b636b 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -296,6 +296,9 @@ let pr_named_context_of env sigma =
   let psl = List.rev (fold_named_context make_decl_list env ~init:[]) in
   hv 0 (prlist_with_sep (fun _ -> ws 2) (fun x -> x) psl)
 
+let pr_var_list_decl env sigma decl =
+  hov 0 (pr_compacted_decl env sigma decl)
+
 let pr_named_context env sigma ne_context =
   hv 0 (Context.Named.fold_outside
 	  (fun d pps -> pps ++ ws 2 ++ pr_named_decl env sigma d)
@@ -329,39 +332,43 @@ let pr_ne_context_of header env sigma =
     List.is_empty (Environ.named_context env)  then (mt ())
   else let penv = pr_context_unlimited env sigma in (header ++ penv ++ fnl ())
 
-let pr_context_limit n env sigma =
-  let named_context = Environ.named_context env in
-  let lgsign = List.length named_context in
-  if n >= lgsign then
-    pr_context_unlimited env sigma
-  else
-    let k = lgsign-n in
-    let _,sign_env =
-      Context.Compacted.fold
-        (fun d (i,pps) ->
-           if i < k then
-	     (i+1, (pps ++str "."))
-	   else
-             let pidt = pr_compacted_decl env sigma d in
-	     (i+1, (pps ++ fnl () ++
-		      str (emacs_str "") ++
-		      pidt)))
-        (Termops.compact_named_context (Environ.named_context env)) ~init:(0,(mt ()))
-    in
-    let db_env =
-      fold_rel_context
-        (fun env d pps ->
-           let pnat = pr_rel_decl env sigma d in
-	   (pps ++ fnl () ++
-	      str (emacs_str "") ++
-	      pnat))
-        env ~init:(mt ())
-    in
-    (sign_env ++ db_env)
+let rec bld_sign_env env sigma ctxt pps =
+  match ctxt with
+  | [] -> pps
+  | d:: ctxt' ->
+     let pidt = pr_var_list_decl env sigma d in
+     let pps' = pps ++ brk (0,0) ++ pidt in
+     bld_sign_env env sigma ctxt' pps'
+
+
+let pr_context_limit_compact ?n env sigma =
+  let ctxt = Termops.compact_named_context (named_context env) in
+  let lgth = List.length ctxt in
+  let n_capped =
+    match n with
+    | None -> lgth
+    | Some n when n > lgth -> lgth
+    | Some n -> n in
+  let ctxt_chopped,ctxt_hidden = Util.List.chop n_capped ctxt in
+  (* a dot line hinting the number of hiden hyps. *)
+  let hidden_dots = String.make (List.length ctxt_hidden) '.' in
+  let sign_env = v 0 (str hidden_dots ++ (mt ())
+                 ++ bld_sign_env env sigma (List.rev ctxt_chopped) (mt ())) in
+  let db_env =
+    fold_rel_context
+      (fun env d pps -> pps ++ fnl () ++ pr_rel_decl env sigma d)
+      env ~init:(mt ()) in
+  (sign_env ++ db_env)
+
+(* compact printing an env (variables and de Bruijn). Separator: three
+   spaces between simple hyps, and newline otherwise *)
+let pr_context_unlimited_compact env sigma =
+  pr_context_limit_compact env sigma
 
-let pr_context_of env sigma = match Flags.print_hyps_limit () with
-  | None -> hv 0 (pr_context_unlimited env sigma)
-  | Some n -> hv 0 (pr_context_limit n env sigma)
+let pr_context_of env sigma =
+  match Flags.print_hyps_limit () with
+  | None -> hv 0 (pr_context_limit_compact env sigma)
+  | Some n -> hv 0 (pr_context_limit_compact ~n env sigma)
 
 (* display goal parts (Proof mode) *)
 
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml
index 80bea0c3b..b06ea43bd 100644
--- a/proofs/pfedit.ml
+++ b/proofs/pfedit.ml
@@ -143,12 +143,7 @@ let solve ?with_end_tac gi info_lvl tac pr =
     in
     (p,status)
   with
-    | Proof_global.NoCurrentProof  -> CErrors.error "No focused proof"
-    | CList.IndexOutOfRange ->
-        match gi with
-	| Vernacexpr.SelectNth i -> let msg = str "No such goal: " ++ int i ++ str "." in
-	                            CErrors.user_err  msg
-        | _ -> assert false
+    Proof_global.NoCurrentProof -> CErrors.error "No focused proof"
 
 let by tac = Proof_global.with_current_proof (fun _ -> solve (Vernacexpr.SelectNth 1) None tac)
 
diff --git a/proofs/proof.ml b/proofs/proof.ml
index 0a3b08c04..b2103489a 100644
--- a/proofs/proof.ml
+++ b/proofs/proof.ml
@@ -372,6 +372,22 @@ let in_proof p k = k (Proofview.return p.proofview)
 let unshelve p =
   { p with proofview = Proofview.unshelve (p.shelf) (p.proofview) ; shelf = [] }
 
+let pr_proof p =
+  let p = map_structured_proof p (fun _sigma g -> g) in
+  Pp.(
+    let pr_goal_list = prlist_with_sep spc Goal.pr_goal in
+    let rec aux acc = function
+      | [] -> acc
+      | (before,after)::stack ->
+         aux (pr_goal_list before ++ spc () ++ str "{" ++ acc ++ str "}" ++ spc () ++
+              pr_goal_list after) stack in
+    str "[" ++ str "focus structure: " ++
+               aux (pr_goal_list p.fg_goals) p.bg_goals ++ str ";" ++ spc () ++
+    str "shelved: " ++ pr_goal_list p.shelved_goals ++ str ";" ++ spc () ++
+    str "given up: " ++ pr_goal_list p.given_up_goals ++
+    str "]"
+  )
+
 (*** Compatibility layer with <=v8.2 ***)
 module V82 = struct
   let subgoals p =
diff --git a/proofs/proof.mli b/proofs/proof.mli
index 5053fc7fb..8dc165e72 100644
--- a/proofs/proof.mli
+++ b/proofs/proof.mli
@@ -182,6 +182,8 @@ val in_proof : proof -> (Evd.evar_map -> 'a) -> 'a
    focused goals. *)
 val unshelve : proof -> proof
 
+val pr_proof : proof -> Pp.std_ppcmds
+
 (*** Compatibility layer with <=v8.2 ***)
 module V82 : sig
   val subgoals : proof -> Goal.goal list Evd.sigma
diff --git a/proofs/proof_global.ml b/proofs/proof_global.ml
index a2ee62221..120cde5e5 100644
--- a/proofs/proof_global.ml
+++ b/proofs/proof_global.ml
@@ -317,7 +317,10 @@ let constrain_variables init uctx =
   let cstrs = UState.constrain_variables levels uctx in
   Univ.ContextSet.add_constraints cstrs (UState.context_set uctx)
 
-let close_proof ~keep_body_ucst_separate ?feedback_id ~now fpl =
+type closed_proof_output = (Term.constr * Safe_typing.private_constants) list * Evd.evar_universe_context
+
+let close_proof ~keep_body_ucst_separate ?feedback_id ~now
+                (fpl : closed_proof_output Future.computation) =
   let { pid; section_vars; strength; proof; terminator; universe_binders } =
     cur_pstate () in
   let poly = pi2 strength (* Polymorphic *) in
@@ -395,8 +398,6 @@ let close_proof ~keep_body_ucst_separate ?feedback_id ~now fpl =
     universes = (universes, binders) },
   fun pr_ending -> CEphemeron.get terminator pr_ending
 
-type closed_proof_output = (Term.constr * Safe_typing.private_constants) list * Evd.evar_universe_context
-
 let return_proof ?(allow_partial=false) () =
  let { pid; proof; strength = (_,poly,_) } = cur_pstate () in
  if allow_partial then begin
diff --git a/stm/asyncTaskQueue.ml b/stm/asyncTaskQueue.ml
index fa6422cdc..8acc3c233 100644
--- a/stm/asyncTaskQueue.ml
+++ b/stm/asyncTaskQueue.ml
@@ -170,7 +170,7 @@ module Make(T : Task) = struct
         | Unix.WSIGNALED sno -> Printf.sprintf "signalled(%d)" sno
         | Unix.WSTOPPED sno -> Printf.sprintf "stopped(%d)" sno) in
     let more_univs n =
-      CList.init 10 (fun _ ->
+      CList.init n (fun _ ->
         Universes.new_univ_level (Global.current_dirpath ())) in
 
     let rec kill_if () =
diff --git a/stm/stm.ml b/stm/stm.ml
index f7569d257..e698d1c72 100644
--- a/stm/stm.ml
+++ b/stm/stm.ml
@@ -24,11 +24,13 @@ open Ppvernac
 open Vernac_classifier
 open Feedback
 
+let execution_error state_id loc msg =
+    feedback ~id:(State state_id)
+      (Message (Error, Some loc, pp_to_richpp msg))
+
 module Hooks = struct
 
 let process_error, process_error_hook = Hook.make ()
-let interp, interp_hook = Hook.make ()
-let with_fail, with_fail_hook = Hook.make ()
 
 let state_computed, state_computed_hook = Hook.make
  ~default:(fun state_id ~in_cache ->
@@ -48,10 +50,6 @@ let parse_error, parse_error_hook = Hook.make
  ~default:(fun id loc msg ->
         feedback ~id (Message(Error, Some loc, pp_to_richpp msg))) ()
 
-let execution_error, execution_error_hook = Hook.make
- ~default:(fun state_id loc msg ->
-    feedback ~id:(State state_id) (Message(Error, Some loc, pp_to_richpp msg))) ()
-
 let unreachable_state, unreachable_state_hook = Hook.make
  ~default:(fun _ _ -> ()) ()
 
@@ -105,26 +103,6 @@ let may_pierce_opaque = function
   | { expr = VernacExtend (("ExtractionInductive",_), _) } -> true
   | _ -> false
 
-(* Wrapper for Vernacentries.interp to set the feedback id *)
-let vernac_interp ?proof id ?route { verbose; loc; expr } =
-  let rec internal_command = function
-    | VernacResetName _ | VernacResetInitial | VernacBack _
-    | VernacBackTo _ | VernacRestart | VernacUndo _ | VernacUndoTo _
-    | VernacBacktrack _ | VernacAbortAll | VernacAbort _ -> true
-    | VernacTime (_,e) | VernacTimeout (_,e) | VernacRedirect (_,(_,e)) -> internal_command e
-    | _ -> false in
-  if internal_command expr then begin
-    prerr_endline (fun () -> "ignoring " ^ Pp.string_of_ppcmds(pr_vernac expr))
-  end else begin
-    set_id_for_feedback ?route (State id);
-    Aux_file.record_in_aux_set_at loc;
-    prerr_endline (fun () -> "interpreting " ^ Pp.string_of_ppcmds(pr_vernac expr));
-    try Hooks.(call interp ?verbosely:(Some verbose) ?proof (loc, expr))
-    with e ->
-      let e = CErrors.push e in
-      iraise Hooks.(call_process_error_once e)
-  end
-
 (* Wrapper for Vernac.parse_sentence to set the feedback id *)
 let indentation_of_string s =
   let len = String.length s in
@@ -860,7 +838,7 @@ end = struct (* {{{ *)
     | None ->
         let loc = Option.default Loc.ghost (Loc.get_loc info) in
         let (e, info) = Hooks.(call_process_error_once (e, info)) in
-        Hooks.(call execution_error id loc (iprint (e, info)));
+        execution_error id loc (iprint (e, info));
         (e, Stateid.add info ~valid id)
 
   let same_env { system = s1 } { system = s2 } =
@@ -910,6 +888,126 @@ end = struct (* {{{ *)
 
 end (* }}} *)
 
+(* indentation code for Show Script, initially contributed
+ * by D. de Rauglaudre. Should be moved away.
+ *)
+
+module ShowScript = struct
+
+let indent_script_item ((ng1,ngl1),nl,beginend,ppl) (cmd,ng) =
+  (* ng1 : number of goals remaining at the current level (before cmd)
+     ngl1 : stack of previous levels with their remaining goals
+     ng : number of goals after the execution of cmd
+     beginend : special indentation stack for { } *)
+  let ngprev = List.fold_left (+) ng1 ngl1 in
+  let new_ngl =
+    if ng > ngprev then
+      (* We've branched *)
+      (ng - ngprev + 1, ng1 - 1 :: ngl1)
+    else if ng < ngprev then
+      (* A subgoal have been solved. Let's compute the new current level
+	 by discarding all levels with 0 remaining goals. *)
+      let rec loop = function
+	| (0, ng2::ngl2) -> loop (ng2,ngl2)
+	| p -> p
+      in loop (ng1-1, ngl1)
+    else
+      (* Standard case, same goal number as before *)
+      (ng1, ngl1)
+  in
+  (* When a subgoal have been solved, separate this block by an empty line *)
+  let new_nl = (ng < ngprev)
+  in
+  (* Indentation depth *)
+  let ind = List.length ngl1
+  in
+  (* Some special handling of bullets and { }, to get a nicer display *)
+  let pred n = max 0 (n-1) in
+  let ind, nl, new_beginend = match cmd with
+    | VernacSubproof _ -> pred ind, nl, (pred ind)::beginend
+    | VernacEndSubproof -> List.hd beginend, false, List.tl beginend
+    | VernacBullet _ -> pred ind, nl, beginend
+    | _ -> ind, nl, beginend
+  in
+  let pp =
+    (if nl then fnl () else mt ()) ++
+    (hov (ind+1) (str (String.make ind ' ') ++ Ppvernac.pr_vernac cmd))
+  in
+  (new_ngl, new_nl, new_beginend, pp :: ppl)
+
+let get_script prf =
+  let branch, test =
+    match prf with
+    | None -> VCS.Branch.master, fun _ -> true
+    | Some name -> VCS.current_branch (),fun nl -> nl=[] || List.mem name nl in
+  let rec find acc id =
+    if Stateid.equal id Stateid.initial ||
+       Stateid.equal id Stateid.dummy then acc else
+    let view = VCS.visit id in
+    match view.step with
+    | `Fork((_,_,_,ns), _) when test ns -> acc
+    | `Qed (qed, proof) -> find [qed.qast.expr, (VCS.get_info id).n_goals] proof
+    | `Sideff (`Ast (x,_)) ->
+         find ((x.expr, (VCS.get_info id).n_goals)::acc) view.next
+    | `Sideff (`Id id)  -> find acc id
+    | `Cmd {cast = x; ctac} when ctac -> (* skip non-tactics *)
+         find ((x.expr, (VCS.get_info id).n_goals)::acc) view.next 
+    | `Cmd _ -> find acc view.next
+    | `Alias (id,_) -> find acc id
+    | `Fork _ -> find acc view.next
+    in
+  find [] (VCS.get_branch_pos branch)
+
+let show_script ?proof () =
+  try
+    let prf =
+      try match proof with
+      | None -> Some (Pfedit.get_current_proof_name ())
+      | Some (p,_) -> Some (p.Proof_global.id)
+      with Proof_global.NoCurrentProof -> None
+    in
+    let cmds = get_script prf in
+    let _,_,_,indented_cmds =
+      List.fold_left indent_script_item ((1,[]),false,[],[]) cmds
+    in
+    let indented_cmds = List.rev (indented_cmds) in
+    msg_notice (v 0 (prlist_with_sep fnl (fun x -> x) indented_cmds))
+  with Vcs_aux.Expired -> ()
+
+end
+
+(* Wrapper for Vernacentries.interp to set the feedback id *)
+(* It is currently called 19 times, this number should be certainly
+   reduced... *)
+let stm_vernac_interp ?proof id ?route { verbose; loc; expr } =
+  (* The Stm will gain the capability to interpret commmads affecting
+     the whole document state, such as backtrack, etc... so we start
+     to design the stm command interpreter now *)
+  set_id_for_feedback ?route (State id);
+  Aux_file.record_in_aux_set_at loc;
+  (* We need to check if a command should be filtered from
+   * vernac_entries, as it cannot handle it. This should go away in
+   * future refactorings.
+   *)
+  let rec is_filtered_command = function
+  | VernacResetName _ | VernacResetInitial | VernacBack _
+  | VernacBackTo _ | VernacRestart | VernacUndo _ | VernacUndoTo _
+  | VernacBacktrack _ | VernacAbortAll | VernacAbort _ -> true
+  | VernacTime (_,e) | VernacTimeout (_,e) | VernacRedirect (_,(_,e)) -> is_filtered_command e
+  | _ -> false
+  in
+  let aux_interp cmd =
+  if is_filtered_command cmd then
+    prerr_endline (fun () -> "ignoring " ^ Pp.string_of_ppcmds(pr_vernac expr))
+  else match cmd with
+  | VernacShow ShowScript -> ShowScript.show_script ()
+  | expr ->
+    prerr_endline (fun () -> "interpreting " ^ Pp.string_of_ppcmds(pr_vernac expr));
+    try Vernacentries.interp ?verbosely:(Some verbose) ?proof (loc, expr)
+    with e ->
+      let e = CErrors.push e in
+      iraise Hooks.(call_process_error_once e)
+  in aux_interp expr
 
 (****************************** CRUFT *****************************************)
 (******************************************************************************)
@@ -1287,7 +1385,7 @@ end = struct (* {{{ *)
         let info = Stateid.add ~valid:start Exninfo.null start in
         let e = (RemoteException (strbrk s), info) in
         t_assign (`Exn e);
-        Hooks.(call execution_error start Loc.ghost (strbrk s));
+        execution_error start Loc.ghost (strbrk s);
         feedback (InProgress ~-1)
 
   let build_proof_here ~drop_pt (id,valid) loc eop =
@@ -1321,7 +1419,7 @@ end = struct (* {{{ *)
             Proof_global.close_future_proof stop (Future.from_val ~fix_exn p) in
           let terminator = (* The one sent by master is an InvalidKey *)
             Lemmas.(standard_proof_terminator [] (mk_hook (fun _ _ -> ()))) in
-          vernac_interp stop
+          stm_vernac_interp stop
             ~proof:(pobject, terminator)
             { verbose = false; loc; indentation = 0; strlen = 0;
               expr = (VernacEndProof (Proved (Opaque None,None))) }) in
@@ -1463,7 +1561,7 @@ end = struct (* {{{ *)
       (* We jump at the beginning since the kernel handles side effects by also
        * looking at the ones that happen to be present in the current env *)
       Reach.known_state ~cache:`No start;
-      vernac_interp stop ~proof
+      stm_vernac_interp stop ~proof
         { verbose = false; loc; indentation = 0; strlen = 0;
           expr = (VernacEndProof (Proved (Opaque None,None))) };
       `OK proof
@@ -1714,7 +1812,7 @@ end = struct (* {{{ *)
        else begin
         let (i, ast) = r_ast in
         Proof_global.simple_with_current_proof (fun _ p -> Proof.focus focus_cond () i p);
-        vernac_interp r_state_fb ast;
+        stm_vernac_interp r_state_fb ast;
         let _,_,_,_,sigma = Proof.proof (Proof_global.give_me_the_proof ()) in
         match Evd.(evar_body (find sigma r_goal)) with
         | Evd.Evar_empty -> RespNoProgress
@@ -1750,7 +1848,7 @@ end = struct (* {{{ *)
         | VernacTime (_,e) | VernacRedirect (_,(_,e)) -> find true fail e
         | VernacFail e -> find time true e
         | _ -> e, time, fail in find false false e in
-    Hooks.call Hooks.with_fail fail (fun () ->
+    Vernacentries.with_fail fail (fun () ->
     (if time then System.with_time false else (fun x -> x)) (fun () ->
     ignore(TaskQueue.with_n_workers nworkers (fun queue ->
     Proof_global.with_current_proof (fun _ p ->
@@ -1843,7 +1941,7 @@ end = struct (* {{{ *)
     VCS.print ();
     Reach.known_state ~cache:`No r_where;
     try
-      vernac_interp r_for { r_what with verbose = true };
+      stm_vernac_interp r_for { r_what with verbose = true };
       feedback ~id:(State r_for) Processed
     with e when CErrors.noncritical e ->
       let e = CErrors.push e in
@@ -2052,7 +2150,7 @@ let known_state ?(redefine_qed=false) ~cache id =
                Proof_global.with_current_proof (fun _ p ->
                  feedback ~id:(State id) Feedback.AddedAxiom;
                  fst (Pfedit.solve Vernacexpr.SelectAll None tac p), ());
-               Option.iter (fun expr -> vernac_interp id {
+               Option.iter (fun expr -> stm_vernac_interp id {
                   verbose = true; loc = Loc.ghost; expr; indentation = 0;
                   strlen = 0 })
                recovery_command
@@ -2131,24 +2229,24 @@ let known_state ?(redefine_qed=false) ~cache id =
             resilient_tactic id cblock (fun () ->
               reach view.next;
               Hooks.(call tactic_being_run true); 
-              vernac_interp id x;
+              stm_vernac_interp id x;
               Hooks.(call tactic_being_run false)); 
 	    if eff then update_global_env ()
           ), (if eff then `Yes else cache), true
       | `Cmd { cast = x; ceff = eff } -> (fun () ->
             resilient_command reach view.next;
-            vernac_interp id x;
+            stm_vernac_interp id x;
 	    if eff then update_global_env ()
           ), (if eff then `Yes else cache), true
       | `Fork ((x,_,_,_), None) -> (fun () ->
             resilient_command reach view.next;
-            vernac_interp id x;
+            stm_vernac_interp id x;
             wall_clock_last_fork := Unix.gettimeofday ()
           ), `Yes, true
       | `Fork ((x,_,_,_), Some prev) -> (fun () -> (* nested proof *)
             reach ~cache:`Shallow prev;
             reach view.next;
-            (try vernac_interp id x;
+            (try stm_vernac_interp id x;
             with e when CErrors.noncritical e ->
               let (e, info) = CErrors.push e in
               let info = Stateid.add info ~valid:prev id in
@@ -2198,14 +2296,14 @@ let known_state ?(redefine_qed=false) ~cache id =
                       Proof_global.close_future_proof ~feedback_id:id fp in
                     if not delegate then ignore(Future.compute fp);
                     reach view.next;
-                    vernac_interp id ~proof x;
+                    stm_vernac_interp id ~proof x;
                     feedback ~id:(State id) Incomplete
                 | { VCS.kind = `Master }, _ -> assert false
                 end;
                 Proof_global.discard_all ()
               ), (if redefine_qed then `No else `Yes), true
           | `Sync (name, _, `Immediate) -> (fun () -> 
-                reach eop; vernac_interp id x; Proof_global.discard_all ()
+                reach eop; stm_vernac_interp id x; Proof_global.discard_all ()
               ), `Yes, true
           | `Sync (name, pua, reason) -> (fun () ->
                 log_processing_sync id name reason;
@@ -2226,7 +2324,7 @@ let known_state ?(redefine_qed=false) ~cache id =
                 if keep != VtKeepAsAxiom then
                   reach view.next;
                 let wall_clock2 = Unix.gettimeofday () in
-                vernac_interp id ?proof x;
+                stm_vernac_interp id ?proof x;
                 let wall_clock3 = Unix.gettimeofday () in
                 Aux_file.record_in_aux_at x.loc "proof_check_time"
                   (Printf.sprintf "%.3f" (wall_clock3 -. wall_clock2));
@@ -2242,7 +2340,7 @@ let known_state ?(redefine_qed=false) ~cache id =
           in
           aux (collect_proof keep (view.next, x) brname brinfo eop)
       | `Sideff (`Ast (x,_)) -> (fun () ->
-            reach view.next; vernac_interp id x; update_global_env ()
+            reach view.next; stm_vernac_interp id x; update_global_env ()
           ), cache, true
       | `Sideff (`Id origin) -> (fun () ->
             reach view.next;
@@ -2430,7 +2528,7 @@ let process_transaction ?(newtip=Stateid.fresh ()) ~tty
         "  classified as: " ^ string_of_vernac_classification c);
       match c with
       (* PG stuff *)    
-      | VtStm(VtPG,false), VtNow -> vernac_interp Stateid.dummy x; `Ok
+      | VtStm(VtPG,false), VtNow -> stm_vernac_interp Stateid.dummy x; `Ok
       | VtStm(VtPG,_), _ -> anomaly(str "PG command in script or VtLater")
       (* Joining various parts of the document *)
       | VtStm (VtJoinDocument, b), VtNow -> join (); `Ok
@@ -2474,13 +2572,13 @@ let process_transaction ?(newtip=Stateid.fresh ()) ~tty
       (* Query *)
       | VtQuery (false,(report_id,route)), VtNow when tty = true ->
           finish ();
-          (try Future.purify (vernac_interp report_id ~route)
+          (try Future.purify (stm_vernac_interp report_id ~route)
             {x with verbose = true }
            with e when CErrors.noncritical e ->
              let e = CErrors.push e in
              iraise (State.exn_on ~valid:Stateid.dummy report_id e)); `Ok
       | VtQuery (false,(report_id,route)), VtNow ->
-          (try vernac_interp report_id ~route x
+          (try stm_vernac_interp report_id ~route x
            with e ->
              let e = CErrors.push e in
              iraise (State.exn_on ~valid:Stateid.dummy report_id e)); `Ok
@@ -2553,7 +2651,7 @@ let process_transaction ?(newtip=Stateid.fresh ()) ~tty
           
       (* Side effect on all branches *)
       | VtUnknown, _ when expr = VernacToplevelControl Drop ->
-          vernac_interp (VCS.get_branch_pos head) x; `Ok
+          stm_vernac_interp (VCS.get_branch_pos head) x; `Ok
 
       | VtSideff l, w ->
           let in_proof = not (VCS.Branch.equal head VCS.Branch.master) in
@@ -2579,17 +2677,17 @@ let process_transaction ?(newtip=Stateid.fresh ()) ~tty
             VCS.checkout VCS.Branch.master;
             let mid = VCS.get_branch_pos VCS.Branch.master in
             Reach.known_state ~cache:(interactive ()) mid;
-            vernac_interp id x;
+            stm_vernac_interp id x;
             (* Vernac x may or may not start a proof *)
             if not in_proof && Proof_global.there_are_pending_proofs () then
             begin
               let bname = VCS.mk_branch_name x in
-              let opacity_of_produced_term =
-                match x.expr with
+              let rec opacity_of_produced_term = function
                 (* This AST is ambiguous, hence we check it dynamically *)
                 | VernacInstance (false, _,_ , None, _) -> GuaranteesOpacity
+                | VernacLocal (_,e) -> opacity_of_produced_term e
                 | _ -> Doesn'tGuaranteeOpacity in
-              VCS.commit id (Fork (x,bname,opacity_of_produced_term,[]));
+              VCS.commit id (Fork (x,bname,opacity_of_produced_term x.expr,[]));
               let proof_mode = default_proof_mode () in
               VCS.branch bname (`Proof (proof_mode, VCS.proof_nesting () + 1));
               Proof_global.activate_proof_mode proof_mode;
@@ -2609,7 +2707,7 @@ let process_transaction ?(newtip=Stateid.fresh ()) ~tty
     begin match expr with 
       | VernacStm (PGLast _) ->
         if not (VCS.Branch.equal head VCS.Branch.master) then
-          vernac_interp Stateid.dummy
+          stm_vernac_interp Stateid.dummy
             { verbose = true; loc = Loc.ghost; indentation = 0; strlen = 0;
               expr = VernacShow (ShowGoal OpenSubgoals) }
       | _ -> ()
@@ -2856,102 +2954,13 @@ let proofname b = match VCS.get_branch b with
 let get_all_proof_names () =
   List.map unmangle (List.map_filter proofname (VCS.branches ()))
 
-let get_current_proof_name () =
-  Option.map unmangle (proofname (VCS.current_branch ()))
-
-let get_script prf =
-  let branch, test =
-    match prf with
-    | None -> VCS.Branch.master, fun _ -> true
-    | Some name -> VCS.current_branch (),fun nl -> nl=[] || List.mem name nl in
-  let rec find acc id =
-    if Stateid.equal id Stateid.initial ||
-       Stateid.equal id Stateid.dummy then acc else
-    let view = VCS.visit id in
-    match view.step with
-    | `Fork((_,_,_,ns), _) when test ns -> acc
-    | `Qed (qed, proof) -> find [qed.qast.expr, (VCS.get_info id).n_goals] proof
-    | `Sideff (`Ast (x,_)) ->
-         find ((x.expr, (VCS.get_info id).n_goals)::acc) view.next
-    | `Sideff (`Id id)  -> find acc id
-    | `Cmd {cast = x; ctac} when ctac -> (* skip non-tactics *)
-         find ((x.expr, (VCS.get_info id).n_goals)::acc) view.next 
-    | `Cmd _ -> find acc view.next
-    | `Alias (id,_) -> find acc id
-    | `Fork _ -> find acc view.next
-    in
-  find [] (VCS.get_branch_pos branch)
-
-(* indentation code for Show Script, initially contributed
-   by D. de Rauglaudre *)
-
-let indent_script_item ((ng1,ngl1),nl,beginend,ppl) (cmd,ng) =
-  (* ng1 : number of goals remaining at the current level (before cmd)
-     ngl1 : stack of previous levels with their remaining goals
-     ng : number of goals after the execution of cmd
-     beginend : special indentation stack for { } *)
-  let ngprev = List.fold_left (+) ng1 ngl1 in
-  let new_ngl =
-    if ng > ngprev then
-      (* We've branched *)
-      (ng - ngprev + 1, ng1 - 1 :: ngl1)
-    else if ng < ngprev then
-      (* A subgoal have been solved. Let's compute the new current level
-	 by discarding all levels with 0 remaining goals. *)
-      let rec loop = function
-	| (0, ng2::ngl2) -> loop (ng2,ngl2)
-	| p -> p
-      in loop (ng1-1, ngl1)
-    else
-      (* Standard case, same goal number as before *)
-      (ng1, ngl1)
-  in
-  (* When a subgoal have been solved, separate this block by an empty line *)
-  let new_nl = (ng < ngprev)
-  in
-  (* Indentation depth *)
-  let ind = List.length ngl1
-  in
-  (* Some special handling of bullets and { }, to get a nicer display *)
-  let pred n = max 0 (n-1) in
-  let ind, nl, new_beginend = match cmd with
-    | VernacSubproof _ -> pred ind, nl, (pred ind)::beginend
-    | VernacEndSubproof -> List.hd beginend, false, List.tl beginend
-    | VernacBullet _ -> pred ind, nl, beginend
-    | _ -> ind, nl, beginend
-  in
-  let pp =
-    (if nl then fnl () else mt ()) ++
-    (hov (ind+1) (str (String.make ind ' ') ++ Ppvernac.pr_vernac cmd))
-  in
-  (new_ngl, new_nl, new_beginend, pp :: ppl)
-
-let show_script ?proof () =
-  try
-    let prf =
-      try match proof with
-      | None -> Some (Pfedit.get_current_proof_name ())
-      | Some (p,_) -> Some (p.Proof_global.id)
-      with Proof_global.NoCurrentProof -> None
-    in
-    let cmds = get_script prf in
-    let _,_,_,indented_cmds =
-      List.fold_left indent_script_item ((1,[]),false,[],[]) cmds
-    in
-    let indented_cmds = List.rev (indented_cmds) in
-    msg_notice (v 0 (prlist_with_sep fnl (fun x -> x) indented_cmds))
-  with Vcs_aux.Expired -> ()
-
 (* Export hooks *)
 let state_computed_hook = Hooks.state_computed_hook
 let state_ready_hook = Hooks.state_ready_hook
 let parse_error_hook = Hooks.parse_error_hook
-let execution_error_hook = Hooks.execution_error_hook
 let forward_feedback_hook = Hooks.forward_feedback_hook
 let process_error_hook = Hooks.process_error_hook
-let interp_hook = Hooks.interp_hook
-let with_fail_hook = Hooks.with_fail_hook
 let unreachable_state_hook = Hooks.unreachable_state_hook
-let get_fix_exn () = !State.fix_exn_ref
+let () = Hook.set Obligations.stm_get_fix_exn (fun () -> !State.fix_exn_ref)
 let tactic_being_run_hook = Hooks.tactic_being_run_hook
 (* vim:set foldmethod=marker: *)
diff --git a/stm/stm.mli b/stm/stm.mli
index b8a2a3859..0f0a3c4e1 100644
--- a/stm/stm.mli
+++ b/stm/stm.mli
@@ -184,7 +184,6 @@ val register_proof_block_delimiter :
 val state_computed_hook : (Stateid.t -> in_cache:bool -> unit) Hook.t
 val parse_error_hook :
   (Feedback.edit_or_state_id -> Loc.t -> Pp.std_ppcmds -> unit) Hook.t
-val execution_error_hook : (Stateid.t -> Loc.t -> Pp.std_ppcmds -> unit) Hook.t
 val unreachable_state_hook : (Stateid.t -> Exninfo.iexn -> unit) Hook.t
 (* ready means that master has it at hand *)
 val state_ready_hook : (Stateid.t -> unit) Hook.t
@@ -213,12 +212,6 @@ val interp : bool -> vernac_expr located -> unit
 (* Queries for backward compatibility *)
 val current_proof_depth : unit -> int
 val get_all_proof_names : unit -> Id.t list
-val get_current_proof_name : unit -> Id.t option
-val show_script : ?proof:Proof_global.closed_proof -> unit -> unit
 
 (* Hooks to be set by other Coq components in order to break file cycles *)
 val process_error_hook : Future.fix_exn Hook.t
-val interp_hook : (?verbosely:bool -> ?proof:Proof_global.closed_proof ->
-  Loc.t * Vernacexpr.vernac_expr -> unit) Hook.t
-val with_fail_hook : (bool -> (unit -> unit) -> unit) Hook.t
-val get_fix_exn : unit -> (Exninfo.iexn -> Exninfo.iexn)
diff --git a/stm/stm.mllib b/stm/stm.mllib
index 939ee187a..4b254e811 100644
--- a/stm/stm.mllib
+++ b/stm/stm.mllib
@@ -4,7 +4,6 @@ Vcs
 TQueue
 WorkerPool
 Vernac_classifier
-Lemmas
 CoqworkmgrApi
 AsyncTaskQueue
 Stm
diff --git a/tactics/class_tactics.ml b/tactics/class_tactics.ml
index 0abfd342d..a85afcbf0 100644
--- a/tactics/class_tactics.ml
+++ b/tactics/class_tactics.ml
@@ -498,7 +498,16 @@ let catchable = function
   | Refiner.FailError _ -> true
   | e -> Logic.catchable_exception e
 
-let pr_depth l = prlist_with_sep (fun () -> str ".") int (List.rev l)
+(* alternate separators in debug search path output *)
+let debug_seps = [| "." ; "-" |]
+let next_sep seps = 
+  let num_seps = Array.length seps in
+  let sep_index = ref 0 in
+  fun () ->
+    let sep = seps.(!sep_index) in
+    sep_index := (!sep_index + 1) mod num_seps;
+    str sep
+let pr_depth l = prlist_with_sep (next_sep debug_seps) int (List.rev l)
 
 let is_Prop env sigma concl =
   let ty = Retyping.get_type_of env sigma concl in
diff --git a/tactics/equality.ml b/tactics/equality.ml
index a0d2da863..d44dcf10d 100644
--- a/tactics/equality.ml
+++ b/tactics/equality.ml
@@ -725,7 +725,7 @@ let find_positions env sigma t1 t2 =
     let hd1,args1 = whd_all_stack env sigma t1 in
     let hd2,args2 = whd_all_stack env sigma t2 in
     match (kind_of_term hd1, kind_of_term hd2) with
-      | Construct (sp1,_), Construct (sp2,_)
+      | Construct ((ind1,i1 as sp1),u1), Construct (sp2,_)
           when Int.equal (List.length args1) (constructor_nallargs_env env sp1)
             ->
 	  let sorts' =
@@ -734,11 +734,14 @@ let find_positions env sigma t1 t2 =
           (* both sides are fully applied constructors, so either we descend,
              or we can discriminate here. *)
 	  if eq_constructor sp1 sp2 then
-	    let nrealargs = constructor_nrealargs_env env sp1 in
-	    let rargs1 = List.lastn nrealargs args1 in
-	    let rargs2 = List.lastn nrealargs args2 in
+	    let nparams = inductive_nparams_env env ind1 in
+	    let params1,rargs1 = List.chop nparams args1 in
+	    let _,rargs2 = List.chop nparams args2 in
+            let (mib,mip) = lookup_mind_specif env ind1 in
+            let ctxt = (get_constructor ((ind1,u1),mib,mip,params1) i1).cs_args in
+            let adjust i = Vars.adjust_rel_to_rel_context ctxt (i+1) - 1 in
             List.flatten
-	      (List.map2_i (fun i -> findrec sorts' ((sp1,i)::posn))
+	      (List.map2_i (fun i -> findrec sorts' ((sp1,adjust i)::posn))
 		0 rargs1 rargs2)
 	  else if Sorts.List.mem InType sorts'
           then (* see build_discriminator *)
diff --git a/tactics/tacticals.ml b/tactics/tacticals.ml
index 93c04e373..c5562b326 100644
--- a/tactics/tacticals.ml
+++ b/tactics/tacticals.ml
@@ -368,6 +368,16 @@ module New = struct
           catch_failerror e <*> t2
         end
     end
+
+  let tclORELSE0L t1 t2 =
+    tclINDEPENDENTL begin
+      tclORELSE
+        t1
+        begin fun e ->
+          catch_failerror e <*> t2
+        end
+    end
+
   let tclORELSE t1 t2 =
     tclORELSE0 (tclPROGRESS t1) t2
 
@@ -419,6 +429,9 @@ module New = struct
 
   let tclTRY t =
     tclORELSE0 t (tclUNIT ())
+  
+  let tclTRYb t =
+    tclORELSE0L (t <*> tclUNIT true) (tclUNIT false)
 
   let tclIFTHENELSE t1 t2 t3 =
     tclINDEPENDENT begin
diff --git a/tactics/tacticals.mli b/tactics/tacticals.mli
index 18cf03c51..7aacc52f3 100644
--- a/tactics/tacticals.mli
+++ b/tactics/tacticals.mli
@@ -209,6 +209,7 @@ module New : sig
   val tclMAP : ('a -> unit tactic) -> 'a list -> unit tactic
 
   val tclTRY : unit tactic -> unit tactic
+  val tclTRYb : unit tactic -> bool list tactic
   val tclFIRST : unit tactic list -> unit tactic
   val tclIFTHENELSE : unit tactic -> unit tactic -> unit tactic -> unit tactic
   val tclIFTHENSVELSE : unit tactic -> unit tactic array -> unit tactic -> unit tactic
diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index 6205bd109..84d09d833 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -1815,24 +1815,37 @@ let find_matching_clause unifier clause =
     with NotExtensibleClause -> failwith "Cannot apply"
   in find clause
 
+exception UnableToApply
+
 let progress_with_clause flags innerclause clause =
   let ordered_metas = List.rev (clenv_independent clause) in
-  if List.is_empty ordered_metas then error "Statement without assumptions.";
+  if List.is_empty ordered_metas then raise UnableToApply;
   let f mv =
     try Some (find_matching_clause (clenv_fchain ~with_univs:false mv ~flags clause) innerclause)
     with Failure _ -> None
   in
   try List.find_map f ordered_metas
-  with Not_found -> error "Unable to unify."
+  with Not_found -> raise UnableToApply
+
+let explain_unable_to_apply_lemma loc env sigma thm innerclause =
+  user_err ~loc (hov 0
+    (Pp.str "Unable to apply lemma of type" ++ brk(1,1) ++
+     Pp.quote (Printer.pr_lconstr_env env sigma thm) ++ spc() ++
+     str "on hypothesis of type" ++ brk(1,1) ++
+     Pp.quote (Printer.pr_lconstr_env innerclause.env innerclause.evd (clenv_type innerclause)) ++
+     str "."))
 
-let apply_in_once_main flags innerclause env sigma (d,lbind) =
+let apply_in_once_main flags innerclause env sigma (loc,d,lbind) =
   let thm = nf_betaiota sigma (Retyping.get_type_of env sigma d) in
   let rec aux clause =
     try progress_with_clause flags innerclause clause
     with e when CErrors.noncritical e ->
-    let e = CErrors.push e in
+    let e' = CErrors.push e in
     try aux (clenv_push_prod clause)
-    with NotExtensibleClause -> iraise e
+    with NotExtensibleClause ->
+      match e with
+      | UnableToApply -> explain_unable_to_apply_lemma loc env sigma thm innerclause
+      | _ -> iraise e'
   in
   aux (make_clenv_binding env sigma (d,thm) lbind)
 
@@ -1852,7 +1865,7 @@ let apply_in_once sidecond_first with_delta with_destruct with_evars naming
     let env = Proofview.Goal.env gl in
     let sigma = Tacmach.New.project gl in
     try
-      let clause = apply_in_once_main flags innerclause env sigma (c,lbind) in
+      let clause = apply_in_once_main flags innerclause env sigma (loc,c,lbind) in
       clenv_refine_in ~sidecond_first with_evars targetid id sigma clause
         (fun id ->
           Tacticals.New.tclTHENLIST [
@@ -2467,7 +2480,7 @@ and intro_pattern_action loc with_evars b style pat thin destopt tac id =
       intro_decomp_eq loc l' thin tac id
   | IntroRewrite l2r ->
       rewrite_hyp_then style with_evars thin l2r id (fun thin -> tac thin None [])
-  | IntroApplyOn (f,(loc,pat)) ->
+  | IntroApplyOn ((loc',f),(loc,pat)) ->
       let naming,tac_ipat =
         prepare_intros_loc loc with_evars (IntroIdentifier id) destopt pat in
       let doclear =
@@ -2479,7 +2492,7 @@ and intro_pattern_action loc with_evars b style pat thin destopt tac id =
         let Sigma (c, sigma, p) = f.delayed env sigma in
         Sigma ((c, NoBindings), sigma, p)
       } in
-      apply_in_delayed_once false true true with_evars naming id (None,(loc,f))
+      apply_in_delayed_once false true true with_evars naming id (None,(loc',f))
         (fun id -> Tacticals.New.tclTHENLIST [doclear; tac_ipat id; tac thin None []])
 
 and prepare_intros_loc loc with_evars dft destopt = function
diff --git a/test-suite/bugs/closed/2417.v b/test-suite/bugs/closed/2417.v
new file mode 100644
index 000000000..b2f00ffc6
--- /dev/null
+++ b/test-suite/bugs/closed/2417.v
@@ -0,0 +1,15 @@
+Parameter x y : nat.
+Axiom H : x = y.
+Hint Rewrite H : mybase.
+
+Ltac bar base := autorewrite with base.
+
+Tactic Notation "foo" ident(base) := autorewrite with base.
+
+Goal x = 0.
+  bar mybase.
+  now_show (y = 0).
+  Undo 2.
+  foo mybase.
+  now_show (y = 0).
+Abort.
diff --git a/test-suite/bugs/closed/3612.v b/test-suite/bugs/closed/3612.v
index a54768507..4b4f81dbc 100644
--- a/test-suite/bugs/closed/3612.v
+++ b/test-suite/bugs/closed/3612.v
@@ -38,8 +38,11 @@ Axiom path_path_sigma : forall {A : Type} (P : A -> Type) (u v : sigT P)
            (s : transport (fun x => transport P x u.2 = v.2) r p..2 = q..2),
 p = q.
 
+Declare ML Module "ltac_plugin".
 Declare ML Module "coretactics".
 
+Set Default Proof Mode "Classic".
+
 Goal forall (A : Type) (B : forall _ : A, Type) (x : @sigT A (fun x : A => B x))
             (xx : @paths (@sigT A (fun x0 : A => B x0)) x x),
        @paths (@paths (@sigT A (fun x0 : A => B x0)) x x) xx
diff --git a/test-suite/bugs/closed/3649.v b/test-suite/bugs/closed/3649.v
index fc4c171e2..8687eaab0 100644
--- a/test-suite/bugs/closed/3649.v
+++ b/test-suite/bugs/closed/3649.v
@@ -2,7 +2,9 @@
 (* File reduced by coq-bug-finder from original input, then from 9518 lines to 404 lines, then from 410 lines to 208 lines, then from 162 lines to 77 lines *)
 (* coqc version trunk (September 2014) compiled on Sep 18 2014 21:0:5 with OCaml 4.01.0
    coqtop version cagnode16:/afs/csail.mit.edu/u/j/jgross/coq-trunk,trunk (07e4438bd758c2ced8caf09a6961ccd77d84e42b) *)
+Declare ML Module "ltac_plugin".
 Declare ML Module "coretactics".
+Set Default Proof Mode "Classic".
 Reserved Notation "x -> y" (at level 99, right associativity, y at level 200).
 Reserved Notation "x = y" (at level 70, no associativity).
 Delimit Scope type_scope with type.
diff --git a/test-suite/bugs/closed/4121.v b/test-suite/bugs/closed/4121.v
index d34a2b8b1..816bc845f 100644
--- a/test-suite/bugs/closed/4121.v
+++ b/test-suite/bugs/closed/4121.v
@@ -4,6 +4,8 @@ Unset Strict Universe Declaration.
 (* coqc version 8.5beta1 (March 2015) compiled on Mar 11 2015 18:51:36 with OCaml 4.01.0
    coqtop version cagnode15:/afs/csail.mit.edu/u/j/jgross/coq-8.5,v8.5 (8dbfee5c5f897af8186cb1bdfb04fd4f88eca677) *)
 
+Declare ML Module "ltac_plugin".
+
 Set Universe Polymorphism.
 Class Contr_internal (A : Type) := BuildContr { center : A }.
 Arguments center A {_}.
@@ -13,4 +15,4 @@ Definition contr_paths_contr0 {A} `{Contr A} : Contr A := {| center := center A
 Instance contr_paths_contr1 {A} `{Contr A} : Contr A := {| center := center A |}.
 Check @contr_paths_contr0@{i}.
 Check @contr_paths_contr1@{i}. (* Error: Universe instance should have length 2 *)
-(** It should have length 1, just like contr_paths_contr0 *)
-\ No newline at end of file
+(** It should have length 1, just like contr_paths_contr0 *)
diff --git a/test-suite/bugs/closed/4527.v b/test-suite/bugs/closed/4527.v
index 08628377f..c6fcc24b6 100644
--- a/test-suite/bugs/closed/4527.v
+++ b/test-suite/bugs/closed/4527.v
@@ -5,6 +5,7 @@ then from 269 lines to 255 lines *)
 (* coqc version 8.5 (January 2016) compiled on Jan 23 2016 16:15:22 with OCaml 
 4.01.0
    coqtop version 8.5 (January 2016) *)
+Declare ML Module "ltac_plugin".
 Inductive False := .
 Axiom proof_admitted : False.
 Tactic Notation "admit" := case proof_admitted.
diff --git a/test-suite/bugs/closed/4533.v b/test-suite/bugs/closed/4533.v
index ae17fb145..64c7fd8eb 100644
--- a/test-suite/bugs/closed/4533.v
+++ b/test-suite/bugs/closed/4533.v
@@ -5,6 +5,7 @@ then from 285 lines to 271 lines *)
 (* coqc version 8.5 (January 2016) compiled on Jan 23 2016 16:15:22 with OCaml 
 4.01.0
    coqtop version 8.5 (January 2016) *)
+Declare ML Module "ltac_plugin".
 Inductive False := .
 Axiom proof_admitted : False.
 Tactic Notation "admit" := case proof_admitted.
@@ -223,4 +224,4 @@ v = _) r,
     | [ |- p2 @ p0 @ p1 @ eissect (to O A) (g x) = r ] => idtac "good"
     | [ |- ?G ] => fail 1 "bad" G
     end.
-    Fail rewrite concat_p_pp.
-\ No newline at end of file
+    Fail rewrite concat_p_pp.
diff --git a/test-suite/bugs/closed/4544.v b/test-suite/bugs/closed/4544.v
index da140c931..64dd8c304 100644
--- a/test-suite/bugs/closed/4544.v
+++ b/test-suite/bugs/closed/4544.v
@@ -2,6 +2,7 @@
 (* File reduced by coq-bug-finder from original input, then from 2553 lines to 1932 lines, then from 1946 lines to 1932 lines, then from 2467 lines to 1002 lines, then from 1016 lines to 1002 lines *)
 (* coqc version 8.5 (January 2016) compiled on Jan 23 2016 16:15:22 with OCaml 4.01.0
    coqtop version 8.5 (January 2016) *)
+Declare ML Module "ltac_plugin".
 Inductive False := .
 Axiom proof_admitted : False.
 Tactic Notation "admit" := case proof_admitted.
@@ -1004,4 +1005,4 @@ Proof.
   Fail Timeout 1 Time rewrite !loops_functor_group.
   (* 0.004 s in 8.5rc1, 8.677 s in 8.5 *)
   Timeout 1 do 3 rewrite loops_functor_group.
-Abort.
-\ No newline at end of file
+Abort.
diff --git a/test-suite/bugs/closed/5277.v b/test-suite/bugs/closed/5277.v
new file mode 100644
index 000000000..7abc38bfc
--- /dev/null
+++ b/test-suite/bugs/closed/5277.v
@@ -0,0 +1,11 @@
+(* Scheme Equality not robust wrt names *)
+
+Module A1.
+  Inductive A (T : Type) := C (a : T).
+  Scheme Equality for A. (* success *)
+End A1.
+
+Module A2.
+  Inductive A (x : Type) := C (a : x).
+  Scheme Equality for A. 
+End A2.
diff --git a/test-suite/bugs/closed/5322.v b/test-suite/bugs/closed/5322.v
new file mode 100644
index 000000000..01aec8f29
--- /dev/null
+++ b/test-suite/bugs/closed/5322.v
@@ -0,0 +1,14 @@
+(* Regression in computing types of branches in "match" *)
+Inductive flat_type := Unit | Prod (A B : flat_type).
+Inductive exprf (op : flat_type -> flat_type -> Type) {var : Type} : flat_type
+-> Type :=
+| Op {t1 tR} (opc : op t1 tR) (args : exprf op t1) : exprf op tR.
+Inductive op : flat_type -> flat_type -> Type := a : op Unit Unit.
+Arguments Op {_ _ _ _} _ _.
+Definition bound_op {var}
+           {src2 dst2}
+           (opc2 : op src2 dst2)
+  : forall (args2 : exprf op (var:=var) src2), Op opc2 args2 = Op opc2 args2.
+  refine match opc2 return (forall args2, Op opc2 args2 = Op opc2 args2) with
+         | _ => _
+         end.
diff --git a/test-suite/bugs/closed/5323.v b/test-suite/bugs/closed/5323.v
new file mode 100644
index 000000000..295b7cd9f
--- /dev/null
+++ b/test-suite/bugs/closed/5323.v
@@ -0,0 +1,26 @@
+(* Revealed a missing re-consideration of postponed problems *)
+
+Module A.
+Inductive flat_type := Unit | Prod (A B : flat_type).
+Inductive exprf (op : flat_type -> flat_type -> Type) {var : Type} : flat_type 
+-> Type :=
+| Op {t1 tR} (opc : op t1 tR) (args : exprf op t1) : exprf op tR.
+Inductive op : flat_type -> flat_type -> Type := .
+Arguments Op {_ _ _ _} _ _.
+Definition bound_op {var}
+           {src2 dst2}
+           (opc2 : op src2 dst2)
+  : forall (args2 : exprf op (var:=var) src2), Op opc2 args2 = Op opc2 args2
+  := match opc2 return (forall args2, Op opc2 args2 = Op opc2 args2) with end.
+End A.
+
+(* A shorter variant *)
+Module B.
+Inductive exprf (op : unit -> Type) : Type :=
+| A : exprf op
+| Op tR (opc : op tR) (args : exprf op) : exprf op.
+Inductive op : unit -> Type := .
+Definition bound_op (dst2 : unit) (opc2 : op dst2)
+  : forall (args2 : exprf op), Op op dst2 opc2 args2 = A op
+  := match opc2 in op h return (forall args2 : exprf ?[U], Op ?[V] ?[I] opc2 args2 = A op) with end.
+End B.
diff --git a/test-suite/bugs/closed/5331.v b/test-suite/bugs/closed/5331.v
new file mode 100644
index 000000000..28743736d
--- /dev/null
+++ b/test-suite/bugs/closed/5331.v
@@ -0,0 +1,11 @@
+(* Checking no anomaly on some unexpected intropattern *)
+
+Ltac ih H := induction H as H.
+Ltac ih' H H' := induction H as H'.
+
+Goal True -> True.
+Fail intro H; ih H.
+intro H; ih' H ipattern:([]).
+exact I.
+Qed.
+
diff --git a/test-suite/bugs/closed/5346.v b/test-suite/bugs/closed/5346.v
new file mode 100644
index 000000000..0118c1870
--- /dev/null
+++ b/test-suite/bugs/closed/5346.v
@@ -0,0 +1,29 @@
+Inductive comp : Type -> Type :=
+| Ret {T} : forall (v:T), comp T
+| Bind {T T'} : forall (p: comp T') (p': T' -> comp T), comp T.
+
+Notation "'do' x .. y <- p1 ; p2" :=
+  (Bind p1 (fun x => .. (fun y => p2) ..))
+    (at level 60, right associativity,
+     x binder, y binder).
+
+Definition Fst1 A B (p: comp (A*B)) : comp A :=
+  do '(a, b) <- p;
+    Ret a.
+
+Definition Fst2 A B (p: comp (A*B)) : comp A :=
+  match tt with
+  | _ => Bind p (fun '(a, b) => Ret a)
+  end.
+
+Definition Fst3 A B (p: comp (A*B)) : comp A :=
+  match tt with
+  | _ => do a <- p;
+          Ret (fst a)
+  end.
+
+Definition Fst A B (p: comp (A * B)) : comp A :=
+  match tt with
+  | _ => do '(a, b) <- p;
+          Ret a
+  end.
diff --git a/test-suite/output/Fixpoint.out b/test-suite/output/Fixpoint.out
index a13ae4624..6879cbc3c 100644
--- a/test-suite/output/Fixpoint.out
+++ b/test-suite/output/Fixpoint.out
@@ -10,3 +10,5 @@ let fix f (m : nat) : nat := match m with
                              end in f 0
      : nat
 Ltac f id1 id2 := fix id1 2 with (id2 (n:_) (H:odd n) {struct H} : n >= 1)
+     = cofix inf : Inf := {| projS := inf |}
+     : Inf
diff --git a/test-suite/output/Fixpoint.v b/test-suite/output/Fixpoint.v
index 8afa50ba5..fafb478ba 100644
--- a/test-suite/output/Fixpoint.v
+++ b/test-suite/output/Fixpoint.v
@@ -44,4 +44,7 @@ fix even_pos_odd_pos 2 with (odd_pos_even_pos n (H:odd n) {struct H} : n >= 1).
   omega.
 Qed.
 
-
+CoInductive Inf := S { projS : Inf }.
+Definition expand_Inf (x : Inf) := S (projS x).
+CoFixpoint inf := S inf.
+Eval compute in inf.
diff --git a/test-suite/output/Search.out b/test-suite/output/Search.out
index c17b285bc..81fda176e 100644
--- a/test-suite/output/Search.out
+++ b/test-suite/output/Search.out
@@ -1,108 +1,108 @@
 le_n: forall n : nat, n <= n
+le_0_n: forall n : nat, 0 <= n
 le_S: forall n m : nat, n <= m -> n <= S m
+le_n_S: forall n m : nat, n <= m -> S n <= S m
+le_pred: forall n m : nat, n <= m -> Nat.pred n <= Nat.pred m
+le_S_n: forall n m : nat, S n <= S m -> n <= m
+min_l: forall n m : nat, n <= m -> Nat.min n m = n
+max_r: forall n m : nat, n <= m -> Nat.max n m = m
+min_r: forall n m : nat, m <= n -> Nat.min n m = m
+max_l: forall n m : nat, m <= n -> Nat.max n m = n
 le_ind:
   forall (n : nat) (P : nat -> Prop),
   P n ->
   (forall m : nat, n <= m -> P m -> P (S m)) ->
   forall n0 : nat, n <= n0 -> P n0
-le_pred: forall n m : nat, n <= m -> Nat.pred n <= Nat.pred m
-le_S_n: forall n m : nat, S n <= S m -> n <= m
-le_0_n: forall n : nat, 0 <= n
-le_n_S: forall n m : nat, n <= m -> S n <= S m
-max_l: forall n m : nat, m <= n -> Nat.max n m = n
-max_r: forall n m : nat, n <= m -> Nat.max n m = m
-min_l: forall n m : nat, n <= m -> Nat.min n m = n
-min_r: forall n m : nat, m <= n -> Nat.min n m = m
-true: bool
 false: bool
-bool_rect: forall P : bool -> Type, P true -> P false -> forall b : bool, P b
-bool_ind: forall P : bool -> Prop, P true -> P false -> forall b : bool, P b
-bool_rec: forall P : bool -> Set, P true -> P false -> forall b : bool, P b
-andb: bool -> bool -> bool
-orb: bool -> bool -> bool
-implb: bool -> bool -> bool
-xorb: bool -> bool -> bool
+true: bool
+is_true: bool -> Prop
 negb: bool -> bool
-andb_prop: forall a b : bool, (a && b)%bool = true -> a = true /\ b = true
-andb_true_intro:
-  forall b1 b2 : bool, b1 = true /\ b2 = true -> (b1 && b2)%bool = true
 eq_true: bool -> Prop
-eq_true_rect:
-  forall P : bool -> Type, P true -> forall b : bool, eq_true b -> P b
-eq_true_ind:
-  forall P : bool -> Prop, P true -> forall b : bool, eq_true b -> P b
+implb: bool -> bool -> bool
+orb: bool -> bool -> bool
+andb: bool -> bool -> bool
+xorb: bool -> bool -> bool
+Nat.even: nat -> bool
+Nat.odd: nat -> bool
+BoolSpec: Prop -> Prop -> bool -> Prop
+Nat.eqb: nat -> nat -> bool
+Nat.testbit: nat -> nat -> bool
+Nat.ltb: nat -> nat -> bool
+Nat.leb: nat -> nat -> bool
+Nat.bitwise: (bool -> bool -> bool) -> nat -> nat -> nat -> nat
+bool_ind: forall P : bool -> Prop, P true -> P false -> forall b : bool, P b
+bool_rec: forall P : bool -> Set, P true -> P false -> forall b : bool, P b
 eq_true_rec:
   forall P : bool -> Set, P true -> forall b : bool, eq_true b -> P b
-is_true: bool -> Prop
-eq_true_ind_r:
-  forall (P : bool -> Prop) (b : bool), P b -> eq_true b -> P true
-eq_true_rec_r:
-  forall (P : bool -> Set) (b : bool), P b -> eq_true b -> P true
+eq_true_ind:
+  forall P : bool -> Prop, P true -> forall b : bool, eq_true b -> P b
 eq_true_rect_r:
   forall (P : bool -> Type) (b : bool), P b -> eq_true b -> P true
-BoolSpec: Prop -> Prop -> bool -> Prop
+eq_true_rec_r:
+  forall (P : bool -> Set) (b : bool), P b -> eq_true b -> P true
+eq_true_rect:
+  forall P : bool -> Type, P true -> forall b : bool, eq_true b -> P b
+bool_rect: forall P : bool -> Type, P true -> P false -> forall b : bool, P b
+eq_true_ind_r:
+  forall (P : bool -> Prop) (b : bool), P b -> eq_true b -> P true
+andb_true_intro:
+  forall b1 b2 : bool, b1 = true /\ b2 = true -> (b1 && b2)%bool = true
+andb_prop: forall a b : bool, (a && b)%bool = true -> a = true /\ b = true
 BoolSpec_ind:
   forall (P Q : Prop) (P0 : bool -> Prop),
   (P -> P0 true) ->
   (Q -> P0 false) -> forall b : bool, BoolSpec P Q b -> P0 b
-Nat.eqb: nat -> nat -> bool
-Nat.leb: nat -> nat -> bool
-Nat.ltb: nat -> nat -> bool
-Nat.even: nat -> bool
-Nat.odd: nat -> bool
-Nat.testbit: nat -> nat -> bool
-Nat.bitwise: (bool -> bool -> bool) -> nat -> nat -> nat -> nat
 bool_choice:
   forall (S : Set) (R1 R2 : S -> Prop),
   (forall x : S, {R1 x} + {R2 x}) ->
   {f : S -> bool | forall x : S, f x = true /\ R1 x \/ f x = false /\ R2 x}
-eq_S: forall x y : nat, x = y -> S x = S y
-f_equal_nat: forall (B : Type) (f : nat -> B) (x y : nat), x = y -> f x = f y
-f_equal_pred: forall x y : nat, x = y -> Nat.pred x = Nat.pred y
+mult_n_O: forall n : nat, 0 = n * 0
+plus_O_n: forall n : nat, 0 + n = n
+plus_n_O: forall n : nat, n = n + 0
+n_Sn: forall n : nat, n <> S n
 pred_Sn: forall n : nat, n = Nat.pred (S n)
+O_S: forall n : nat, 0 <> S n
+f_equal_pred: forall x y : nat, x = y -> Nat.pred x = Nat.pred y
+eq_S: forall x y : nat, x = y -> S x = S y
 eq_add_S: forall n m : nat, S n = S m -> n = m
+min_r: forall n m : nat, m <= n -> Nat.min n m = m
+min_l: forall n m : nat, n <= m -> Nat.min n m = n
+max_r: forall n m : nat, n <= m -> Nat.max n m = m
+max_l: forall n m : nat, m <= n -> Nat.max n m = n
+plus_Sn_m: forall n m : nat, S n + m = S (n + m)
+plus_n_Sm: forall n m : nat, S (n + m) = n + S m
+f_equal_nat: forall (B : Type) (f : nat -> B) (x y : nat), x = y -> f x = f y
 not_eq_S: forall n m : nat, n <> m -> S n <> S m
-O_S: forall n : nat, 0 <> S n
-n_Sn: forall n : nat, n <> S n
+mult_n_Sm: forall n m : nat, n * m + n = n * S m
 f_equal2_plus:
   forall x1 y1 x2 y2 : nat, x1 = y1 -> x2 = y2 -> x1 + x2 = y1 + y2
+f_equal2_mult:
+  forall x1 y1 x2 y2 : nat, x1 = y1 -> x2 = y2 -> x1 * x2 = y1 * y2
 f_equal2_nat:
   forall (B : Type) (f : nat -> nat -> B) (x1 y1 x2 y2 : nat),
   x1 = y1 -> x2 = y2 -> f x1 x2 = f y1 y2
-plus_n_O: forall n : nat, n = n + 0
-plus_O_n: forall n : nat, 0 + n = n
-plus_n_Sm: forall n m : nat, S (n + m) = n + S m
-plus_Sn_m: forall n m : nat, S n + m = S (n + m)
-f_equal2_mult:
-  forall x1 y1 x2 y2 : nat, x1 = y1 -> x2 = y2 -> x1 * x2 = y1 * y2
-mult_n_O: forall n : nat, 0 = n * 0
-mult_n_Sm: forall n m : nat, n * m + n = n * S m
-max_l: forall n m : nat, m <= n -> Nat.max n m = n
-max_r: forall n m : nat, n <= m -> Nat.max n m = m
-min_l: forall n m : nat, n <= m -> Nat.min n m = n
-min_r: forall n m : nat, m <= n -> Nat.min n m = m
-andb_prop: forall a b : bool, (a && b)%bool = true -> a = true /\ b = true
 andb_true_intro:
   forall b1 b2 : bool, b1 = true /\ b2 = true -> (b1 && b2)%bool = true
+andb_prop: forall a b : bool, (a && b)%bool = true -> a = true /\ b = true
 bool_choice:
   forall (S : Set) (R1 R2 : S -> Prop),
   (forall x : S, {R1 x} + {R2 x}) ->
   {f : S -> bool | forall x : S, f x = true /\ R1 x \/ f x = false /\ R2 x}
-andb_prop: forall a b : bool, (a && b)%bool = true -> a = true /\ b = true
 andb_true_intro:
   forall b1 b2 : bool, b1 = true /\ b2 = true -> (b1 && b2)%bool = true
 andb_prop: forall a b : bool, (a && b)%bool = true -> a = true /\ b = true
-h': newdef n <> n
+andb_prop: forall a b : bool, (a && b)%bool = true -> a = true /\ b = true
 h: n <> newdef n
 h': newdef n <> n
 h: n <> newdef n
+h': newdef n <> n
 h: n <> newdef n
 h: n <> newdef n
-h': ~ P n
 h: P n
 h': ~ P n
 h: P n
 h': ~ P n
 h: P n
+h': ~ P n
 h: P n
 h: P n
diff --git a/test-suite/output/SearchHead.out b/test-suite/output/SearchHead.out
index 0d5924ec6..7038eac22 100644
--- a/test-suite/output/SearchHead.out
+++ b/test-suite/output/SearchHead.out
@@ -1,39 +1,39 @@
 le_n: forall n : nat, n <= n
+le_0_n: forall n : nat, 0 <= n
 le_S: forall n m : nat, n <= m -> n <= S m
 le_pred: forall n m : nat, n <= m -> Nat.pred n <= Nat.pred m
-le_S_n: forall n m : nat, S n <= S m -> n <= m
-le_0_n: forall n : nat, 0 <= n
 le_n_S: forall n m : nat, n <= m -> S n <= S m
-true: bool
+le_S_n: forall n m : nat, S n <= S m -> n <= m
 false: bool
-andb: bool -> bool -> bool
-orb: bool -> bool -> bool
+true: bool
+negb: bool -> bool
 implb: bool -> bool -> bool
+orb: bool -> bool -> bool
+andb: bool -> bool -> bool
 xorb: bool -> bool -> bool
-negb: bool -> bool
-Nat.eqb: nat -> nat -> bool
-Nat.leb: nat -> nat -> bool
-Nat.ltb: nat -> nat -> bool
 Nat.even: nat -> bool
 Nat.odd: nat -> bool
+Nat.leb: nat -> nat -> bool
+Nat.ltb: nat -> nat -> bool
 Nat.testbit: nat -> nat -> bool
-eq_S: forall x y : nat, x = y -> S x = S y
-f_equal_pred: forall x y : nat, x = y -> Nat.pred x = Nat.pred y
+Nat.eqb: nat -> nat -> bool
+mult_n_O: forall n : nat, 0 = n * 0
+plus_O_n: forall n : nat, 0 + n = n
+plus_n_O: forall n : nat, n = n + 0
 pred_Sn: forall n : nat, n = Nat.pred (S n)
+f_equal_pred: forall x y : nat, x = y -> Nat.pred x = Nat.pred y
 eq_add_S: forall n m : nat, S n = S m -> n = m
-f_equal2_plus:
-  forall x1 y1 x2 y2 : nat, x1 = y1 -> x2 = y2 -> x1 + x2 = y1 + y2
-plus_n_O: forall n : nat, n = n + 0
-plus_O_n: forall n : nat, 0 + n = n
+eq_S: forall x y : nat, x = y -> S x = S y
+max_r: forall n m : nat, n <= m -> Nat.max n m = m
+max_l: forall n m : nat, m <= n -> Nat.max n m = n
+min_r: forall n m : nat, m <= n -> Nat.min n m = m
+min_l: forall n m : nat, n <= m -> Nat.min n m = n
 plus_n_Sm: forall n m : nat, S (n + m) = n + S m
 plus_Sn_m: forall n m : nat, S n + m = S (n + m)
+mult_n_Sm: forall n m : nat, n * m + n = n * S m
+f_equal2_plus:
+  forall x1 y1 x2 y2 : nat, x1 = y1 -> x2 = y2 -> x1 + x2 = y1 + y2
 f_equal2_mult:
   forall x1 y1 x2 y2 : nat, x1 = y1 -> x2 = y2 -> x1 * x2 = y1 * y2
-mult_n_O: forall n : nat, 0 = n * 0
-mult_n_Sm: forall n m : nat, n * m + n = n * S m
-max_l: forall n m : nat, m <= n -> Nat.max n m = n
-max_r: forall n m : nat, n <= m -> Nat.max n m = m
-min_l: forall n m : nat, n <= m -> Nat.min n m = n
-min_r: forall n m : nat, m <= n -> Nat.min n m = m
 h: newdef n
 h: P n
diff --git a/test-suite/output/SearchPattern.out b/test-suite/output/SearchPattern.out
index f3c12effc..45ff5e73b 100644
--- a/test-suite/output/SearchPattern.out
+++ b/test-suite/output/SearchPattern.out
@@ -1,77 +1,77 @@
-true: bool
 false: bool
-andb: bool -> bool -> bool
-orb: bool -> bool -> bool
+true: bool
+negb: bool -> bool
 implb: bool -> bool -> bool
+orb: bool -> bool -> bool
+andb: bool -> bool -> bool
 xorb: bool -> bool -> bool
-negb: bool -> bool
-Nat.eqb: nat -> nat -> bool
-Nat.leb: nat -> nat -> bool
-Nat.ltb: nat -> nat -> bool
 Nat.even: nat -> bool
 Nat.odd: nat -> bool
+Nat.leb: nat -> nat -> bool
+Nat.ltb: nat -> nat -> bool
 Nat.testbit: nat -> nat -> bool
-O: nat
-S: nat -> nat
-length: forall A : Type, list A -> nat
+Nat.eqb: nat -> nat -> bool
+Nat.two: nat
 Nat.zero: nat
 Nat.one: nat
-Nat.two: nat
-Nat.succ: nat -> nat
+O: nat
+Nat.double: nat -> nat
+Nat.sqrt: nat -> nat
+Nat.div2: nat -> nat
+Nat.log2: nat -> nat
 Nat.pred: nat -> nat
+Nat.square: nat -> nat
+S: nat -> nat
+Nat.succ: nat -> nat
+Nat.ldiff: nat -> nat -> nat
 Nat.add: nat -> nat -> nat
-Nat.double: nat -> nat
+Nat.lor: nat -> nat -> nat
+Nat.lxor: nat -> nat -> nat
+Nat.land: nat -> nat -> nat
 Nat.mul: nat -> nat -> nat
 Nat.sub: nat -> nat -> nat
 Nat.max: nat -> nat -> nat
-Nat.min: nat -> nat -> nat
-Nat.pow: nat -> nat -> nat
 Nat.div: nat -> nat -> nat
+Nat.pow: nat -> nat -> nat
+Nat.min: nat -> nat -> nat
 Nat.modulo: nat -> nat -> nat
 Nat.gcd: nat -> nat -> nat
-Nat.square: nat -> nat
 Nat.sqrt_iter: nat -> nat -> nat -> nat -> nat
-Nat.sqrt: nat -> nat
 Nat.log2_iter: nat -> nat -> nat -> nat -> nat
-Nat.log2: nat -> nat
-Nat.div2: nat -> nat
+length: forall A : Type, list A -> nat
 Nat.bitwise: (bool -> bool -> bool) -> nat -> nat -> nat -> nat
-Nat.land: nat -> nat -> nat
-Nat.lor: nat -> nat -> nat
+Nat.div2: nat -> nat
+Nat.sqrt: nat -> nat
+Nat.log2: nat -> nat
+Nat.double: nat -> nat
+Nat.pred: nat -> nat
+Nat.square: nat -> nat
+Nat.succ: nat -> nat
+S: nat -> nat
 Nat.ldiff: nat -> nat -> nat
+Nat.pow: nat -> nat -> nat
+Nat.land: nat -> nat -> nat
 Nat.lxor: nat -> nat -> nat
-S: nat -> nat
-Nat.succ: nat -> nat
-Nat.pred: nat -> nat
-Nat.add: nat -> nat -> nat
-Nat.double: nat -> nat
+Nat.div: nat -> nat -> nat
 Nat.mul: nat -> nat -> nat
-Nat.sub: nat -> nat -> nat
-Nat.max: nat -> nat -> nat
 Nat.min: nat -> nat -> nat
-Nat.pow: nat -> nat -> nat
-Nat.div: nat -> nat -> nat
 Nat.modulo: nat -> nat -> nat
+Nat.sub: nat -> nat -> nat
+Nat.lor: nat -> nat -> nat
 Nat.gcd: nat -> nat -> nat
-Nat.square: nat -> nat
-Nat.sqrt_iter: nat -> nat -> nat -> nat -> nat
-Nat.sqrt: nat -> nat
+Nat.max: nat -> nat -> nat
+Nat.add: nat -> nat -> nat
 Nat.log2_iter: nat -> nat -> nat -> nat -> nat
-Nat.log2: nat -> nat
-Nat.div2: nat -> nat
+Nat.sqrt_iter: nat -> nat -> nat -> nat -> nat
 Nat.bitwise: (bool -> bool -> bool) -> nat -> nat -> nat -> nat
-Nat.land: nat -> nat -> nat
-Nat.lor: nat -> nat -> nat
-Nat.ldiff: nat -> nat -> nat
-Nat.lxor: nat -> nat -> nat
 mult_n_Sm: forall n m : nat, n * m + n = n * S m
-identity_refl: forall (A : Type) (a : A), identity a a
 iff_refl: forall A : Prop, A <-> A
+le_n: forall n : nat, n <= n
+identity_refl: forall (A : Type) (a : A), identity a a
 eq_refl: forall (A : Type) (x : A), x = x
 Nat.divmod: nat -> nat -> nat -> nat -> nat * nat
-le_n: forall n : nat, n <= n
-pair: forall A B : Type, A -> B -> A * B
 conj: forall A B : Prop, A -> B -> A /\ B
+pair: forall A B : Type, A -> B -> A * B
 Nat.divmod: nat -> nat -> nat -> nat -> nat * nat
 h: n <> newdef n
 h: n <> newdef n
diff --git a/test-suite/success/Case22.v b/test-suite/success/Case22.v
index 3c696502c..465b3eb8c 100644
--- a/test-suite/success/Case22.v
+++ b/test-suite/success/Case22.v
@@ -41,6 +41,7 @@ Definition F (x:IND True) (A:Type) :=
 Theorem paradox : False.
   (* This succeeded in 8.3, 8.4 and 8.5beta1 because F had wrong type *)
 Fail Proof (F C False).
+Abort.
 
 (* Another bug found in November 2015 (a substitution was wrongly
    reversed at pretyping level) *)
@@ -61,3 +62,30 @@ Inductive Ind2 (b:=1) (c:nat) : Type :=
   Constr2 : Ind2 c.
 
 Eval vm_compute in Constr2 2.
+
+(* A bug introduced in ade2363 (similar to #5322 and #5324). This
+   commit started to see that some List.rev was wrong in the "var"
+   case of a pattern-matching problem but it failed to see that a
+   transformation from a list of arguments into a substitution was
+   still needed. *)
+
+(* The order of real arguments was made wrong by ade2363 in the "var"
+   case of the compilation of "match" *)
+
+Inductive IND2 : forall X Y:Type, Type :=
+  CONSTR2 : IND2 unit Empty_set.
+
+Check fun x:IND2 bool nat =>
+  match x in IND2 a b return a with
+  | y => _
+  end = true.
+
+(* From January 2017, using the proper function to turn arguments into
+   a substitution up to a context possibly containing let-ins, so that
+   the following, which was wrong also before ade2363, now works
+   correctly *)
+
+Check fun x:Ind bool nat =>
+  match x in Ind _ X Y Z return Z with
+  | y => (true,0)
+  end.
diff --git a/test-suite/success/Discriminate.v b/test-suite/success/Discriminate.v
index a75967411..6abfca4c3 100644
--- a/test-suite/success/Discriminate.v
+++ b/test-suite/success/Discriminate.v
@@ -38,3 +38,10 @@ Abort.
 Goal ~ identity 0 1.
 discriminate.
 Qed.
+
+(* Check discriminate on types with local definitions *)
+
+Inductive A := B (T := unit) (x y : bool) (z := x).
+Goal forall x y, B x true = B y false -> False.
+discriminate.
+Qed.
diff --git a/test-suite/success/Injection.v b/test-suite/success/Injection.v
index da2183841..78652fb64 100644
--- a/test-suite/success/Injection.v
+++ b/test-suite/success/Injection.v
@@ -150,6 +150,13 @@ match goal with
 end.
 Abort.
 
+(* Injection in the presence of local definitions *)
+Inductive A := B (T := unit) (x y : bool) (z := x).
+Goal forall x y x' y', B x y = B x' y' -> y = y'.
+intros * [= H1 H2].
+exact H2.
+Qed.
+
 (* Injection does not project at positions in Prop... allow it?
 
 Inductive t (A:Prop) : Set := c : A -> t A.
diff --git a/test-suite/success/hintdb_in_ltac.v b/test-suite/success/hintdb_in_ltac.v
new file mode 100644
index 000000000..f12b4d1f4
--- /dev/null
+++ b/test-suite/success/hintdb_in_ltac.v
@@ -0,0 +1,14 @@
+Definition x := 0.
+
+Hint Unfold x : mybase.
+
+Ltac autounfoldify base := autounfold with base.
+
+Tactic Notation "autounfoldify_bis" ident(base) := autounfold with base.
+
+Goal x = 0.
+  progress autounfoldify mybase.
+  Undo.
+  progress autounfoldify_bis mybase.
+  trivial.
+Qed.
diff --git a/test-suite/success/hintdb_in_ltac_bis.v b/test-suite/success/hintdb_in_ltac_bis.v
new file mode 100644
index 000000000..f5c25540e
--- /dev/null
+++ b/test-suite/success/hintdb_in_ltac_bis.v
@@ -0,0 +1,15 @@
+Parameter Foo : Prop.
+Axiom H : Foo.
+
+Hint Resolve H : mybase.
+
+Ltac foo base := eauto with base.
+
+Tactic Notation "bar" ident(base) :=
+  typeclasses eauto with base.
+
+Goal Foo.
+  progress foo mybase.
+  Undo.
+  progress bar mybase.
+Qed.
+\ No newline at end of file
diff --git a/theories/Arith/Between.v b/theories/Arith/Between.v
index 58d3a2b38..5a3d5631d 100644
--- a/theories/Arith/Between.v
+++ b/theories/Arith/Between.v
@@ -24,7 +24,7 @@ Section Between.
 
   Lemma bet_eq : forall k l, l = k -> between k l.
   Proof.
-    induction 1; auto with arith.
+    intros * ->; auto with arith.
   Qed.
 
   Hint Resolve bet_eq: arith.
@@ -37,9 +37,7 @@ Section Between.
 
   Lemma between_Sk_l : forall k l, between k l -> S k <= l -> between (S k) l.
   Proof.
-    intros k l H; induction H as [|l H].
-    intros; absurd (S k <= k); auto with arith.
-    destruct H; auto with arith.
+    induction 1 as [|* [|]]; auto with arith.
   Qed.
   Hint Resolve between_Sk_l: arith.
 
@@ -74,32 +72,32 @@ Section Between.
 
   Lemma in_int_intro : forall p q r, p <= r -> r < q -> in_int p q r.
   Proof.
-    red; auto with arith.
+    split; assumption.
   Qed.
   Hint Resolve in_int_intro: arith.
 
   Lemma in_int_lt : forall p q r, in_int p q r -> p < q.
   Proof.
-    induction 1; intros.
-    apply le_lt_trans with r; auto with arith.
+    intros * [].
+    eapply le_lt_trans; eassumption.
   Qed.
 
   Lemma in_int_p_Sq :
-    forall p q r, in_int p (S q) r -> in_int p q r \/ r = q :>nat.
+    forall p q r, in_int p (S q) r -> in_int p q r \/ r = q.
   Proof.
-    induction 1; intros.
-    elim (le_lt_or_eq r q); auto with arith.
+    intros p q r [].
+    destruct (le_lt_or_eq r q); auto with arith.
   Qed.
 
   Lemma in_int_S : forall p q r, in_int p q r -> in_int p (S q) r.
   Proof.
-    induction 1; auto with arith.
+    intros * []; auto with arith.
   Qed.
   Hint Resolve in_int_S: arith.
 
   Lemma in_int_Sp_q : forall p q r, in_int (S p) q r -> in_int p q r.
   Proof.
-    induction 1; auto with arith.
+    intros * []; auto with arith.
   Qed.
   Hint Immediate in_int_Sp_q: arith.
 
@@ -107,10 +105,9 @@ Section Between.
     forall k l, between k l -> forall r, in_int k l r -> P r.
   Proof.
     induction 1; intros.
-    absurd (k < k); auto with arith.
-    apply in_int_lt with r; auto with arith.
-    elim (in_int_p_Sq k l r); intros; auto with arith.
-    rewrite H2; trivial with arith.
+    - absurd (k < k). { auto with arith. }
+      eapply in_int_lt; eassumption.
+    - destruct (in_int_p_Sq k l r) as [| ->]; auto with arith.
   Qed.
 
   Lemma in_int_between :
@@ -120,17 +117,17 @@ Section Between.
   Qed.
 
   Lemma exists_in_int :
-    forall k l, exists_between k l ->  exists2 m : nat, in_int k l m & Q m.
+    forall k l, exists_between k l -> exists2 m : nat, in_int k l m & Q m.
   Proof.
-    induction 1.
-    case IHexists_between; intros p inp Qp; exists p; auto with arith.
-    exists l; auto with arith.
+    induction 1 as [* ? (p, ?, ?)|].
+    - exists p; auto with arith.
+    - exists l; auto with arith.
   Qed.
 
   Lemma in_int_exists : forall k l r, in_int k l r -> Q r -> exists_between k l.
   Proof.
-    destruct 1; intros.
-    elim H0; auto with arith.
+    intros * (?, lt_r_l) ?.
+    induction lt_r_l; auto with arith.
   Qed.
 
   Lemma between_or_exists :
@@ -139,9 +136,11 @@ Section Between.
       (forall n:nat, in_int k l n -> P n \/ Q n) ->
       between k l \/ exists_between k l.
   Proof.
-    induction 1; intros; auto with arith.
-    elim IHle; intro; auto with arith.
-    elim (H0 m); auto with arith.
+    induction 1 as [|m ? IHle].
+    - auto with arith.
+    - intros P_or_Q.
+      destruct IHle; auto with arith.
+      destruct (P_or_Q m); auto with arith.
   Qed.
 
   Lemma between_not_exists :
@@ -150,14 +149,14 @@ Section Between.
       (forall n:nat, in_int k l n -> P n -> ~ Q n) -> ~ exists_between k l.
   Proof.
     induction 1; red; intros.
-    absurd (k < k); auto with arith.
-    absurd (Q l); auto with arith.
-    elim (exists_in_int k (S l)); auto with arith; intros l' inl' Ql'.
-    replace l with l'; auto with arith.
-    elim inl'; intros.
-    elim (le_lt_or_eq l' l); auto with arith; intros.
-    absurd (exists_between k l); auto with arith.
-    apply in_int_exists with l'; auto with arith.
+    - absurd (k < k); auto with arith.
+    - absurd (Q l). { auto with arith. }
+      destruct (exists_in_int k (S l)) as (l',[],?).
+      + auto with arith.
+      + replace l with l'. { trivial. }
+        destruct (le_lt_or_eq l' l); auto with arith.
+        absurd (exists_between k l). { auto with arith. }
+        eapply in_int_exists; eauto with arith.
   Qed.
 
   Inductive P_nth (init:nat) : nat -> nat -> Prop :=
@@ -168,15 +167,16 @@ Section Between.
 
   Lemma nth_le : forall (init:nat) l (n:nat), P_nth init l n -> init <= l.
   Proof.
-    induction 1; intros; auto with arith.
-    apply le_trans with (S k); auto with arith.
+    induction 1.
+    - auto with arith.
+    - eapply le_trans; eauto with arith.
   Qed.
 
   Definition eventually (n:nat) :=  exists2 k : nat, k <= n & Q k.
 
   Lemma event_O : eventually 0 -> Q 0.
   Proof.
-    induction 1; intros.
+    intros (x, ?, ?).
     replace 0 with x; auto with arith.
   Qed.
 
diff --git a/theories/Init/Datatypes.v b/theories/Init/Datatypes.v
index ddaf08bf7..11d80dbc3 100644
--- a/theories/Init/Datatypes.v
+++ b/theories/Init/Datatypes.v
@@ -262,6 +262,11 @@ Inductive comparison : Set :=
   | Lt : comparison
   | Gt : comparison.
 
+Lemma comparison_eq_stable : forall c c' : comparison, ~~ c = c' -> c = c'.
+Proof.
+  destruct c, c'; intro H; reflexivity || destruct H; discriminate.
+Qed.
+
 Definition CompOpp (r:comparison) :=
   match r with
     | Eq => Eq
@@ -326,7 +331,6 @@ Lemma CompSpec2Type : forall A (eq lt:A->A->Prop) x y c,
  CompSpec eq lt x y c -> CompSpecT eq lt x y c.
 Proof. intros. apply CompareSpec2Type; assumption. Defined.
 
-
 (******************************************************************)
 (** * Misc Other Datatypes *)
 
diff --git a/theories/Init/Logic.v b/theories/Init/Logic.v
index 85123cc44..9b58c524e 100644
--- a/theories/Init/Logic.v
+++ b/theories/Init/Logic.v
@@ -125,6 +125,25 @@ Proof.
   [apply Hl | apply Hr]; assumption.
 Qed.
 
+Theorem imp_iff_compat_l : forall A B C : Prop,
+  (B <-> C) -> ((A -> B) <-> (A -> C)).
+Proof.
+  intros ? ? ? [Hl Hr]; split; intros H ?; [apply Hl | apply Hr]; apply H; assumption.
+Qed.
+
+Theorem imp_iff_compat_r : forall A B C : Prop,
+  (B <-> C) -> ((B -> A) <-> (C -> A)).
+Proof.
+  intros ? ? ? [Hl Hr]; split; intros H ?; [apply H, Hr | apply H, Hl]; assumption.
+Qed.
+
+Theorem not_iff_compat : forall A B : Prop,
+  (A <-> B) -> (~ A <-> ~B).
+Proof.
+  intros; apply imp_iff_compat_r; assumption.
+Qed.
+
+
 (** Some equivalences *)
 
 Theorem neg_false : forall A : Prop, ~ A <-> (A <-> False).
@@ -553,7 +572,8 @@ Proof.
   intros A P (x & Hp & Huniq); split.
   - intro; exists x; auto.
   - intros (x0 & HPx0 & HQx0) x1 HPx1.
-    replace x1 with x0 by (transitivity x; [symmetry|]; auto).
+    assert (H : x0 = x1) by (transitivity x; [symmetry|]; auto).
+    destruct H.
     assumption.
 Qed.   
 
diff --git a/theories/Init/Notations.v b/theories/Init/Notations.v
index 48fbe0793..edcd53005 100644
--- a/theories/Init/Notations.v
+++ b/theories/Init/Notations.v
@@ -88,9 +88,12 @@ Open Scope type_scope.
 
 (** ML Tactic Notations *)
 
+Declare ML Module "ltac_plugin".
 Declare ML Module "coretactics".
 Declare ML Module "extratactics".
 Declare ML Module "g_auto".
 Declare ML Module "g_class".
 Declare ML Module "g_eqdecide".
 Declare ML Module "g_rewrite".
+
+Global Set Default Proof Mode "Classic".
diff --git a/theories/Init/Specif.v b/theories/Init/Specif.v
index 9fc00e80c..2cc2ecbc2 100644
--- a/theories/Init/Specif.v
+++ b/theories/Init/Specif.v
@@ -103,7 +103,7 @@ Definition sig_of_sig2 (A : Type) (P Q : A -> Prop) (X : sig2 P Q) : sig P
     of an [a] of type [A], a of a proof [h] that [a] satisfies [P],
     and a proof [h'] that [a] satisfies [Q].  Then
     [(proj1_sig (sig_of_sig2 y))] is the witness [a],
-    [(proj2_sig (sig_of_sig2 y))] is the proof of [(P a)], and 
+    [(proj2_sig (sig_of_sig2 y))] is the proof of [(P a)], and
     [(proj3_sig y)] is the proof of [(Q a)]. *)
 
 Section Subset_projections2.
@@ -190,6 +190,23 @@ Definition sig2_of_sigT2 (A : Type) (P Q : A -> Prop) (X : sigT2 P Q) : sig2 P Q
 Definition sigT2_of_sig2 (A : Type) (P Q : A -> Prop) (X : sig2 P Q) : sigT2 P Q
   := existT2 P Q (proj1_sig (sig_of_sig2 X)) (proj2_sig (sig_of_sig2 X)) (proj3_sig X).
 
+(** η Principles *)
+Definition sigT_eta {A P} (p : { a : A & P a })
+  : p = existT _ (projT1 p) (projT2 p).
+Proof. destruct p; reflexivity. Defined.
+
+Definition sig_eta {A P} (p : { a : A | P a })
+  : p = exist _ (proj1_sig p) (proj2_sig p).
+Proof. destruct p; reflexivity. Defined.
+
+Definition sigT2_eta {A P Q} (p : { a : A & P a & Q a })
+  : p = existT2 _ _ (projT1 (sigT_of_sigT2 p)) (projT2 (sigT_of_sigT2 p)) (projT3 p).
+Proof. destruct p; reflexivity. Defined.
+
+Definition sig2_eta {A P Q} (p : { a : A | P a & Q a })
+  : p = exist2 _ _ (proj1_sig (sig_of_sig2 p)) (proj2_sig (sig_of_sig2 p)) (proj3_sig p).
+Proof. destruct p; reflexivity. Defined.
+
 (** [sumbool] is a boolean type equipped with the justification of
     their value *)
 
@@ -263,10 +280,10 @@ Section Dependent_choice_lemmas.
     (forall x:X, {y | R x y}) ->
     forall x0, {f : nat -> X | f O = x0 /\ forall n, R (f n) (f (S n))}.
   Proof.
-    intros H x0. 
+    intros H x0.
     set (f:=fix f n := match n with O => x0 | S n' => proj1_sig (H (f n')) end).
     exists f.
-    split. reflexivity. 
+    split. reflexivity.
     induction n; simpl; apply proj2_sig.
   Defined.
 
diff --git a/theories/Logic/ChoiceFacts.v b/theories/Logic/ChoiceFacts.v
index 1420a000b..07e8b6ef8 100644
--- a/theories/Logic/ChoiceFacts.v
+++ b/theories/Logic/ChoiceFacts.v
@@ -22,7 +22,16 @@ description principles
 - AC!     = functional relation reification
             (known as axiom of unique choice in topos theory,
              sometimes called principle of definite description in
-             the context of constructive type theory)
+             the context of constructive type theory, sometimes
+             called axiom of no choice)
+
+- AC_fun_repr          = functional choice of a representative in an equivalence class
+- AC_fun_setoid_gen    = functional form of the general form of the (so-called
+                          extensional) axiom of choice over setoids
+- AC_fun_setoid        = functional form of the (so-called extensional) axiom of
+                         choice from setoids
+- AC_fun_setoid_simple = functional form of the (so-called extensional) axiom of
+                         choice from setoids on locally compatible relations
 
 - GAC_rel = guarded relational form of the (non extensional) axiom of choice
 - GAC_fun = guarded functional form of the (non extensional) axiom of choice
@@ -45,6 +54,11 @@ description principles
              independence of premises)
 - Drinker = drinker's paradox (small form)
             (called Ex in Bell [[Bell]])
+- EM      = excluded-middle
+
+- Ext_pred_repr     = choice of a representative among extensional predicates
+- Ext_pred          = extensionality of predicates
+- Ext_fun_prop_repr = choice of a representative among extensional functions to Prop
 
 We let also
 
@@ -76,6 +90,10 @@ Table of contents
 
 8. Choice -> Dependent choice -> Countable choice
 
+9.1. AC_fun_ext = AC_fun + Ext_fun_repr + EM
+
+9.2. AC_fun_ext = AC_fun + Ext_prop_fun_repr + PI
+
 References:
 
 [[Bell]] John L. Bell, Choice principles in intuitionistic set theory,
@@ -84,8 +102,13 @@ unpublished.
 [[Bell93]] John L. Bell, Hilbert's Epsilon Operator in Intuitionistic
 Type Theories, Mathematical Logic Quarterly, volume 39, 1993.
 
+[[Carlström04]] Jesper Carlström, EM + Ext_ + AC_int is equivalent to
+AC_ext, Mathematical Logic Quaterly, vol 50(3), pp 236-240, 2004.
+
 [[Carlström05]] Jesper Carlström, Interpreting descriptions in
 intentional type theory, Journal of Symbolic Logic 70(2):488-514, 2005.
+
+[[Werner97]] Benjamin Werner, Sets in Types, Types in Sets, TACS, 1997.
 *)
 
 Set Implicit Arguments.
@@ -108,8 +131,6 @@ Variables A B :Type.
 
 Variable P:A->Prop.
 
-Variable R:A->B->Prop.
-
 (** ** Constructive choice and description *)
 
 (** AC_rel *)
@@ -121,6 +142,10 @@ Definition RelationalChoice_on :=
 
 (** AC_fun *)
 
+(* Note: This is called Type-Theoretic Description Axiom (TTDA) in
+   [[Werner97]] (using a non-standard meaning of "description"). This
+   is called intensional axiom of choice (AC_int) in [[Carlström04]] *)
+
 Definition FunctionalChoice_on :=
   forall R:A->B->Prop,
     (forall x : A, exists y : B, R x y) ->
@@ -148,6 +173,55 @@ Definition FunctionalRelReification_on :=
     (forall x : A, exists! y : B, R x y) ->
     (exists f : A->B, forall x : A, R x (f x)).
 
+(** AC_fun_repr *)
+
+(* Note: This is called Type-Theoretic Choice Axiom (TTCA) in
+   [[Werner97]] (by reference to the extensional set-theoretic
+   formulation of choice); Note also a typo in its intended
+   formulation in [[Werner97]]. *)
+
+Require Import RelationClasses Logic.
+
+Definition RepresentativeFunctionalChoice_on :=
+  forall R:A->A->Prop,
+    (Equivalence R) ->
+    (exists f : A->A, forall x : A, (R x (f x)) /\ forall x', R x x' -> f x = f x').
+
+(** AC_fun_setoid *)
+
+Definition SetoidFunctionalChoice_on :=
+  forall R : A -> A -> Prop,
+  forall T : A -> B -> Prop,
+  Equivalence R ->
+  (forall x x' y, R x x' -> T x y -> T x' y) ->
+  (forall x, exists y, T x y) ->
+  exists f : A -> B, forall x : A, T x (f x) /\ (forall x' : A, R x x' -> f x = f x').
+
+(** AC_fun_setoid_gen *)
+
+(* Note: This is called extensional axiom of choice (AC_ext) in
+   [[Carlström04]]. *)
+
+Definition GeneralizedSetoidFunctionalChoice_on :=
+  forall R : A -> A -> Prop,
+  forall S : B -> B -> Prop,
+  forall T : A -> B -> Prop,
+  Equivalence R ->
+  Equivalence S ->
+  (forall x x' y y', R x x' -> S y y' -> T x y -> T x' y') ->
+  (forall x, exists y, T x y) ->
+  exists f : A -> B,
+    forall x : A, T x (f x) /\ (forall x' : A, R x x' -> S (f x) (f x')).
+
+(** AC_fun_setoid_simple *)
+
+Definition SimpleSetoidFunctionalChoice_on A B :=
+  forall R : A -> A -> Prop,
+  forall T : A -> B -> Prop,
+  Equivalence R ->
+  (forall x, exists y, forall x', R x x' -> T x' y) ->
+  exists f : A -> B, forall x : A, T x (f x) /\ (forall x' : A, R x x' -> f x = f x').
+
 (** ID_epsilon (constructive version of indefinite description;
     combined with proof-irrelevance, it may be connected to
     Carlström's type theory with a constructive indefinite description
@@ -234,6 +308,14 @@ Notation FunctionalChoiceOnInhabitedSet :=
   (forall A B : Type, inhabited B -> FunctionalChoice_on A B).
 Notation FunctionalRelReification :=
   (forall A B : Type, FunctionalRelReification_on A B).
+Notation RepresentativeFunctionalChoice :=
+  (forall A : Type, RepresentativeFunctionalChoice_on A).
+Notation SetoidFunctionalChoice :=
+  (forall A  B: Type, SetoidFunctionalChoice_on A B).
+Notation GeneralizedSetoidFunctionalChoice :=
+  (forall A B : Type, GeneralizedSetoidFunctionalChoice_on A B).
+Notation SimpleSetoidFunctionalChoice :=
+  (forall A B : Type, SimpleSetoidFunctionalChoice_on A B).
 
 Notation GuardedRelationalChoice :=
   (forall A B : Type, GuardedRelationalChoice_on A B).
@@ -271,6 +353,26 @@ Definition SmallDrinker'sParadox :=
   forall (A:Type) (P:A -> Prop), inhabited A ->
     exists x, (exists x, P x) -> P x.
 
+Definition ExcludedMiddle :=
+  forall P:Prop, P \/ ~ P.
+
+(** Extensional schemes *)
+
+Local Notation ExtensionalPropositionRepresentative :=
+  (forall (A:Type),
+   exists h : Prop -> Prop,
+   forall P : Prop, (P <-> h P) /\ forall Q, (P <-> Q) -> h P = h Q).
+
+Local Notation ExtensionalPredicateRepresentative :=
+  (forall (A:Type),
+   exists h : (A->Prop) -> (A->Prop),
+   forall (P : A -> Prop), (forall x, P x <-> h P x) /\ forall Q, (forall x, P x <-> Q x) -> h P = h Q).
+
+Local Notation ExtensionalFunctionRepresentative :=
+  (forall (A B:Type),
+   exists h : (A->B) -> (A->B),
+   forall (f : A -> B), (forall x, f x = h f x) /\ forall g, (forall x, f x = g x) -> h f = h g).
+
 (**********************************************************************)
 (** * AC_rel + AC! = AC_fun
 
@@ -284,7 +386,7 @@ Definition SmallDrinker'sParadox :=
    relational formulation) without known inconsistency with classical logic,
    though functional relation reification conflicts with classical logic *)
 
-Lemma description_rel_choice_imp_funct_choice :
+Lemma functional_rel_reification_and_rel_choice_imp_fun_choice :
   forall A B : Type,
     FunctionalRelReification_on A B -> RelationalChoice_on A B -> FunctionalChoice_on A B.
 Proof.
@@ -298,7 +400,10 @@ Proof.
   apply HR'R; assumption.
 Qed.
 
-Lemma funct_choice_imp_rel_choice :
+Notation description_rel_choice_imp_funct_choice :=
+  functional_rel_reification_and_rel_choice_imp_fun_choice (compat "8.6").
+
+Lemma fun_choice_imp_rel_choice :
   forall A B : Type, FunctionalChoice_on A B -> RelationalChoice_on A B.
 Proof.
   intros A B FunCh R H.
@@ -311,7 +416,9 @@ Proof.
     trivial.
 Qed.
 
-Lemma funct_choice_imp_description :
+Notation funct_choice_imp_rel_choice := fun_choice_imp_rel_choice (compat "8.6").
+
+Lemma fun_choice_imp_functional_rel_reification :
   forall A B : Type, FunctionalChoice_on A B -> FunctionalRelReification_on A B.
 Proof.
   intros A B FunCh R H.
@@ -324,17 +431,21 @@ Proof.
   exists f; exact H0.
 Qed.
 
-Corollary FunChoice_Equiv_RelChoice_and_ParamDefinDescr :
+Notation funct_choice_imp_description := fun_choice_imp_functional_rel_reification (compat "8.6").
+
+Corollary fun_choice_iff_rel_choice_and_functional_rel_reification :
   forall A B : Type, FunctionalChoice_on A B <->
     RelationalChoice_on A B /\ FunctionalRelReification_on A B.
 Proof.
   intros A B. split.
   intro H; split;
-    [ exact (funct_choice_imp_rel_choice H)
-      | exact (funct_choice_imp_description H) ].
-  intros [H H0]; exact (description_rel_choice_imp_funct_choice H0 H).
+    [ exact (fun_choice_imp_rel_choice H)
+      | exact (fun_choice_imp_functional_rel_reification H) ].
+  intros [H H0]; exact (functional_rel_reification_and_rel_choice_imp_fun_choice H0 H).
 Qed.
 
+Notation FunChoice_Equiv_RelChoice_and_ParamDefinDescr :=
+ fun_choice_iff_rel_choice_and_functional_rel_reification (compat "8.6").
 (**********************************************************************)
 (** * Connection between the guarded, non guarded and omniscient choices *)
 
@@ -862,3 +973,334 @@ Proof.
   rewrite Heq in HR.
   assumption.
 Qed.
+
+(**********************************************************************)
+(** * About the axiom of choice over setoids                          *)
+
+Require Import ClassicalFacts PropExtensionalityFacts.
+
+(**********************************************************************)
+(** ** Consequences of the choice of a representative in an equivalence class *)
+
+Theorem repr_fun_choice_imp_ext_prop_repr :
+  RepresentativeFunctionalChoice -> ExtensionalPropositionRepresentative.
+Proof.
+  intros ReprFunChoice A.
+  pose (R P Q := P <-> Q).
+  assert (Hequiv:Equivalence R) by (split; firstorder).
+  apply (ReprFunChoice _ R Hequiv).
+Qed.
+
+Theorem repr_fun_choice_imp_ext_pred_repr :
+  RepresentativeFunctionalChoice -> ExtensionalPredicateRepresentative.
+Proof.
+  intros ReprFunChoice A.
+  pose (R P Q := forall x : A, P x <-> Q x).
+  assert (Hequiv:Equivalence R) by (split; firstorder).
+  apply (ReprFunChoice _ R Hequiv).
+Qed.
+
+Theorem repr_fun_choice_imp_ext_function_repr :
+  RepresentativeFunctionalChoice -> ExtensionalFunctionRepresentative.
+Proof.
+  intros ReprFunChoice A B.
+  pose (R (f g : A -> B) := forall x : A, f x = g x).
+  assert (Hequiv:Equivalence R).
+  { split; try easy. firstorder using eq_trans. }
+  apply (ReprFunChoice _ R Hequiv).
+Qed.
+
+(** *** This is a variant of Diaconescu and Goodman-Myhill theorems *)
+
+Theorem repr_fun_choice_imp_excluded_middle :
+  RepresentativeFunctionalChoice -> ExcludedMiddle.
+Proof.
+  intros ReprFunChoice.
+  apply representative_boolean_partition_imp_excluded_middle, ReprFunChoice.
+Qed.
+
+Theorem repr_fun_choice_imp_relational_choice :
+  RepresentativeFunctionalChoice -> RelationalChoice.
+Proof.
+  intros ReprFunChoice A B T Hexists.
+  pose (D := (A*B)%type).
+  pose (R (z z':D) :=
+    let x := fst z in
+    let x' := fst z' in
+    let y := snd z in
+    let y' := snd z' in
+    x = x' /\ (T x y -> y = y' \/ T x y') /\ (T x y' -> y = y' \/ T x y)).
+  assert (Hequiv : Equivalence R).
+  { split.
+    - split. easy. firstorder.
+    - intros (x,y) (x',y') (H1,(H2,H2')). split. easy. simpl fst in *. simpl snd in *.
+      subst x'. split; intro H.
+      + destruct (H2' H); firstorder.
+      + destruct (H2 H); firstorder.
+    - intros (x,y) (x',y') (x'',y'') (H1,(H2,H2')) (H3,(H4,H4')).
+      simpl fst in *. simpl snd in *. subst x'' x'. split. easy. split; intro H.
+      + simpl fst in *. simpl snd in *. destruct (H2 H) as [<-|H0].
+        * destruct (H4 H); firstorder.
+        * destruct (H2' H0), (H4 H0); try subst y'; try subst y''; try firstorder.
+      + simpl fst in *. simpl snd in *. destruct (H4' H) as [<-|H0].
+        * destruct (H2' H); firstorder.
+        * destruct (H2' H0), (H4 H0); try subst y'; try subst y''; try firstorder. }
+  destruct (ReprFunChoice D R Hequiv) as (g,Hg).
+  set (T' x y := T x y /\ exists y', T x y' /\ g (x,y') = (x,y)).
+  exists T'. split.
+  - intros x y (H,_); easy.
+  - intro x. destruct (Hexists x) as (y,Hy).
+    exists (snd (g (x,y))).
+    destruct (Hg (x,y)) as ((Heq1,(H',H'')),Hgxyuniq); clear Hg.
+    destruct (H' Hy) as [Heq2|Hgy]; clear H'.
+    + split. split.
+      * rewrite <- Heq2. assumption.
+      * exists y. destruct (g (x,y)) as (x',y'). simpl in Heq1, Heq2. subst; easy.
+      * intros y' (Hy',(y'',(Hy'',Heq))).
+        rewrite (Hgxyuniq (x,y'')), Heq. easy. split. easy.
+        split; right; easy.
+    + split. split.
+      * assumption.
+      * exists y. destruct (g (x,y)) as (x',y'). simpl in Heq1. subst x'; easy.
+      * intros y' (Hy',(y'',(Hy'',Heq))).
+        rewrite (Hgxyuniq (x,y'')), Heq. easy. split. easy.
+        split; right; easy.
+Qed.
+
+(**********************************************************************)
+(** ** AC_fun_setoid = AC_fun_setoid_gen = AC_fun_setoid_simple       *)
+
+Theorem gen_setoid_fun_choice_imp_setoid_fun_choice  :
+  forall A B, GeneralizedSetoidFunctionalChoice_on A B -> SetoidFunctionalChoice_on A B.
+Proof.
+  intros A B GenSetoidFunChoice R T Hequiv Hcompat Hex.
+  apply GenSetoidFunChoice; try easy.
+  apply eq_equivalence.
+  intros * H <-. firstorder.
+Qed.
+
+Theorem setoid_fun_choice_imp_gen_setoid_fun_choice :
+  forall A B, SetoidFunctionalChoice_on A B -> GeneralizedSetoidFunctionalChoice_on A B.
+Proof.
+  intros A B SetoidFunChoice R S T HequivR HequivS Hcompat Hex.
+  destruct SetoidFunChoice with (R:=R) (T:=T) as (f,Hf); try easy.
+  { intros; apply (Hcompat x x' y y); try easy. }
+  exists f. intros x; specialize Hf with x as (Hf,Huniq). intuition. now erewrite Huniq.
+Qed.
+
+Corollary setoid_fun_choice_iff_gen_setoid_fun_choice :
+  forall A B, SetoidFunctionalChoice_on A B <-> GeneralizedSetoidFunctionalChoice_on A B.
+Proof.
+  split; auto using gen_setoid_fun_choice_imp_setoid_fun_choice, setoid_fun_choice_imp_gen_setoid_fun_choice.
+Qed.
+
+Theorem setoid_fun_choice_imp_simple_setoid_fun_choice  :
+   forall A B, SetoidFunctionalChoice_on A B -> SimpleSetoidFunctionalChoice_on A B.
+Proof.
+  intros A B SetoidFunChoice R T Hequiv Hexists.
+  pose (T' x y := forall x', R x x' -> T x' y).
+  assert (Hcompat : forall (x x' : A) (y : B), R x x' -> T' x y -> T' x' y) by firstorder.
+  destruct (SetoidFunChoice R T' Hequiv Hcompat Hexists) as (f,Hf).
+  exists f. firstorder.
+Qed.
+
+Theorem simple_setoid_fun_choice_imp_setoid_fun_choice :
+  forall A B, SimpleSetoidFunctionalChoice_on A B -> SetoidFunctionalChoice_on A B.
+Proof.
+  intros A B SimpleSetoidFunChoice R T Hequiv Hcompat Hexists.
+  destruct (SimpleSetoidFunChoice R T Hequiv) as (f,Hf); firstorder.
+Qed.
+
+Corollary setoid_fun_choice_iff_simple_setoid_fun_choice :
+  forall A B, SetoidFunctionalChoice_on A B <-> SimpleSetoidFunctionalChoice_on A B.
+Proof.
+  split; auto using simple_setoid_fun_choice_imp_setoid_fun_choice, setoid_fun_choice_imp_simple_setoid_fun_choice.
+Qed.
+
+(**********************************************************************)
+(** ** AC_fun_setoid = AC! + AC_fun_repr                              *)
+
+Theorem setoid_fun_choice_imp_fun_choice :
+  forall A B, SetoidFunctionalChoice_on A B -> FunctionalChoice_on A B.
+Proof.
+  intros A B SetoidFunChoice T Hexists.
+  destruct SetoidFunChoice with (R:=@eq A) (T:=T) as (f,Hf).
+  - apply eq_equivalence.
+  - now intros * ->.
+  - assumption.
+  - exists f. firstorder.
+Qed.
+
+Corollary setoid_fun_choice_imp_functional_rel_reification :
+  forall A B, SetoidFunctionalChoice_on A B -> FunctionalRelReification_on A B.
+Proof.
+  intros A B SetoidFunChoice.
+  apply fun_choice_imp_functional_rel_reification.
+  now apply setoid_fun_choice_imp_fun_choice.
+Qed.
+
+Theorem setoid_fun_choice_imp_repr_fun_choice :
+  SetoidFunctionalChoice -> RepresentativeFunctionalChoice .
+Proof.
+  intros SetoidFunChoice A R Hequiv.
+  apply SetoidFunChoice; firstorder.
+Qed.
+
+Theorem functional_rel_reification_and_repr_fun_choice_imp_setoid_fun_choice :
+  FunctionalRelReification -> RepresentativeFunctionalChoice -> SetoidFunctionalChoice.
+Proof.
+  intros FunRelReify ReprFunChoice A B R T Hequiv Hcompat Hexists.
+  assert (FunChoice : FunctionalChoice).
+  { intros A' B'. apply functional_rel_reification_and_rel_choice_imp_fun_choice.
+    - apply FunRelReify.
+    - now apply repr_fun_choice_imp_relational_choice. }
+  destruct (FunChoice _ _ T Hexists) as (f,Hf).
+  destruct (ReprFunChoice A R Hequiv) as (g,Hg).
+  exists (fun a => f (g a)).
+  intro x. destruct (Hg x) as (Hgx,HRuniq).
+  split.
+  - eapply Hcompat. symmetry. apply Hgx. apply Hf.
+  - intros y Hxy. f_equal. auto.
+Qed.
+
+Theorem functional_rel_reification_and_repr_fun_choice_iff_setoid_fun_choice :
+  FunctionalRelReification /\ RepresentativeFunctionalChoice <-> SetoidFunctionalChoice.
+Proof.
+  split; intros.
+  - now apply functional_rel_reification_and_repr_fun_choice_imp_setoid_fun_choice.
+  - split.
+    + now intros A B; apply setoid_fun_choice_imp_functional_rel_reification.
+    + now apply setoid_fun_choice_imp_repr_fun_choice.
+Qed.
+
+(** Note: What characterization to give of
+RepresentativeFunctionalChoice? A formulation of it as a functional
+relation would certainly be equivalent to the formulation of
+SetoidFunctionalChoice as a functional relation, but in their
+functional forms, SetoidFunctionalChoice seems strictly stronger *)
+
+(**********************************************************************)
+(** * AC_fun_setoid = AC_fun + Ext_fun_repr + EM                      *)
+
+Import EqNotations.
+
+(** ** This is the main theorem in [[Carlström04]] *)
+
+(** Note: all ingredients have a computational meaning when taken in
+  separation. However, to compute with the functional choice,
+  existential quantification has to be thought as a strong
+  existential, which is incompatible with the computational content of
+  excluded-middle *)
+
+Theorem fun_choice_and_ext_functions_repr_and_excluded_middle_imp_setoid_fun_choice :
+  FunctionalChoice -> ExtensionalFunctionRepresentative -> ExcludedMiddle -> RepresentativeFunctionalChoice.
+Proof.
+  intros FunChoice SetoidFunRepr EM A R (Hrefl,Hsym,Htrans).
+  assert (H:forall P:Prop, exists b, b = true <-> P).
+  { intros P. destruct (EM P).
+    - exists true; firstorder.
+    - exists false; easy. }
+  destruct (FunChoice _ _ _ H) as (c,Hc).
+  pose (class_of a y := c (R a y)).
+  pose (isclass f := exists x:A, f x = true).
+  pose (class := {f:A -> bool | isclass f}).
+  pose (contains (c:class) (a:A) := proj1_sig c a = true).
+  destruct (FunChoice class A contains) as (f,Hf).
+  - intros f. destruct (proj2_sig f) as (x,Hx).
+    exists x. easy.
+  - destruct (SetoidFunRepr A bool) as (h,Hh).
+    assert (Hisclass:forall a, isclass (h (class_of a))).
+    { intro a. exists a. destruct (Hh (class_of a)) as (Ha,Huniqa).
+      rewrite <- Ha. apply Hc. apply Hrefl. }
+   pose (f':= fun a => exist _ (h (class_of a)) (Hisclass a) : class).
+    exists (fun a => f (f' a)).
+    intros x. destruct (Hh (class_of x)) as (Hx,Huniqx). split.
+    + specialize Hf with (f' x). unfold contains in Hf. simpl in Hf. rewrite <- Hx in Hf. apply Hc. assumption.
+    + intros y Hxy.
+       f_equal.
+       assert (Heq1: h (class_of x) = h (class_of y)).
+       { apply Huniqx. intro z. unfold class_of.
+         destruct (c (R x z)) eqn:Hxz.
+         - symmetry. apply Hc. apply -> Hc in Hxz. firstorder.
+         - destruct (c (R y z)) eqn:Hyz.
+           + apply -> Hc in Hyz. rewrite <- Hxz. apply Hc. firstorder.
+           + easy. }
+       assert (Heq2:rew Heq1 in Hisclass x = Hisclass y).
+       { apply proof_irrelevance_cci, EM. }
+       unfold f'.
+       rewrite <- Heq2.
+       rewrite <- Heq1.
+       reflexivity.
+Qed.
+
+Theorem setoid_functional_choice_first_characterization :
+  FunctionalChoice /\ ExtensionalFunctionRepresentative /\ ExcludedMiddle <-> SetoidFunctionalChoice.
+Proof.
+  split.
+  - intros (FunChoice & SetoidFunRepr & EM).
+    apply functional_rel_reification_and_repr_fun_choice_imp_setoid_fun_choice.
+    + intros A B. apply fun_choice_imp_functional_rel_reification, FunChoice.
+    + now apply fun_choice_and_ext_functions_repr_and_excluded_middle_imp_setoid_fun_choice.
+  - intro SetoidFunChoice. repeat split.
+    + now intros A B; apply setoid_fun_choice_imp_fun_choice.
+    + apply repr_fun_choice_imp_ext_function_repr.
+       now apply setoid_fun_choice_imp_repr_fun_choice.
+    + apply repr_fun_choice_imp_excluded_middle.
+       now apply setoid_fun_choice_imp_repr_fun_choice.
+Qed.
+
+(**********************************************************************)
+(** ** AC_fun_setoid = AC_fun + Ext_pred_repr + PI                    *)
+
+(** Note: all ingredients have a computational meaning when taken in
+  separation. However, to compute with the functional choice,
+  existential quantification has to be thought as a strong
+  existential, which is incompatible with proof-irrelevance which
+  requires existential quantification to be truncated *)
+
+Theorem fun_choice_and_ext_pred_ext_and_proof_irrel_imp_setoid_fun_choice :
+  FunctionalChoice -> ExtensionalPredicateRepresentative -> ProofIrrelevance -> RepresentativeFunctionalChoice.
+Proof.
+  intros FunChoice PredExtRepr PI A R (Hrefl,Hsym,Htrans).
+  pose (isclass P := exists x:A, P x).
+  pose (class := {P:A -> Prop | isclass P}).
+  pose (contains (c:class) (a:A) := proj1_sig c a).
+  pose (class_of a := R a).
+  destruct (FunChoice class A contains) as (f,Hf).
+  - intros c. apply proj2_sig.
+  - destruct (PredExtRepr A) as (h,Hh).
+    assert (Hisclass:forall a, isclass (h (class_of a))).
+    { intro a. exists a. destruct (Hh (class_of a)) as (Ha,Huniqa).
+      rewrite <- Ha; apply Hrefl. }
+    pose (f':= fun a => exist _ (h (class_of a)) (Hisclass a) : class).
+    exists (fun a => f (f' a)).
+    intros x. destruct (Hh (class_of x)) as (Hx,Huniqx). split.
+    + specialize Hf with (f' x). simpl in Hf. rewrite <- Hx in Hf. assumption.
+    + intros y Hxy.
+       f_equal.
+       assert (Heq1: h (class_of x) = h (class_of y)).
+       { apply Huniqx. intro z. unfold class_of. firstorder. }
+       assert (Heq2:rew Heq1 in Hisclass x = Hisclass y).
+       { apply PI. }
+       unfold f'.
+       rewrite <- Heq2.
+       rewrite <- Heq1.
+       reflexivity.
+Qed.
+
+Theorem setoid_functional_choice_second_characterization :
+  FunctionalChoice /\ ExtensionalPredicateRepresentative /\ ProofIrrelevance <-> SetoidFunctionalChoice.
+Proof.
+  split.
+  - intros (FunChoice & ExtPredRepr & PI).
+    apply functional_rel_reification_and_repr_fun_choice_imp_setoid_fun_choice.
+    + intros A B. now apply fun_choice_imp_functional_rel_reification.
+    + now apply fun_choice_and_ext_pred_ext_and_proof_irrel_imp_setoid_fun_choice.
+  - intro SetoidFunChoice. repeat split.
+    + now intros A B; apply setoid_fun_choice_imp_fun_choice.
+    + apply repr_fun_choice_imp_ext_pred_repr.
+       now apply setoid_fun_choice_imp_repr_fun_choice.
+    + red. apply proof_irrelevance_cci.
+       apply repr_fun_choice_imp_excluded_middle.
+       now apply setoid_fun_choice_imp_repr_fun_choice.
+Qed.
diff --git a/theories/Logic/ClassicalFacts.v b/theories/Logic/ClassicalFacts.v
index afd64efdf..021408a37 100644
--- a/theories/Logic/ClassicalFacts.v
+++ b/theories/Logic/ClassicalFacts.v
@@ -34,8 +34,11 @@ Table of contents:
 
 3 3. Independence of general premises and drinker's paradox
 
-4. Classical logic and principle of unrestricted minimization
+4. Principles equivalent to classical logic
 
+4.1 Classical logic = principle of unrestricted minimization
+
+4.2 Classical logic = choice of representatives in a partition of bool
 *)
 
 (************************************************************************)
@@ -94,12 +97,14 @@ Qed.
 (** A weakest form of propositional extensionality: extensionality for
     provable propositions only *)
 
+Require Import PropExtensionalityFacts.
+
 Definition provable_prop_extensionality := forall A:Prop, A -> A = True.
 
 Lemma provable_prop_ext :
   prop_extensionality -> provable_prop_extensionality.
 Proof.
-  intros Ext A Ha; apply Ext; split; trivial.
+  exact PropExt_imp_ProvPropExt.
 Qed.
 
 (************************************************************************)
@@ -516,7 +521,7 @@ End Weak_proof_irrelevance_CCI.
 (** ** Weak excluded-middle *)
 
 (** The weak classical logic based on [~~A \/ ~A] is referred to with
-    name KC in {[ChagrovZakharyaschev97]]
+    name KC in [[ChagrovZakharyaschev97]]
 
    [[ChagrovZakharyaschev97]] Alexander Chagrov and Michael
    Zakharyaschev, "Modal Logic", Clarendon Press, 1997.
@@ -661,6 +666,8 @@ Proof.
     exists x0; exact Hnot.
 Qed.
 
+(** * Axioms equivalent to classical logic *)
+
 (** ** Principle of unrestricted minimization *)
 
 Require Import Coq.Arith.PeanoNat.
@@ -736,3 +743,56 @@ Section Example_of_undecidable_predicate_with_the_minimization_property.
   Qed.
 
 End Example_of_undecidable_predicate_with_the_minimization_property.
+
+(** ** Choice of representatives in a partition of bool *)
+
+(** This is similar to Bell's "weak extensional selection principle"  in [[Bell]]
+
+   [[Bell]] John L. Bell, Choice principles in intuitionistic set theory, unpublished.
+*)
+
+Require Import RelationClasses.
+
+Local Notation representative_boolean_partition :=
+  (forall R:bool->bool->Prop,
+    Equivalence R -> exists f, forall x, R x (f x) /\ forall y, R x y -> f x = f y).
+
+Theorem representative_boolean_partition_imp_excluded_middle :
+  representative_boolean_partition -> excluded_middle.
+Proof.
+  intros ReprFunChoice P.
+  pose (R (b1 b2 : bool) := b1 = b2 \/ P).
+  assert (Equivalence R).
+  { split.
+    - now left.
+    - destruct 1. now left. now right.
+    - destruct 1, 1; try now right. left; now transitivity y. }
+  destruct (ReprFunChoice R H) as (f,Hf). clear H.
+  destruct (Bool.bool_dec (f true) (f false)) as [Heq|Hneq].
+  + left.
+     destruct (Hf false) as ([Hfalse|HP],_); try easy.
+     destruct (Hf true) as ([Htrue|HP],_); try easy.
+     congruence.
+  + right. intro HP.
+     destruct (Hf true) as (_,H). apply Hneq, H. now right.
+Qed.
+
+Theorem excluded_middle_imp_representative_boolean_partition :
+  excluded_middle -> representative_boolean_partition.
+Proof.
+  intros EM R H.
+  destruct (EM (R true false)).
+  - exists (fun _ => true).
+    intros []; firstorder.
+  - exists (fun b => b).
+    intro b. split.
+    + reflexivity.
+    + destruct b, y; intros HR; easy || now symmetry in HR.
+Qed.
+
+Theorem excluded_middle_iff_representative_boolean_partition :
+  excluded_middle <-> representative_boolean_partition.
+Proof.
+  split; auto using excluded_middle_imp_representative_boolean_partition,
+                    representative_boolean_partition_imp_excluded_middle.
+Qed.
diff --git a/theories/Logic/Diaconescu.v b/theories/Logic/Diaconescu.v
index 23af5afc6..896be7c33 100644
--- a/theories/Logic/Diaconescu.v
+++ b/theories/Logic/Diaconescu.v
@@ -8,9 +8,9 @@
 (************************************************************************)
 
 (** Diaconescu showed that the Axiom of Choice entails Excluded-Middle
-   in topoi [Diaconescu75]. Lacas and Werner adapted the proof to show
+   in topoi [[Diaconescu75]]. Lacas and Werner adapted the proof to show
    that the axiom of choice in equivalence classes entails
-   Excluded-Middle in Type Theory [LacasWerner99].
+   Excluded-Middle in Type Theory [[LacasWerner99]].
 
    Three variants of Diaconescu's result in type theory are shown below.
 
@@ -23,22 +23,22 @@
       Benjamin Werner)
 
    C. A proof that extensional Hilbert epsilon's description operator
-      entails excluded-middle (taken from Bell [Bell93])
+      entails excluded-middle (taken from Bell [[Bell93]])
 
-   See also [Carlström] for a discussion of the connection between the
+   See also [[Carlström04]] for a discussion of the connection between the
    Extensional Axiom of Choice and Excluded-Middle
 
-   [Diaconescu75] Radu Diaconescu, Axiom of Choice and Complementation,
+   [[Diaconescu75]] Radu Diaconescu, Axiom of Choice and Complementation,
    in Proceedings of AMS, vol 51, pp 176-178, 1975.
 
-   [LacasWerner99] Samuel Lacas, Benjamin Werner, Which Choices imply
+   [[LacasWerner99]] Samuel Lacas, Benjamin Werner, Which Choices imply
    the excluded middle?, preprint, 1999.
 
-   [Bell93] John L. Bell, Hilbert's epsilon operator and classical
+   [[Bell93]] John L. Bell, Hilbert's epsilon operator and classical
    logic, Journal of Philosophical Logic, 22: 1-18, 1993
 
-   [Carlström04] Jesper Carlström, EM + Ext_ + AC_int <-> AC_ext,
-   Mathematical Logic Quaterly, vol 50(3), pp 236-240, 2004.
+   [[Carlström04]] Jesper Carlström, EM + Ext_ + AC_int is equivalent
+   to AC_ext, Mathematical Logic Quaterly, vol 50(3), pp 236-240, 2004.
 *)
 
 (**********************************************************************)
@@ -263,7 +263,7 @@ End ProofIrrel_RelChoice_imp_EqEM.
 (**********************************************************************)
 (** * Extensional Hilbert's epsilon description operator -> Excluded-Middle *)
 
-(** Proof sketch from Bell [Bell93] (with thanks to P. Castéran) *)
+(** Proof sketch from Bell [[Bell93]] (with thanks to P. Castéran) *)
 
 Local Notation inhabited A := A (only parsing).
 
diff --git a/theories/Logic/ExtensionalFunctionRepresentative.v b/theories/Logic/ExtensionalFunctionRepresentative.v
new file mode 100644
index 000000000..a9da68e16
--- /dev/null
+++ b/theories/Logic/ExtensionalFunctionRepresentative.v
@@ -0,0 +1,24 @@
+(************************************************************************)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
+(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016     *)
+(*   \VV/  **************************************************************)
+(*    //   *      This file is distributed under the terms of the       *)
+(*         *       GNU Lesser General Public License Version 2.1        *)
+(************************************************************************)
+
+(** This module states a limited form axiom of functional
+    extensionality which selects a canonical representative in each
+    class of extensional functions *)
+
+(** Its main interest is that it is the needed ingredient to provide
+    axiom of choice on setoids (a.k.a. axiom of extensional choice)
+    when combined with classical logic and axiom of (intensonal)
+    choice *)
+
+(** It provides extensionality of functions while still supporting (a
+    priori) an intensional interpretation of equality *)
+
+Axiom extensional_function_representative :
+  forall A B, exists repr, forall (f : A -> B),
+  (forall x, f x = repr f x) /\
+  (forall g, (forall x, f x = g x) -> repr f = repr g).
diff --git a/theories/Logic/Hurkens.v b/theories/Logic/Hurkens.v
index 841f843c0..a10c180cc 100644
--- a/theories/Logic/Hurkens.v
+++ b/theories/Logic/Hurkens.v
@@ -360,13 +360,12 @@ Module NoRetractToModalProposition.
 Section Paradox.
 
 Variable M : Prop -> Prop.
-Hypothesis unit : forall A:Prop, A -> M A.
-Hypothesis join : forall A:Prop, M (M A) -> M A.
 Hypothesis incr : forall A B:Prop, (A->B) -> M A -> M B.
 
 Lemma strength: forall A (P:A->Prop), M(forall x:A,P x) -> forall x:A,M(P x).
 Proof.
-  eauto.
+  intros A P h x.
+  eapply incr in h; eauto.
 Qed.
 
 (** ** The universe of modal propositions *)
@@ -470,7 +469,7 @@ Hypothesis p2p2 : forall A:NProp, El A -> El (b2p (p2b A)).
 Theorem paradox : forall B:NProp, El B.
 Proof.
   intros B.
-  unshelve (refine ((fun h => _) (NoRetractToModalProposition.paradox _ _ _ _ _ _ _ _ _ _))).
+  unshelve (refine ((fun h => _) (NoRetractToModalProposition.paradox _ _ _ _ _ _ _ _))).
   + exact (fun P => ~~P).
   + exact bool.
   + exact p2b.
@@ -480,8 +479,6 @@ Proof.
   + cbn. auto.
   + cbn. auto.
   + cbn. auto.
-  + auto.
-  + auto.
 Qed.
 
 End Paradox.
@@ -516,7 +513,7 @@ Hypothesis p2p2 : forall A:NProp, El A -> El (b2p (p2b A)).
 Theorem mparadox : forall B:NProp, El B.
 Proof.
   intros B.
-  unshelve (refine ((fun h => _) (NoRetractToModalProposition.paradox _ _ _ _ _ _ _ _ _ _))).
+  unshelve (refine ((fun h => _) (NoRetractToModalProposition.paradox _ _ _ _ _ _ _ _))).
   + exact (fun P => P).
   + exact bool.
   + exact p2b.
@@ -526,8 +523,6 @@ Proof.
   + cbn. auto.
   + cbn. auto.
   + cbn. auto.
-  + auto.
-  + auto.
 Qed.
 
 End MParadox.
@@ -562,7 +557,7 @@ End Paradox.
 End NoRetractFromSmallPropositionToProp.
 
 
-(** * Large universes are no retracts of [Prop]. *)
+(** * Large universes are not retracts of [Prop]. *)
 
 (** The existence in the Calculus of Constructions with universes of a
     retract from some [Type] universe into [Prop] is inconsistent. *)
diff --git a/theories/Logic/PropExtensionality.v b/theories/Logic/PropExtensionality.v
new file mode 100644
index 000000000..796c60273
--- /dev/null
+++ b/theories/Logic/PropExtensionality.v
@@ -0,0 +1,22 @@
+(************************************************************************)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
+(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016     *)
+(*   \VV/  **************************************************************)
+(*    //   *      This file is distributed under the terms of the       *)
+(*         *       GNU Lesser General Public License Version 2.1        *)
+(************************************************************************)
+
+(** This module states propositional extensionality and draws
+    consequences of it *)
+
+Axiom propositional_extensionality :
+  forall (P Q : Prop), (P <-> Q) -> P = Q.
+
+Require Import ClassicalFacts.
+
+Theorem proof_irrelevance : forall (P:Prop) (p1 p2:P), p1 = p2.
+Proof.
+  apply ext_prop_dep_proof_irrel_cic.
+  exact propositional_extensionality.
+Qed.
+
diff --git a/theories/Logic/PropExtensionalityFacts.v b/theories/Logic/PropExtensionalityFacts.v
new file mode 100644
index 000000000..7e455dfa1
--- /dev/null
+++ b/theories/Logic/PropExtensionalityFacts.v
@@ -0,0 +1,109 @@
+(************************************************************************)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
+(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016     *)
+(*   \VV/  **************************************************************)
+(*    //   *      This file is distributed under the terms of the       *)
+(*         *       GNU Lesser General Public License Version 2.1        *)
+(************************************************************************)
+
+(** Some facts and definitions about propositional and predicate extensionality
+
+We investigate the relations between the following extensionality principles
+
+- Proposition extensionality
+- Predicate extensionality
+- Propositional functional extensionality
+- Provable-proposition extensionality
+- Refutable-proposition extensionality
+- Extensional proposition representatives
+- Extensional predicate representatives
+- Extensional propositional function representatives
+
+Table of contents
+
+1. Definitions
+
+2.1 Predicate extensionality <-> Proposition extensionality + Propositional functional extensionality
+
+2.2 Propositional extensionality -> Provable propositional extensionality
+
+2.3 Propositional extensionality -> Refutable propositional extensionality
+
+*)
+
+Set Implicit Arguments.
+
+(**********************************************************************)
+(** * Definitions *)
+
+(** Propositional extensionality *)
+
+Local Notation PropositionalExtensionality :=
+  (forall A B : Prop, (A <-> B) -> A = B).
+
+(** Provable-proposition extensionality *)
+
+Local Notation ProvablePropositionExtensionality :=
+  (forall A:Prop, A -> A = True).
+
+(** Refutable-proposition extensionality *)
+
+Local Notation RefutablePropositionExtensionality :=
+  (forall A:Prop, ~A -> A = False).
+
+(** Predicate extensionality *)
+
+Local Notation PredicateExtensionality :=
+  (forall (A:Type) (P Q : A -> Prop), (forall x, P x <-> Q x) -> P = Q).
+
+(** Propositional functional extensionality *)
+
+Local Notation PropositionalFunctionalExtensionality :=
+  (forall (A:Type) (P Q : A -> Prop), (forall x, P x = Q x) -> P = Q).
+
+(**********************************************************************)
+(** * Propositional and predicate extensionality                      *)
+
+(**********************************************************************)
+(** ** Predicate extensionality <-> Propositional extensionality + Propositional functional extensionality *)
+
+Lemma PredExt_imp_PropExt : PredicateExtensionality -> PropositionalExtensionality.
+Proof.
+  intros Ext A B Equiv. 
+  change A with ((fun _ => A) I).
+  now rewrite Ext with (P := fun _ : True =>A) (Q := fun _ => B).
+Qed.
+
+Lemma PredExt_imp_PropFunExt : PredicateExtensionality -> PropositionalFunctionalExtensionality.
+Proof.
+  intros Ext A P Q Eq. apply Ext. intros x. now rewrite (Eq x).
+Qed.
+
+Lemma PropExt_and_PropFunExt_imp_PredExt :
+  PropositionalExtensionality -> PropositionalFunctionalExtensionality -> PredicateExtensionality.
+Proof.
+  intros Ext FunExt A P Q Equiv.
+  apply FunExt. intros x. now apply Ext.
+Qed.
+
+Theorem PropExt_and_PropFunExt_iff_PredExt :
+  PropositionalExtensionality /\ PropositionalFunctionalExtensionality <-> PredicateExtensionality.
+Proof.
+  firstorder using PredExt_imp_PropExt, PredExt_imp_PropFunExt, PropExt_and_PropFunExt_imp_PredExt.
+Qed.
+
+(**********************************************************************)
+(** ** Propositional extensionality and provable proposition extensionality *)
+
+Lemma PropExt_imp_ProvPropExt : PropositionalExtensionality -> ProvablePropositionExtensionality.
+Proof.
+  intros Ext A Ha; apply Ext; split; trivial.
+Qed.
+
+(**********************************************************************)
+(** ** Propositional extensionality and refutable proposition extensionality *)
+
+Lemma PropExt_imp_RefutPropExt : PropositionalExtensionality -> RefutablePropositionExtensionality.
+Proof.
+  intros Ext A Ha; apply Ext; split; easy.
+Qed.
diff --git a/theories/Logic/SetoidChoice.v b/theories/Logic/SetoidChoice.v
new file mode 100644
index 000000000..84432dda1
--- /dev/null
+++ b/theories/Logic/SetoidChoice.v
@@ -0,0 +1,60 @@
+(************************************************************************)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
+(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016     *)
+(*   \VV/  **************************************************************)
+(*    //   *      This file is distributed under the terms of the       *)
+(*         *       GNU Lesser General Public License Version 2.1        *)
+(************************************************************************)
+
+(** This module states the functional form of the axiom of choice over
+  setoids, commonly called extensional axiom of choice [[Carlström04]],
+  [[Martin-Löf05]]. This is obtained by a decomposition of the axiom
+  into the following components:
+
+  - classical logic
+  - relational axiom of choice
+  - axiom of unique choice
+  - a limited form of functional extensionality
+
+  Among other results, it entails:
+  - proof irrelevance
+  - choice of a representative in equivalence classes
+
+  [[Carlström04]] Jesper Carlström, EM + Ext_ + AC_int is equivalent to
+  AC_ext, Mathematical Logic Quaterly, vol 50(3), pp 236-240, 2004.
+
+  [[Martin-Löf05] Per Martin-Löf, 100 years of Zermelo’s axiom of
+  choice: what was the problem with it?, lecture notes for KTH/SU
+  colloquium, 2005.
+
+*)
+
+Require Export ClassicalChoice. (* classical logic, relational choice, unique choice *)
+Require Export ExtensionalFunctionRepresentative.
+
+Require Import ChoiceFacts.
+Require Import ClassicalFacts.
+Require Import RelationClasses.
+
+Theorem setoid_choice :
+  forall A B,
+  forall R : A -> A -> Prop,
+  forall T : A -> B -> Prop,
+  Equivalence R ->
+  (forall x x' y, R x x' -> T x y -> T x' y) ->
+  (forall x, exists y, T x y) ->
+  exists f : A -> B, forall x : A, T x (f x) /\ (forall x' : A, R x x' -> f x = f x').
+Proof.
+  apply setoid_functional_choice_first_characterization. split; [|split].
+  - exact choice.
+  - exact extensional_function_representative.
+  - exact classic.
+Qed.
+
+Theorem representative_choice :
+  forall A (R:A->A->Prop), (Equivalence R) ->
+  exists f : A->A, forall x : A, R x (f x) /\ forall x', R x x' -> f x = f x'.
+Proof.
+  apply setoid_fun_choice_imp_repr_fun_choice.
+  exact setoid_choice.
+Qed.
diff --git a/theories/Logic/vo.itarget b/theories/Logic/vo.itarget
index 323597395..ef2709b47 100644
--- a/theories/Logic/vo.itarget
+++ b/theories/Logic/vo.itarget
@@ -20,11 +20,14 @@ WeakFan.vo
 WKL.vo
 FunctionalExtensionality.vo
 ExtensionalityFacts.vo
+ExtensionalFunctionRepresentative.vo
 Hurkens.vo
 IndefiniteDescription.vo
 JMeq.vo
 ProofIrrelevanceFacts.vo
 ProofIrrelevance.vo
+PropExtensionality.vo
 RelationalChoice.vo
 SetIsType.vo
-FinFun.vo
-\ No newline at end of file
+SetoidChoice.vo
+FinFun.vo
diff --git a/theories/PArith/BinPos.v b/theories/PArith/BinPos.v
index 7baf102aa..d6385ee31 100644
--- a/theories/PArith/BinPos.v
+++ b/theories/PArith/BinPos.v
@@ -813,6 +813,34 @@ Proof.
   rewrite compare_cont_spec. unfold ge. destruct (p ?= q); easy'.
 Qed.
 
+Lemma compare_cont_Lt_not_Lt p q :
+  compare_cont Lt p q <> Lt <-> p > q.
+Proof.
+  rewrite compare_cont_Lt_Lt.
+  unfold gt, le, compare.
+  now destruct compare_cont; split; try apply comparison_eq_stable.
+Qed.
+
+Lemma compare_cont_Lt_not_Gt p q :
+  compare_cont Lt p q <> Gt <-> p <= q.
+Proof.
+  apply not_iff_compat, compare_cont_Lt_Gt.
+Qed.
+
+Lemma compare_cont_Gt_not_Lt p q :
+  compare_cont Gt p q <> Lt <-> p >= q.
+Proof.
+  apply not_iff_compat, compare_cont_Gt_Lt.
+Qed.
+
+Lemma compare_cont_Gt_not_Gt p q :
+  compare_cont Gt p q <> Gt <-> p < q.
+Proof.
+  rewrite compare_cont_Gt_Gt.
+  unfold ge, lt, compare.
+  now destruct compare_cont; split; try apply comparison_eq_stable.
+Qed.
+
 (** We can express recursive equations for [compare] *)
 
 Lemma compare_xO_xO p q : (p~0 ?= q~0) = (p ?= q).
diff --git a/theories/ZArith/BinInt.v b/theories/ZArith/BinInt.v
index 5aa397f8a..1e3ab6687 100644
--- a/theories/ZArith/BinInt.v
+++ b/theories/ZArith/BinInt.v
@@ -1367,7 +1367,7 @@ Lemma inj_testbit a n : 0<=n ->
  Z.testbit (Z.pos a) n = N.testbit (N.pos a) (Z.to_N n).
 Proof. apply Z.testbit_Zpos. Qed.
 
-(** Some results concerning Z.neg *)
+(** Some results concerning Z.neg and Z.pos *)
 
 Lemma inj_neg p q : Z.neg p = Z.neg q -> p = q.
 Proof. now injection 1. Qed.
@@ -1375,18 +1375,54 @@ Proof. now injection 1. Qed.
 Lemma inj_neg_iff p q : Z.neg p = Z.neg q <-> p = q.
 Proof. split. apply inj_neg. intros; now f_equal. Qed.
 
+Lemma inj_pos p q : Z.pos p = Z.pos q -> p = q.
+Proof. now injection 1. Qed.
+
+Lemma inj_pos_iff p q : Z.pos p = Z.pos q <-> p = q.
+Proof. split. apply inj_pos. intros; now f_equal. Qed.
+
 Lemma neg_is_neg p : Z.neg p < 0.
 Proof. reflexivity. Qed.
 
 Lemma neg_is_nonpos p : Z.neg p <= 0.
 Proof. easy. Qed.
 
+Lemma pos_is_pos p : 0 < Z.pos p.
+Proof. reflexivity. Qed.
+
+Lemma pos_is_nonneg p : 0 <= Z.pos p.
+Proof. easy. Qed.
+
+Lemma neg_le_pos p q : Zneg p <= Zpos q.
+Proof. easy. Qed.
+
+Lemma neg_lt_pos p q : Zneg p < Zpos q.
+Proof. easy. Qed.
+
+Lemma neg_le_neg p q : (q <= p)%positive -> Zneg p <= Zneg q.
+Proof. intros; unfold Z.le; simpl. now rewrite <- Pos.compare_antisym. Qed.
+
+Lemma neg_lt_neg p q : (q < p)%positive -> Zneg p < Zneg q.
+Proof. intros; unfold Z.lt; simpl. now rewrite <- Pos.compare_antisym. Qed.
+
+Lemma pos_le_pos p q : (p <= q)%positive -> Zpos p <= Zpos q.
+Proof. easy. Qed.
+
+Lemma pos_lt_pos p q : (p < q)%positive -> Zpos p < Zpos q.
+Proof. easy. Qed.
+
 Lemma neg_xO p : Z.neg p~0 = 2 * Z.neg p.
 Proof. reflexivity. Qed.
 
 Lemma neg_xI p : Z.neg p~1 = 2 * Z.neg p - 1.
 Proof. reflexivity. Qed.
 
+Lemma pos_xO p : Z.pos p~0 = 2 * Z.pos p.
+Proof. reflexivity. Qed.
+
+Lemma pos_xI p : Z.pos p~1 = 2 * Z.pos p + 1.
+Proof. reflexivity. Qed.
+
 Lemma opp_neg p : - Z.neg p = Z.pos p.
 Proof. reflexivity. Qed.
 
@@ -1402,6 +1438,9 @@ Proof. reflexivity. Qed.
 Lemma add_neg_pos p q : Z.neg p + Z.pos q = Z.pos_sub q p.
 Proof. reflexivity. Qed.
 
+Lemma add_pos_pos p q : Z.pos p + Z.pos q = Z.pos (p+q).
+Proof. reflexivity. Qed.
+
 Lemma divide_pos_neg_r n p : (n|Z.pos p) <-> (n|Z.neg p).
 Proof. apply Z.divide_Zpos_Zneg_r. Qed.
 
@@ -1412,6 +1451,10 @@ Lemma testbit_neg a n : 0<=n ->
  Z.testbit (Z.neg a) n = negb (N.testbit (Pos.pred_N a) (Z.to_N n)).
 Proof. apply Z.testbit_Zneg. Qed.
 
+Lemma testbit_pos a n : 0<=n ->
+ Z.testbit (Z.pos a) n = N.testbit (N.pos a) (Z.to_N n).
+Proof. apply Z.testbit_Zpos. Qed.
+
 End Pos2Z.
 
 Module Z2Pos.
diff --git a/theories/ZArith/Zorder.v b/theories/ZArith/Zorder.v
index 73dee0cf2..18915216a 100644
--- a/theories/ZArith/Zorder.v
+++ b/theories/ZArith/Zorder.v
@@ -339,7 +339,7 @@ Notation Zle_0_1 := Z.le_0_1 (compat "8.3").
 
 Lemma Zle_neg_pos : forall p q:positive, Zneg p <= Zpos q.
 Proof.
-  easy.
+  exact Pos2Z.neg_le_pos.
 Qed.
 
 Lemma Zgt_pos_0 : forall p:positive, Zpos p > 0.
@@ -350,12 +350,12 @@ Qed.
 (* weaker but useful (in [Z.pow] for instance) *)
 Lemma Zle_0_pos : forall p:positive, 0 <= Zpos p.
 Proof.
- easy.
+  exact Pos2Z.pos_is_nonneg.
 Qed.
 
 Lemma Zlt_neg_0 : forall p:positive, Zneg p < 0.
 Proof.
- easy.
+  exact Pos2Z.neg_is_neg.
 Qed.
 
 Lemma Zle_0_nat : forall n:nat, 0 <= Z.of_nat n.
diff --git a/tools/coq_makefile.ml b/tools/coq_makefile.ml
index eab909f5b..4842a8915 100644
--- a/tools/coq_makefile.ml
+++ b/tools/coq_makefile.ml
@@ -50,9 +50,9 @@ let section s =
 let lib_dirs =
   ["kernel"; "lib"; "library"; "parsing";
    "pretyping"; "interp"; "printing"; "intf";
-   "proofs"; "tactics"; "tools"; "ltacprof";
-   "toplevel"; "stm"; "grammar"; "config";
-   "ltac"; "engine"]
+   "proofs"; "tactics"; "tools";
+   "vernac"; "stm"; "toplevel"; "grammar"; "config";
+   "engine"]
 
 
 let usage () =
@@ -390,7 +390,7 @@ let clean sds sps =
   let () =
     if !some_vfile then
       let () = print "cleanall:: clean\n" in
-      print "\trm -f $(patsubst %.v,.%.aux,$(VFILES))\n\n" in
+      print "\trm -f $(foreach f,$(VFILES:.v=),$(dir $(f)).$(notdir $(f)).aux)\n\n" in
   print "archclean::\n";
   print "\trm -f *.cmx *.o\n";
   List.iter
diff --git a/tools/coqmktop.ml b/tools/coqmktop.ml
index eaf938e8c..645b3665e 100644
--- a/tools/coqmktop.ml
+++ b/tools/coqmktop.ml
@@ -75,6 +75,7 @@ let std_includes basedir =
   let rebase d = match basedir with None -> d | Some base -> base / d in
   ["-I"; rebase ".";
    "-I"; rebase "lib";
+   "-I"; rebase "vernac";       (* For Mltop *)
    "-I"; rebase "toplevel";
    "-I"; rebase "kernel/byterun";
    "-I"; Envars.camlp4lib () ] @
diff --git a/tools/gallina-db.el b/tools/gallina-db.el
index baabebb13..9664f69f8 100644
--- a/tools/gallina-db.el
+++ b/tools/gallina-db.el
@@ -163,7 +163,7 @@ for DB structure."
 
 (defun coq-sort-menu-entries (menu)
   (sort menu 
-	'(lambda (x y) (string< 
+	(lambda (x y) (string< 
 			(downcase (elt x 0)) 
 			(downcase (elt y 0))))))
 
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml
index d9f8ed881..cc1c44fe3 100644
--- a/toplevel/coqtop.ml
+++ b/toplevel/coqtop.ml
@@ -603,8 +603,6 @@ let init_toplevel arglist =
   init_gc ();
   Sys.catch_break false; (* Ctrl-C is fatal during the initialisation *)
   Lib.init();
-  (* Default Proofb Mode starts with an alternative default. *)
-  Goptions.set_string_option_value ["Default";"Proof";"Mode"] "Classic";
   begin
     try
       let extras = parse_args arglist in
diff --git a/toplevel/toplevel.mllib b/toplevel/toplevel.mllib
index d68922363..10bf48647 100644
--- a/toplevel/toplevel.mllib
+++ b/toplevel/toplevel.mllib
@@ -1,19 +1,3 @@
-Himsg
-ExplainErr
-Class
-Locality
-Metasyntax
-Auto_ind_decl
-Search
-Indschemes
-Obligations
-Command
-Classes
-Record
-Assumptions
-Vernacinterp
-Mltop
-Vernacentries
 Vernac
 Usage
 Coqloop
diff --git a/toplevel/vernac.ml b/toplevel/vernac.ml
index 0e72a044c..f914f83b9 100644
--- a/toplevel/vernac.ml
+++ b/toplevel/vernac.ml
@@ -105,7 +105,7 @@ let verbose_phrase verbch loc =
   match verbch with
     | Some ch ->
 	let len = snd loc - fst loc in
-	let s = String.create len in
+	let s = Bytes.create len in
         seek_in ch (fst loc);
         really_input ch s 0 len;
         Feedback.msg_notice (str s)
@@ -162,7 +162,7 @@ let pr_new_syntax po loc chan_beautify ocom =
 let pp_cmd_header loc com =
   let shorten s = try (String.sub s 0 30)^"..." with _ -> s in
   let noblank s =
-    for i = 0 to String.length s - 1 do
+    for i = 0 to Bytes.length s - 1 do
       match s.[i] with
 	| ' ' | '\n' | '\t' | '\r' -> s.[i] <- '~'
 	| _ -> ()
@@ -343,7 +343,7 @@ let compile verbosely f =
       let univs, proofs = Stm.finish_tasks lfdv univs disch proofs tasks in
       Library.save_library_raw lfdv sum lib univs proofs
 
-let compile v f = 
+let compile v f =
   ignore(CoqworkmgrApi.get 1);
   compile v f;
   CoqworkmgrApi.giveback 1
diff --git a/toplevel/assumptions.ml b/vernac/assumptions.ml
index 8865cd646..8865cd646 100644
--- a/toplevel/assumptions.ml
+++ b/vernac/assumptions.ml
diff --git a/toplevel/assumptions.mli b/vernac/assumptions.mli
index 072675783..072675783 100644
--- a/toplevel/assumptions.mli
+++ b/vernac/assumptions.mli
diff --git a/toplevel/auto_ind_decl.ml b/vernac/auto_ind_decl.ml
index b1811d6a6..594f2e944 100644
--- a/toplevel/auto_ind_decl.ml
+++ b/vernac/auto_ind_decl.ml
@@ -58,6 +58,7 @@ exception InductiveWithSort
 exception ParameterWithoutEquality of global_reference
 exception NonSingletonProp of inductive
 exception DecidabilityMutualNotSupported
+exception NoDecidabilityCoInductive
 
 let dl = Loc.ghost
 
@@ -212,19 +213,19 @@ let build_beq_scheme mode kn =
             end
         | Sort _  -> raise InductiveWithSort
         | Prod _ -> raise InductiveWithProduct
-        | Lambda _-> raise (EqUnknown "Lambda")
-        | LetIn _ -> raise (EqUnknown "LetIn")
+        | Lambda _-> raise (EqUnknown "abstraction")
+        | LetIn _ -> raise (EqUnknown "let-in")
         | Const kn ->
 	    (match Environ.constant_opt_value_in env kn with
 	      | None -> raise (ParameterWithoutEquality (ConstRef (fst kn)))
 	      | Some c -> aux (applist (c,a)))
-        | Proj _ -> raise (EqUnknown "Proj")
-        | Construct _ -> raise (EqUnknown "Construct")
-        | Case _ -> raise (EqUnknown "Case")
-        | CoFix _ -> raise (EqUnknown "CoFix")
-        | Fix _   -> raise (EqUnknown "Fix")
-        | Meta _  -> raise (EqUnknown "Meta")
-        | Evar _  -> raise (EqUnknown "Evar")
+        | Proj _ -> raise (EqUnknown "projection")
+        | Construct _ -> raise (EqUnknown "constructor")
+        | Case _ -> raise (EqUnknown "match")
+        | CoFix _ -> raise (EqUnknown "cofix")
+        | Fix _   -> raise (EqUnknown "fix")
+        | Meta _  -> raise (EqUnknown "meta-variable")
+        | Evar _  -> raise (EqUnknown "existential variable")
     in
       aux t
   in
@@ -309,6 +310,8 @@ let build_beq_scheme mode kn =
       let kelim = Inductive.elim_sorts (mib,mib.mind_packets.(i)) in
 	if not (Sorts.List.mem InSet kelim) then
 	  raise (NonSingletonProp (kn,i));
+        if mib.mind_finite = Decl_kinds.CoFinite then
+	  raise NoDecidabilityCoInductive;
         let fix = mkFix (((Array.make nb_ind 0),i),(names,types,cores)) in
         create_input fix),
        Evd.make_evar_universe_context (Global.env ()) None),
@@ -520,12 +523,15 @@ let eqI ind l =
 (**********************************************************************)
 (* Boolean->Leibniz *)
 
+open Namegen
+
 let compute_bl_goal ind lnamesparrec nparrec =
   let eqI, eff = eqI ind lnamesparrec in
   let list_id = list_id lnamesparrec in
+  let avoid = List.fold_right (Nameops.name_fold (fun id l -> id::l)) (List.map RelDecl.get_name lnamesparrec) [] in
   let create_input c =
-    let x = Id.of_string "x" and
-        y = Id.of_string "y" in
+    let x = next_ident_away (Id.of_string "x") avoid and
+        y = next_ident_away (Id.of_string "y") avoid in
       let bl_typ = List.map (fun (s,seq,_,_) ->
         mkNamedProd x (mkVar s) (
             mkNamedProd y (mkVar s) (
@@ -544,11 +550,11 @@ let compute_bl_goal ind lnamesparrec nparrec =
         mkNamedProd seq b a
       ) bl_input (List.rev list_id) (List.rev eqs_typ) in
       List.fold_left (fun a decl -> mkNamedProd
-                (match RelDecl.get_name decl with Name s -> s | Anonymous ->  Id.of_string "A")
+                (match RelDecl.get_name decl with Name s -> s | Anonymous -> next_ident_away (Id.of_string "A") avoid)
                 (RelDecl.get_type decl) a) eq_input lnamesparrec
     in
-      let n = Id.of_string "x" and
-          m = Id.of_string "y" in
+      let n = next_ident_away (Id.of_string "x") avoid and
+          m = next_ident_away (Id.of_string "y") avoid in
       let u = Univ.Instance.empty in
      create_input (
         mkNamedProd n (mkFullInd (ind,u) nparrec) (
@@ -665,10 +671,11 @@ let _ = bl_scheme_kind_aux := fun () -> bl_scheme_kind
 let compute_lb_goal ind lnamesparrec nparrec =
   let list_id = list_id lnamesparrec in
   let eq = Lazy.force eq and tt = Lazy.force tt and bb = Lazy.force bb in
+  let avoid = List.fold_right (Nameops.name_fold (fun id l -> id::l)) (List.map RelDecl.get_name lnamesparrec) [] in
   let eqI, eff = eqI ind lnamesparrec in
     let create_input c =
-      let x = Id.of_string "x" and
-          y = Id.of_string "y" in
+      let x = next_ident_away (Id.of_string "x") avoid and
+          y = next_ident_away (Id.of_string "y") avoid in
       let lb_typ = List.map (fun (s,seq,_,_) ->
         mkNamedProd x (mkVar s) (
             mkNamedProd y (mkVar s) (
@@ -690,8 +697,8 @@ let compute_lb_goal ind lnamesparrec nparrec =
                 (match (RelDecl.get_name decl) with Name s -> s | Anonymous ->  Id.of_string "A")
                 (RelDecl.get_type decl)  a) eq_input lnamesparrec
     in
-      let n = Id.of_string "x" and
-          m = Id.of_string "y" in
+      let n = next_ident_away (Id.of_string "x") avoid and
+          m = next_ident_away (Id.of_string "y") avoid in
       let u = Univ.Instance.empty in
       create_input (
         mkNamedProd n (mkFullInd (ind,u) nparrec) (
@@ -794,9 +801,10 @@ let compute_dec_goal ind lnamesparrec nparrec =
   check_not_is_defined ();
   let eq = Lazy.force eq and tt = Lazy.force tt and bb = Lazy.force bb in
   let list_id = list_id lnamesparrec in
+  let avoid = List.fold_right (Nameops.name_fold (fun id l -> id::l)) (List.map RelDecl.get_name lnamesparrec) [] in
     let create_input c =
-      let x = Id.of_string "x" and
-          y = Id.of_string "y" in
+      let x = next_ident_away (Id.of_string "x") avoid and
+          y = next_ident_away (Id.of_string "y") avoid in
       let lb_typ = List.map (fun (s,seq,_,_) ->
         mkNamedProd x (mkVar s) (
             mkNamedProd y (mkVar s) (
@@ -831,8 +839,8 @@ let compute_dec_goal ind lnamesparrec nparrec =
                 (match RelDecl.get_name decl with Name s -> s | Anonymous ->  Id.of_string "A")
                 (RelDecl.get_type decl) a) eq_input lnamesparrec
     in
-      let n = Id.of_string "x" and
-          m = Id.of_string "y" in
+      let n = next_ident_away (Id.of_string "x") avoid and
+          m = next_ident_away (Id.of_string "y") avoid in
         let eqnm = mkApp(eq,[|mkFullInd ind (2*nparrec+2);mkVar n;mkVar m|]) in
         create_input (
           mkNamedProd n (mkFullInd ind (2*nparrec)) (
diff --git a/toplevel/auto_ind_decl.mli b/vernac/auto_ind_decl.mli
index fa5c61484..60232ba8f 100644
--- a/toplevel/auto_ind_decl.mli
+++ b/vernac/auto_ind_decl.mli
@@ -24,6 +24,7 @@ exception InductiveWithSort
 exception ParameterWithoutEquality of Globnames.global_reference
 exception NonSingletonProp of inductive
 exception DecidabilityMutualNotSupported
+exception NoDecidabilityCoInductive
 
 val beq_scheme_kind : mutual scheme_kind
 val build_beq_scheme : mutual_scheme_object_function
diff --git a/toplevel/class.ml b/vernac/class.ml
index 0dc799014..0dc799014 100644
--- a/toplevel/class.ml
+++ b/vernac/class.ml
diff --git a/toplevel/class.mli b/vernac/class.mli
index 5f9ae28f6..5f9ae28f6 100644
--- a/toplevel/class.mli
+++ b/vernac/class.mli
diff --git a/toplevel/classes.ml b/vernac/classes.ml
index 6512f3def..6512f3def 100644
--- a/toplevel/classes.ml
+++ b/vernac/classes.ml
diff --git a/toplevel/classes.mli b/vernac/classes.mli
index d2cb788ea..d2cb788ea 100644
--- a/toplevel/classes.mli
+++ b/vernac/classes.mli
diff --git a/toplevel/command.ml b/vernac/command.ml
index 049f58aa2..049f58aa2 100644
--- a/toplevel/command.ml
+++ b/vernac/command.ml
diff --git a/toplevel/command.mli b/vernac/command.mli
index 616afb91f..616afb91f 100644
--- a/toplevel/command.mli
+++ b/vernac/command.mli
diff --git a/toplevel/discharge.ml b/vernac/discharge.ml
index e24d5e74f..e24d5e74f 100644
--- a/toplevel/discharge.ml
+++ b/vernac/discharge.ml
diff --git a/toplevel/discharge.mli b/vernac/discharge.mli
index 18d1b6776..18d1b6776 100644
--- a/toplevel/discharge.mli
+++ b/vernac/discharge.mli
diff --git a/toplevel/doc.tex b/vernac/doc.tex
index f2550fda1..f2550fda1 100644
--- a/toplevel/doc.tex
+++ b/vernac/doc.tex
diff --git a/toplevel/explainErr.ml b/vernac/explainErr.ml
index 17897460c..17897460c 100644
--- a/toplevel/explainErr.ml
+++ b/vernac/explainErr.ml
diff --git a/toplevel/explainErr.mli b/vernac/explainErr.mli
index a67c887af..a67c887af 100644
--- a/toplevel/explainErr.mli
+++ b/vernac/explainErr.mli
diff --git a/toplevel/himsg.ml b/vernac/himsg.ml
index 891662b93..6cff805fc 100644
--- a/toplevel/himsg.ml
+++ b/vernac/himsg.ml
@@ -532,6 +532,8 @@ let pr_trailing_ne_context_of env sigma =
   else (str " in environment:"++ pr_context_unlimited env sigma)
 
 let rec explain_evar_kind env sigma evk ty = function
+  | Evar_kinds.NamedHole id ->
+      strbrk "the existential variable named " ++ pr_id id
   | Evar_kinds.QuestionMark _ ->
       strbrk "this placeholder of type " ++ ty
   | Evar_kinds.CasesType false ->
diff --git a/toplevel/himsg.mli b/vernac/himsg.mli
index ced54fd27..ced54fd27 100644
--- a/toplevel/himsg.mli
+++ b/vernac/himsg.mli
diff --git a/toplevel/ind_tables.ml b/vernac/ind_tables.ml
index 85d0b6194..85d0b6194 100644
--- a/toplevel/ind_tables.ml
+++ b/vernac/ind_tables.ml
diff --git a/toplevel/ind_tables.mli b/vernac/ind_tables.mli
index 20f30d6d1..20f30d6d1 100644
--- a/toplevel/ind_tables.mli
+++ b/vernac/ind_tables.mli
diff --git a/toplevel/indschemes.ml b/vernac/indschemes.ml
index 48521a8e5..f7e3f0d95 100644
--- a/toplevel/indschemes.ml
+++ b/vernac/indschemes.ml
@@ -186,6 +186,12 @@ let try_declare_scheme what f internal names kn =
     | DecidabilityMutualNotSupported ->
         alarm what internal
           (str "Decidability lemma for mutual inductive types not supported.")
+    | EqUnknown s ->
+         alarm what internal
+           (str "Found unsupported " ++ str s ++ str " while building Boolean equality.")
+    | NoDecidabilityCoInductive ->
+         alarm what internal
+           (str "Scheme Equality is only for inductive types.")
     | e when CErrors.noncritical e ->
         alarm what internal
 	  (str "Unexpected error during scheme creation: " ++ CErrors.print e)
diff --git a/toplevel/indschemes.mli b/vernac/indschemes.mli
index e5d79fd51..e5d79fd51 100644
--- a/toplevel/indschemes.mli
+++ b/vernac/indschemes.mli
diff --git a/stm/lemmas.ml b/vernac/lemmas.ml
index 55f33be39..55f33be39 100644
--- a/stm/lemmas.ml
+++ b/vernac/lemmas.ml
diff --git a/stm/lemmas.mli b/vernac/lemmas.mli
index 39c089be9..39c089be9 100644
--- a/stm/lemmas.mli
+++ b/vernac/lemmas.mli
diff --git a/toplevel/locality.ml b/vernac/locality.ml
index 03640676e..03640676e 100644
--- a/toplevel/locality.ml
+++ b/vernac/locality.ml
diff --git a/toplevel/locality.mli b/vernac/locality.mli
index 2ec392eef..2ec392eef 100644
--- a/toplevel/locality.mli
+++ b/vernac/locality.mli
diff --git a/toplevel/metasyntax.ml b/vernac/metasyntax.ml
index f28ef3f65..0aaf6afd7 100644
--- a/toplevel/metasyntax.ml
+++ b/vernac/metasyntax.ml
@@ -20,10 +20,8 @@ open Extend
 open Libobject
 open Constrintern
 open Vernacexpr
-open Pcoq
 open Libnames
 open Tok
-open Egramcoq
 open Notation
 open Nameops
 
@@ -46,7 +44,7 @@ let add_token_obj s = Lib.add_anonymous_leaf (inToken s)
 
 let entry_buf = Buffer.create 64
 
-type any_entry = AnyEntry : 'a Gram.entry -> any_entry
+type any_entry = AnyEntry : 'a Pcoq.Gram.entry -> any_entry
 
 let grammars : any_entry list String.Map.t ref = ref String.Map.empty
 
@@ -56,7 +54,7 @@ let register_grammar name grams =
 let pr_entry e =
   let () = Buffer.clear entry_buf in
   let ft = Format.formatter_of_buffer entry_buf in
-  let () = Gram.entry_print ft e in
+  let () = Pcoq.Gram.entry_print ft e in
   str (Buffer.contents entry_buf)
 
 let pr_registered_grammar name =
@@ -65,7 +63,7 @@ let pr_registered_grammar name =
   | None -> error "Unknown or unprintable grammar entry."
   | Some entries ->
     let pr_one (AnyEntry e) =
-      str "Entry " ++ str (Gram.Entry.name e) ++ str " is" ++ fnl () ++
+      str "Entry " ++ str (Pcoq.Gram.Entry.name e) ++ str " is" ++ fnl () ++
       pr_entry e
     in
     prlist pr_one entries
@@ -738,52 +736,74 @@ let inSyntaxExtension : syntax_extension_obj -> obj =
 
 (* Interpreting user-provided modifiers *)
 
-let interp_modifiers modl =
-  let onlyparsing = ref false in
-  let onlyprinting = ref false in
-  let compat = ref None in
-  let rec interp assoc level etyps format extra = function
-    | [] ->
-	(assoc,level,etyps,!onlyparsing,!onlyprinting,!compat,format,extra)
+(* XXX: We could move this to the parser itself *)
+module NotationMods = struct
+
+type notation_modifier = {
+  assoc         : gram_assoc option;
+  level         : int option;
+  etyps         : (Id.t * simple_constr_prod_entry_key) list;
+
+  (* common to syn_data below *)
+  only_parsing  : bool;
+  only_printing : bool;
+  compat        : compat_version option;
+  format        : string Loc.located option;
+  extra         : (string * string) list;
+}
+
+let default = {
+  assoc         = None;
+  level         = None;
+  etyps         = [];
+  only_parsing  = false;
+  only_printing = false;
+  compat        = None;
+  format        = None;
+  extra         = [];
+}
+
+end
+
+let interp_modifiers modl = let open NotationMods in
+  let rec interp acc = function
+    | [] -> acc
     | SetEntryType (s,typ) :: l ->
 	let id = Id.of_string s in
-	if Id.List.mem_assoc id etyps then
+	if Id.List.mem_assoc id acc.etyps then
 	  user_err ~hdr:"Metasyntax.interp_modifiers"
             (str s ++ str " is already assigned to an entry or constr level.");
-	interp assoc level ((id,typ)::etyps) format extra l
+        interp { acc with etyps = (id,typ) :: acc.etyps; } l
     | SetItemLevel ([],n) :: l ->
-	interp assoc level etyps format extra l
+        interp acc l
     | SetItemLevel (s::idl,n) :: l ->
 	let id = Id.of_string s in
-	if Id.List.mem_assoc id etyps then
+	if Id.List.mem_assoc id acc.etyps then
 	  user_err ~hdr:"Metasyntax.interp_modifiers"
             (str s ++ str " is already assigned to an entry or constr level.");
 	let typ = ETConstr (n,()) in
-	interp assoc level ((id,typ)::etyps) format extra (SetItemLevel (idl,n)::l)
+        interp { acc with etyps = (id,typ)::acc.etyps; } (SetItemLevel (idl,n)::l)
     | SetLevel n :: l ->
-	if not (Option.is_empty level) then error "A level is given more than once.";
-	interp assoc (Some n) etyps format extra l
+
+        interp { acc with level = Some n; } l
     | SetAssoc a :: l ->
-	if not (Option.is_empty assoc) then error"An associativity is given more than once.";
-	interp (Some a) level etyps format extra l
-    | SetOnlyParsing :: l ->
-	onlyparsing := true;
-	interp assoc level etyps format extra l
+	if not (Option.is_empty acc.assoc) then error "An associativity is given more than once.";
+        interp { acc with assoc = Some a; } l
+     | SetOnlyParsing :: l ->
+        interp { acc with only_parsing = true; } l
     | SetOnlyPrinting :: l ->
-	onlyprinting := true;
-	interp assoc level etyps format extra l
+        interp { acc with only_printing = true; } l
     | SetCompatVersion v :: l ->
-        compat := Some v;
-	interp assoc level etyps format extra l
+        interp { acc with compat = Some v; } l
     | SetFormat ("text",s) :: l ->
-	if not (Option.is_empty format) then error "A format is given more than once.";
-	interp assoc level etyps (Some s) extra l
+	if not (Option.is_empty acc.format) then error "A format is given more than once.";
+        interp { acc with format = Some s; } l
     | SetFormat (k,(_,s)) :: l ->
-	interp assoc level etyps format ((k,s) :: extra) l
-  in interp None None [] None [] modl
+        interp { acc with extra = (k,s)::acc.extra; } l
+  in interp default modl
 
 let check_infix_modifiers modifiers =
-  let (_, _, t, _, _, _, _, _) = interp_modifiers modifiers in
+  let t = (interp_modifiers modifiers).NotationMods.etyps in
   if not (List.is_empty t) then
     error "Explicit entry level or type unexpected in infix notation."
 
@@ -990,18 +1010,59 @@ let remove_curly_brackets l =
   | x :: l -> x :: aux false l
   in aux true l
 
+module SynData = struct
+
+  (* XXX: Document *)
+  type syn_data = {
+
+    (* Notation name and location *)
+    info          : notation * notation_location;
+
+    (* Fields coming from the vernac-level modifiers *)
+    only_parsing  : bool;
+    only_printing : bool;
+    compat        : compat_version option;
+    format        : string Loc.located option;
+    extra         : (string * string) list;
+
+    (* XXX: Callback to printing, must remove *)
+    msgs          : ((std_ppcmds -> unit) * std_ppcmds) list;
+
+    (* Fields for internalization *)
+    recvars       : (Id.t * Id.t) list;
+    mainvars      : Id.List.elt list;
+    intern_typs   : notation_var_internalization_type list;
+
+    (* Notation data for parsing *)
+
+    level         : int;
+    syntax_data   : (Id.t * (production_level, production_position) constr_entry_key_gen) list * (* typs    *)
+                    symbol list;                                                                 (* symbols *)
+    not_data      : notation *                   (* notation *)
+                    (int * parenRelation) list * (* precedence *)
+                    bool;                        (* needs_squash *)
+  }
+
+end
+
 let compute_syntax_data df modifiers =
-  let (assoc,n,etyps,onlyparse,onlyprint,compat,fmt,extra) = interp_modifiers modifiers in
-  let assoc = match assoc with None -> (* default *) Some NonA | a -> a in
+  let open SynData in
+  let open NotationMods in
+  let mods = interp_modifiers modifiers in
+  let assoc = Option.append mods.assoc (Some NonA) in
   let toks = split_notation_string df in
-  let (recvars,mainvars,symbols) = analyze_notation_tokens toks in
-  let _ = check_useless_entry_types recvars mainvars etyps in
+  let recvars,mainvars,symbols = analyze_notation_tokens toks in
+  let _ = check_useless_entry_types recvars mainvars mods.etyps in
+
+  (* Notations for interp and grammar  *)
   let ntn_for_interp = make_notation_key symbols in
   let symbols' = remove_curly_brackets symbols in
-  let need_squash = not (List.equal Notation.symbol_eq symbols symbols') in
   let ntn_for_grammar = make_notation_key symbols' in
   check_rule_productivity symbols';
-  let msgs,n = find_precedence n etyps symbols' in
+
+  (* Misc *)
+  let need_squash = not (List.equal Notation.symbol_eq symbols symbols') in
+  let msgs,n = find_precedence mods.level mods.etyps symbols' in
   let innerlevel = NumLevel 200 in
   let typs =
     find_symbols
@@ -1010,25 +1071,44 @@ let compute_syntax_data df modifiers =
       (NumLevel n,BorderProd(Right,assoc))
       symbols' in
   (* To globalize... *)
-  let etyps = join_auxiliary_recursive_types recvars etyps in
+  let etyps = join_auxiliary_recursive_types recvars mods.etyps in
   let sy_typs = List.map (set_entry_type etyps) typs in
-  let prec = (n,List.map (assoc_of_type n) sy_typs) in
+  let prec = List.map (assoc_of_type n) sy_typs in
   let i_typs = set_internalization_type sy_typs in
-  let sy_data = (n,sy_typs,symbols',fmt) in
-  let sy_fulldata = (i_typs,ntn_for_grammar,prec,need_squash,sy_data) in
+  let sy_data = (sy_typs,symbols') in
+  let sy_fulldata = (ntn_for_grammar,prec,need_squash) in
   let df' = ((Lib.library_dp(),Lib.current_dirpath true),df) in
-  let i_data = (onlyparse,onlyprint,compat,recvars,mainvars,(ntn_for_interp,df')) in
+  let i_data = ntn_for_interp, df' in
+
   (* Return relevant data for interpretation and for parsing/printing *)
-  (msgs,i_data,i_typs,sy_fulldata,extra)
+  { info = i_data;
+
+    only_parsing  = mods.only_parsing;
+    only_printing = mods.only_printing;
+    compat        = mods.compat;
+    format        = mods.format;
+    extra         = mods.extra;
+
+    msgs;
+
+    recvars;
+    mainvars;
+    intern_typs = i_typs;
+
+    level  = n;
+    syntax_data = sy_data;
+    not_data    = sy_fulldata;
+  }
 
 let compute_pure_syntax_data df mods =
-  let (msgs,(onlyparse,onlyprint,_,_,_,_),_,sy_data,extra) = compute_syntax_data df mods in
+  let open SynData in
+  let sd = compute_syntax_data df mods in
   let msgs =
-    if onlyparse then
+    if sd.only_parsing then
       (Feedback.msg_warning ?loc:None,
-      strbrk "The only parsing modifier has no effect in Reserved Notation.")::msgs
-    else msgs in
-  msgs, sy_data, extra, onlyprint
+      strbrk "The only parsing modifier has no effect in Reserved Notation.")::sd.msgs
+    else sd.msgs in
+  { sd with msgs }
 
 (**********************************************************************)
 (* Registration of notations interpretation                            *)
@@ -1091,7 +1171,7 @@ let with_lib_stk_protection f x =
 
 let with_syntax_protection f x =
   with_lib_stk_protection
-    (with_grammar_rule_protection
+    (Pcoq.with_grammar_rule_protection
        (with_notation_protection f)) x
 
 (**********************************************************************)
@@ -1145,10 +1225,10 @@ let recover_notation_syntax rawntn =
 (**********************************************************************)
 (* Main entry point for building parsing and printing rules           *)
 
-let make_pa_rule i_typs (n,typs,symbols,_) ntn onlyprint =
+let make_pa_rule i_typs level (typs,symbols) ntn onlyprint =
   let assoc = recompute_assoc typs in
   let prod = make_production typs symbols in
-  { notgram_level = n;
+  { notgram_level = level;
     notgram_assoc = assoc;
     notgram_notation = ntn;
     notgram_prods = prod;
@@ -1156,21 +1236,23 @@ let make_pa_rule i_typs (n,typs,symbols,_) ntn onlyprint =
     notgram_onlyprinting = onlyprint;
   }
 
-let make_pp_rule (n,typs,symbols,fmt) =
+let make_pp_rule level (typs,symbols) fmt =
   match fmt with
-  | None -> [UnpBox (PpHOVB 0, make_hunks typs symbols n)]
-  | Some fmt -> hunks_of_format (n, List.split typs) (symbols, parse_format fmt)
-
-let make_syntax_rules (i_typs,ntn,prec,need_squash,sy_data) extra onlyprint compat =
-  let pa_rule = make_pa_rule i_typs sy_data ntn onlyprint in
-  let pp_rule = make_pp_rule sy_data in
+  | None -> [UnpBox (PpHOVB 0, make_hunks typs symbols level)]
+  | Some fmt -> hunks_of_format (level, List.split typs) (symbols, parse_format fmt)
+
+(* let make_syntax_rules i_typs (ntn,prec,need_squash) sy_data fmt extra onlyprint compat = *)
+let make_syntax_rules (sd : SynData.syn_data) = let open SynData in
+  let ntn, prec, need_squash = sd.not_data in
+  let pa_rule = make_pa_rule sd.intern_typs sd.level sd.syntax_data ntn sd.only_printing in
+  let pp_rule = make_pp_rule sd.level sd.syntax_data sd.format in
   let sy = {
-    synext_level = prec;
+    synext_level    = (sd.level, prec);
     synext_notation = ntn;
-    synext_notgram = pa_rule;
+    synext_notgram  = pa_rule;
     synext_unparsing = pp_rule;
-    synext_extra = extra;
-    synext_compat = compat;
+    synext_extra  = sd.extra;
+    synext_compat = sd.compat;
   } in
   (* By construction, the rule for "{ _ }" is declared, but we need to
      redeclare it because the file where it is declared needs not be open
@@ -1185,39 +1267,39 @@ let to_map l =
   List.fold_left fold Id.Map.empty l
 
 let add_notation_in_scope local df c mods scope =
-  let (msgs,i_data,i_typs,sy_data,extra) = compute_syntax_data df mods in
+  let open SynData in
+  let sd = compute_syntax_data df mods in
   (* Prepare the interpretation *)
-  let (onlyparse, onlyprint, compat, recvars,mainvars, df') = i_data in
   (* Prepare the parsing and printing rules *)
-  let sy_rules = make_syntax_rules sy_data extra onlyprint compat in
-  let i_vars = make_internalization_vars recvars mainvars i_typs in
+  let sy_rules = make_syntax_rules sd in
+  let i_vars = make_internalization_vars sd.recvars sd.mainvars sd.intern_typs in
   let nenv = {
     ninterp_var_type = to_map i_vars;
-    ninterp_rec_vars = to_map recvars;
+    ninterp_rec_vars = to_map sd.recvars;
   } in
   let (acvars, ac, reversible) = interp_notation_constr nenv c in
-  let interp = make_interpretation_vars recvars acvars in
+  let interp = make_interpretation_vars sd.recvars acvars in
   let map (x, _) = try Some (x, Id.Map.find x interp) with Not_found -> None in
-  let onlyparse = is_not_printable onlyparse (not reversible) ac in
+  let onlyparse = is_not_printable sd.only_parsing (not reversible) ac in
   let notation = {
     notobj_local = local;
     notobj_scope = scope;
     notobj_interp = (List.map_filter map i_vars, ac);
     (** Order is important here! *)
     notobj_onlyparse = onlyparse;
-    notobj_onlyprint = onlyprint;
-    notobj_compat = compat;
-    notobj_notation = df';
+    notobj_onlyprint = sd.only_printing;
+    notobj_compat = sd.compat;
+    notobj_notation = sd.info;
   } in
   (* Ready to change the global state *)
-  Flags.if_verbose (List.iter (fun (f,x) -> f x)) msgs;
+  Flags.if_verbose (List.iter (fun (f,x) -> f x)) sd.msgs;
   Lib.add_anonymous_leaf (inSyntaxExtension (local, sy_rules));
   Lib.add_anonymous_leaf (inNotation notation);
-  df'
+  sd.info
 
 let add_notation_interpretation_core local df ?(impls=empty_internalization_env) c scope onlyparse onlyprint compat =
   let dfs = split_notation_string df in
-  let (recvars,mainvars,symbs) = analyze_notation_tokens dfs in
+  let recvars,mainvars,symbs = analyze_notation_tokens dfs in
   (* Recover types of variables and pa/pp rules; redeclare them if needed *)
   let i_typs, onlyprint = if not (is_numeral symbs) then begin
     let i_typs,sy_rules,onlyprint' = recover_notation_syntax (make_notation_key symbs) in
@@ -1227,8 +1309,8 @@ let add_notation_interpretation_core local df ?(impls=empty_internalization_env)
     i_typs, onlyprint
   end else [], false in
   (* Declare interpretation *)
-  let path = (Lib.library_dp(),Lib.current_dirpath true) in
-  let df' = (make_notation_key symbs,(path,df)) in
+  let path = (Lib.library_dp(), Lib.current_dirpath true) in
+  let df'  = (make_notation_key symbs, (path,df)) in
   let i_vars = make_internalization_vars recvars mainvars i_typs in
   let nenv = {
     ninterp_var_type = to_map i_vars;
@@ -1253,10 +1335,10 @@ let add_notation_interpretation_core local df ?(impls=empty_internalization_env)
 
 (* Notations without interpretation (Reserved Notation) *)
 
-let add_syntax_extension local ((loc,df),mods) =
-  let msgs, sy_data, extra, onlyprint = compute_pure_syntax_data df mods in
-  let sy_rules = make_syntax_rules sy_data extra onlyprint None in
-  Flags.if_verbose (List.iter (fun (f,x) -> f x)) msgs;
+let add_syntax_extension local ((loc,df),mods) = let open SynData in
+  let psd = compute_pure_syntax_data df mods in
+  let sy_rules = make_syntax_rules {psd with compat = None} in
+  Flags.if_verbose (List.iter (fun (f,x) -> f x)) psd.msgs;
   Lib.add_anonymous_leaf (inSyntaxExtension(local,sy_rules))
 
 (* Notations with only interpretation *)
@@ -1385,4 +1467,3 @@ let add_syntactic_definition ident (vars,c) local onlyparse =
     | p -> p
   in
   Syntax_def.declare_syntactic_definition local ident onlyparse (vars,pat)
-
diff --git a/toplevel/metasyntax.mli b/vernac/metasyntax.mli
index 57c120402..57c120402 100644
--- a/toplevel/metasyntax.mli
+++ b/vernac/metasyntax.mli
diff --git a/toplevel/mltop.ml b/vernac/mltop.ml
index 2396cf04a..2396cf04a 100644
--- a/toplevel/mltop.ml
+++ b/vernac/mltop.ml
diff --git a/toplevel/mltop.mli b/vernac/mltop.mli
index 6633cb937..6633cb937 100644
--- a/toplevel/mltop.mli
+++ b/vernac/mltop.mli
diff --git a/toplevel/obligations.ml b/vernac/obligations.ml
index 9ada04317..6f3921903 100644
--- a/toplevel/obligations.ml
+++ b/vernac/obligations.ml
@@ -25,6 +25,8 @@ module NamedDecl = Context.Named.Declaration
 let declare_fix_ref = ref (fun ?opaque _ _ _ _ _ _ -> assert false)
 let declare_definition_ref = ref (fun _ _ _ _ _ -> assert false)
 
+let get_fix_exn, stm_get_fix_exn = Hook.make ()
+
 let succfix (depth, fixrels) =
   (succ depth, List.map succ fixrels)
 
@@ -485,7 +487,7 @@ let declare_definition prg =
   let nf = Universes.nf_evars_and_universes_opt_subst (fun x -> None)
     (Evd.evar_universe_context_subst prg.prg_ctx) in
   let opaque = prg.prg_opaque in
-  let fix_exn = Stm.get_fix_exn () in
+  let fix_exn = Hook.get get_fix_exn () in
   let pl, ctx =
     Evd.universe_context ?names:prg.prg_pl (Evd.from_ctx prg.prg_ctx) in
   let ce =
@@ -566,7 +568,7 @@ let declare_mutual_definition l =
   in
   (* Declare the recursive definitions *)
   let ctx = Evd.evar_context_universe_context first.prg_ctx in
-  let fix_exn = Stm.get_fix_exn () in
+  let fix_exn = Hook.get get_fix_exn () in
   let kns = List.map4 (!declare_fix_ref ~opaque (local, poly, kind) ctx)
     fixnames fixdecls fixtypes fiximps in
     (* Declare notations *)
diff --git a/toplevel/obligations.mli b/vernac/obligations.mli
index 80b689144..11366fe91 100644
--- a/toplevel/obligations.mli
+++ b/vernac/obligations.mli
@@ -24,6 +24,12 @@ val declare_definition_ref :
      Safe_typing.private_constants Entries.definition_entry -> Impargs.manual_implicits
        -> global_reference Lemmas.declaration_hook -> global_reference) ref
 
+(* This is a hack to make it possible for Obligations to craft a Qed
+ * behind the scenes.  The fix_exn the Stm attaches to the Future proof
+ * is not available here, so we provide a side channel to get it *)
+val stm_get_fix_exn : (unit -> Exninfo.iexn -> Exninfo.iexn) Hook.t
+
+
 val check_evars : env -> evar_map -> unit
 
 val evar_dependencies : evar_map -> Evar.t -> Evar.Set.t
diff --git a/toplevel/record.ml b/vernac/record.ml
index 76de9d7ad..b494430c2 100644
--- a/toplevel/record.ml
+++ b/vernac/record.ml
@@ -110,7 +110,8 @@ let typecheck_params_and_fields def id pl t ps nots fs =
       List.iter 
 	(function LocalRawDef (b, _) -> error default_binder_kind b
 	   | LocalRawAssum (ls, bk, ce) -> List.iter (error bk) ls
-           | LocalPattern _ -> assert false) ps
+           | LocalPattern (loc,_,_) ->
+              Loc.raise ~loc (Stream.Error "pattern with quote not allowed in record parameters.")) ps
   in 
   let impls_env, ((env1,newps), imps) = interp_context_evars env0 evars ps in
   let t', template = match t with 
@@ -552,8 +553,10 @@ let definition_structure (kind,poly,finite,(is_coe,((loc,idstruc),pl)),ps,cfs,id
     | Vernacexpr.DefExpr ((_,Name id),_,_) -> id::acc
     | _ -> acc in
   let allnames =  idstruc::(List.fold_left extract_name [] fs) in
-  if not (List.distinct_f Id.compare allnames)
-  then error "Two objects have the same name";
+  let () = match List.duplicates Id.equal allnames with
+  | [] -> ()
+  | id :: _ -> user_err (str "Two objects have the same name" ++ spc () ++ quote (Id.print id))
+  in
   let isnot_class = match kind with Class false -> false | _ -> true in
   if isnot_class && List.exists (fun opt -> not (Option.is_empty opt)) priorities then
     error "Priorities only allowed for type class substructures";
diff --git a/toplevel/record.mli b/vernac/record.mli
index c50e57786..c50e57786 100644
--- a/toplevel/record.mli
+++ b/vernac/record.mli
diff --git a/toplevel/search.ml b/vernac/search.ml
index d319b2419..e1b56b131 100644
--- a/toplevel/search.ml
+++ b/vernac/search.ml
@@ -107,6 +107,72 @@ let generic_search glnumopt fn =
   | Some glnum ->  iter_hypothesis glnum fn);
   iter_declarations fn
 
+(** This module defines a preference on constrs in the form of a
+    [compare] function (preferred constr must be big for this
+    functions, so preferences such as small constr must use a reversed
+    order). This priority will be used to order search results and
+    propose first results which are more likely to be relevant to the
+    query, this is why the type [t] contains the other elements
+    required of a search. *)
+module ConstrPriority = struct
+
+  (* The priority is memoised here. Because of the very localised use
+     of this module, it is not worth it making a convenient interface. *)
+  type t =
+    Globnames.global_reference * Environ.env * Constr.t * priority
+  and priority = int
+
+  module ConstrSet = CSet.Make(Constr)
+
+  (** A measure of the size of a term *)
+  let rec size t =
+    Constr.fold (fun s t -> 1 + s + size t) 0 t
+
+  (** Set of the "symbols" (definitions, inductives, constructors)
+      which appear in a term. *)
+  let rec symbols acc t =
+    let open Constr in
+    match kind t with
+    | Const _ | Ind _ | Construct _ -> ConstrSet.add t acc
+    | _ -> Constr.fold symbols acc t
+
+  (** The number of distinct "symbols" (see {!symbols}) which appear
+      in a term. *)
+  let num_symbols t =
+    ConstrSet.(cardinal (symbols empty t))
+
+  let priority t : priority =
+    -(3*(num_symbols t) + size t)
+
+  let compare (_,_,_,p1) (_,_,_,p2) =
+    compare p1 p2
+end
+
+module PriorityQueue = Heap.Functional(ConstrPriority)
+
+let rec iter_priority_queue q fn =
+  (* use an option to make the function tail recursive. Will be
+     obsoleted with Ocaml 4.02 with the [match … with | exception …]
+     syntax. *)
+  let next = begin
+      try Some (PriorityQueue.maximum q)
+      with Heap.EmptyHeap -> None
+  end in
+  match next with
+  | Some (gref,env,t,_) ->
+    fn gref env t;
+    iter_priority_queue (PriorityQueue.remove q) fn
+  | None -> ()
+
+let prioritize_search seq fn =
+  let acc = ref PriorityQueue.empty in
+  let iter gref env t =
+    let p = ConstrPriority.priority t in
+    acc := PriorityQueue.add (gref,env,t,p) !acc
+  in
+  let () = seq iter in
+  iter_priority_queue !acc fn
+
 (** Filters *)
 
 (** This function tries to see whether the conclusion matches a pattern. *)
diff --git a/toplevel/search.mli b/vernac/search.mli
index ba3d48efc..c9167c485 100644
--- a/toplevel/search.mli
+++ b/vernac/search.mli
@@ -74,3 +74,11 @@ val interface_search : ?glnum:int -> (search_constraint * bool) list ->
 val generic_search : int option -> display_function -> unit
 (** This function iterates over all hypothesis of the goal numbered
     [glnum] (if present) and all known declarations. *)
+
+(** {6 Search function modifiers} *)
+
+val prioritize_search : (display_function -> unit) -> display_function -> unit
+(** [prioritize_search iter] iterates over the values of [iter] (seen
+    as a sequence of declarations), in a relevance order. This requires to
+    perform the entire iteration of [iter] before starting streaming. So
+    [prioritize_search] should not be used for low-latency streaming. *)
diff --git a/vernac/vernac.mllib b/vernac/vernac.mllib
new file mode 100644
index 000000000..94ef54f70
--- /dev/null
+++ b/vernac/vernac.mllib
@@ -0,0 +1,17 @@
+Lemmas
+Himsg
+ExplainErr
+Class
+Locality
+Metasyntax
+Auto_ind_decl
+Search
+Indschemes
+Obligations
+Command
+Classes
+Record
+Assumptions
+Vernacinterp
+Mltop
+Vernacentries
diff --git a/toplevel/vernacentries.ml b/vernac/vernacentries.ml
index 8ce13c69a..3afe04b37 100644
--- a/toplevel/vernacentries.ml
+++ b/vernac/vernacentries.ml
@@ -165,7 +165,7 @@ let show_match id =
 let print_path_entry p =
   let dir = pr_dirpath (Loadpath.logical p) in
   let path = str (Loadpath.physical p) in
-  (dir ++ str " " ++ tbrk (0, 0) ++ path)
+  Pp.hov 2 (dir ++ spc () ++ path)
 
 let print_loadpath dir =
   let l = Loadpath.get_load_paths () in
@@ -175,9 +175,8 @@ let print_loadpath dir =
     let filter p = is_dirpath_prefix_of dir (Loadpath.logical p) in
     List.filter filter l
   in
-  Pp.t (str "Logical Path:                 " ++
-                tab () ++ str "Physical path:" ++ fnl () ++
-                prlist_with_sep fnl print_path_entry l)
+  str "Logical Path / Physical path:" ++ fnl () ++
+    prlist_with_sep fnl print_path_entry l
 
 let print_modules () =
   let opened = Library.opened_libraries ()
@@ -515,14 +514,8 @@ let vernac_start_proof locality p kind l lettop =
 let qed_display_script = ref true
 
 let vernac_end_proof ?proof = function
-  | Admitted -> save_proof ?proof Admitted
-  | Proved (_,_) as e ->
-    if is_verbose () && !qed_display_script && !Flags.coqtop_ui then
-      Stm.show_script ?proof ();
-    save_proof ?proof e
-
-  (* A stupid macro that should be replaced by ``Exact c. Save.'' all along
-     the theories [??] *)
+  | Admitted          -> save_proof ?proof Admitted
+  | Proved (_,_) as e -> save_proof ?proof e
 
 let vernac_exact_proof c =
   (* spiwack: for simplicity I do not enforce that "Proof proof_term" is
@@ -571,10 +564,10 @@ let vernac_inductive poly lo finite indl =
 	| _ -> () (* dumping is done by vernac_record (called below) *) )
       indl;
   match indl with
-  | [ ( _ , _ , _ ,Record, Constructors _ ),_ ] ->
-      CErrors.error "The Record keyword cannot be used to define a variant type. Use Variant instead."
+  | [ ( _ , _ , _ ,(Record|Structure), Constructors _ ),_ ] ->
+      CErrors.error "The Record keyword is for types defined using the syntax { ... }."
   | [ (_ , _ , _ ,Variant, RecordDecl _),_ ] ->
-      CErrors.error "The Variant keyword cannot be used to define a record type. Use Record instead."
+      CErrors.error "The Variant keyword does not support syntax { ... }."
   | [ ( id , bl , c , b, RecordDecl (oc,fs) ), [] ] ->
       vernac_record (match b with Class _ -> Class false | _ -> b)
        poly finite id bl c oc fs
@@ -1787,13 +1780,13 @@ let vernac_search s gopt r =
   in
   match s with
   | SearchPattern c ->
-      Search.search_pattern gopt (get_pattern c) r pr_search
+      (Search.search_pattern gopt (get_pattern c) r |> Search.prioritize_search) pr_search
   | SearchRewrite c ->
-      Search.search_rewrite gopt (get_pattern c) r pr_search
+      (Search.search_rewrite gopt (get_pattern c) r |> Search.prioritize_search) pr_search
   | SearchHead c ->
-      Search.search_by_head gopt (get_pattern c) r pr_search
+      (Search.search_by_head gopt (get_pattern c) r |> Search.prioritize_search) pr_search
   | SearchAbout sl ->
-      Search.search_about gopt (List.map (on_snd (interp_search_about_item env)) sl) r pr_search
+      (Search.search_about gopt (List.map (on_snd (interp_search_about_item env)) sl) r |> Search.prioritize_search) pr_search
 
 let vernac_locate = let open Feedback in function
   | LocateAny (AN qid)  -> msg_notice (print_located_qualid qid)
@@ -1868,6 +1861,7 @@ let vernac_bullet (bullet:Proof_global.Bullet.t) =
     Proof_global.Bullet.put p bullet)
 
 let vernac_show = let open Feedback in function
+  | ShowScript -> assert false  (* Only the stm knows the script *)
   | ShowGoal goalref ->
     let info = match goalref with
       | OpenSubgoals -> pr_open_subgoals ()
@@ -1882,7 +1876,6 @@ let vernac_show = let open Feedback in function
       Constrextern.with_implicits msg_notice (pr_nth_open_subgoal n)
   | ShowProof -> show_proof ()
   | ShowNode -> show_node ()
-  | ShowScript -> Stm.show_script ()
   | ShowExistentials -> show_top_evars ()
   | ShowUniverses -> show_universes ()
   | ShowTree -> show_prooftree ()
@@ -1909,6 +1902,12 @@ let vernac_check_guard () =
 
 exception End_of_input
 
+(* XXX: This won't properly set the proof mode, as of today, it is
+   controlled by the STM. Thus, we would need access information from
+   the classifier. The proper fix is to move it to the STM, however,
+   the way the proof mode is set there makes the task non trivial
+   without a considerable amount of refactoring.
+ *)
 let vernac_load interp fname =
   let interp x =
     let proof_mode = Proof_global.get_default_proof_mode_name () in
@@ -1936,16 +1935,45 @@ let vernac_load interp fname =
 let interp ?proof ~loc locality poly c =
   prerr_endline (fun () -> "interpreting: " ^ Pp.string_of_ppcmds (Ppvernac.pr_vernac c));
   match c with
-  (* Done later in this file *)
+  (* The below vernac are candidates for removal from the main type
+     and to be put into a new doc_command datatype: *)
+
   | VernacLoad _ -> assert false
+
+  (* Done later in this file *)
   | VernacFail _ -> assert false
   | VernacTime _ -> assert false
   | VernacRedirect _ -> assert false
   | VernacTimeout _ -> assert false
   | VernacStm _ -> assert false
 
+  (* The STM should handle that, but LOAD bypasses the STM... *)
+  | VernacAbortAll    -> CErrors.user_err  (str "AbortAll cannot be used through the Load command")
+  | VernacRestart     -> CErrors.user_err  (str "Restart cannot be used through the Load command")
+  | VernacUndo _      -> CErrors.user_err  (str "Undo cannot be used through the Load command")
+  | VernacUndoTo _    -> CErrors.user_err  (str "UndoTo cannot be used through the Load command")
+  | VernacBacktrack _ -> CErrors.user_err  (str "Backtrack cannot be used through the Load command")
+
+  (* Toplevel control *)
+  | VernacToplevelControl e -> raise e
+
+  (* Resetting *)
+  | VernacResetName _  -> anomaly (str "VernacResetName not handled by Stm")
+  | VernacResetInitial -> anomaly (str "VernacResetInitial not handled by Stm")
+  | VernacBack _       -> anomaly (str "VernacBack not handled by Stm")
+  | VernacBackTo _     -> anomaly (str "VernacBackTo not handled by Stm")
+
+  (* Horrible Hack that should die. *)
   | VernacError e -> raise e
 
+  (* This one is possible to handle here *)
+  | VernacAbort id    -> CErrors.user_err  (str "Abort cannot be used through the Load command")
+
+  (* Handled elsewhere *)
+  | VernacProgram _
+  | VernacPolymorphic _
+  | VernacLocal _ -> assert false
+
   (* Syntax *)
   | VernacSyntaxExtension (local,sl) ->
       vernac_syntax_extension locality local sl
@@ -2017,12 +2045,6 @@ let interp ?proof ~loc locality poly c =
   | VernacWriteState s -> vernac_write_state s
   | VernacRestoreState s -> vernac_restore_state s
 
-  (* Resetting *)
-  | VernacResetName _ -> anomaly (str "VernacResetName not handled by Stm")
-  | VernacResetInitial -> anomaly (str "VernacResetInitial not handled by Stm")
-  | VernacBack _ -> anomaly (str "VernacBack not handled by Stm")
-  | VernacBackTo _ -> anomaly (str "VernacBackTo not handled by Stm")
-
   (* Commands *)
   | VernacCreateHintDb (dbname,b) -> vernac_create_hintdb locality dbname b
   | VernacRemoveHints (dbnames,ids) -> vernac_remove_hints locality dbnames ids
@@ -2054,14 +2076,6 @@ let interp ?proof ~loc locality poly c =
   | VernacRegister (id, r) -> vernac_register id r
   | VernacComments l -> if_verbose Feedback.msg_info (str "Comments ok\n")
 
-  (* The STM should handle that, but LOAD bypasses the STM... *)
-  | VernacAbort id -> CErrors.user_err  (str "Abort cannot be used through the Load command")
-  | VernacAbortAll -> CErrors.user_err  (str "AbortAll cannot be used through the Load command")
-  | VernacRestart -> CErrors.user_err  (str "Restart cannot be used through the Load command")
-  | VernacUndo _ -> CErrors.user_err  (str "Undo cannot be used through the Load command")
-  | VernacUndoTo _ -> CErrors.user_err  (str "UndoTo cannot be used through the Load command")
-  | VernacBacktrack _ -> CErrors.user_err  (str "Backtrack cannot be used through the Load command")
-  
   (* Proof management *)
   | VernacGoal t -> vernac_start_proof locality poly Theorem [None,([],t,None)] false
   | VernacFocus n -> vernac_focus n
@@ -2084,17 +2098,10 @@ let interp ?proof ~loc locality poly c =
       Aux_file.record_in_aux_at loc "VernacProof" "tac:yes using:yes";
       vernac_set_end_tac tac; vernac_set_used_variables l
   | VernacProofMode mn -> Proof_global.set_proof_mode mn
-  (* Toplevel control *)
-  | VernacToplevelControl e -> raise e
 
   (* Extensions *)
   | VernacExtend (opn,args) -> Vernacinterp.call ?locality (opn,args)
 
-  (* Handled elsewhere *)
-  | VernacProgram _
-  | VernacPolymorphic _
-  | VernacLocal _ -> assert false
-
 (* Vernaculars that take a locality flag *)
 let check_vernac_supports_locality c l =
   match l, c with
@@ -2253,6 +2260,3 @@ let interp ?(verbosely=true) ?proof (loc,c) =
   in
     if verbosely then Flags.verbosely (aux false) c
     else aux false c
-
-let () = Hook.set Stm.interp_hook interp
-let () = Hook.set Stm.with_fail_hook with_fail
diff --git a/toplevel/vernacentries.mli b/vernac/vernacentries.mli
index 7cdc8dd06..7cdc8dd06 100644
--- a/toplevel/vernacentries.mli
+++ b/vernac/vernacentries.mli
diff --git a/toplevel/vernacinterp.ml b/vernac/vernacinterp.ml
index f26ef460d..f26ef460d 100644
--- a/toplevel/vernacinterp.ml
+++ b/vernac/vernacinterp.ml
diff --git a/toplevel/vernacinterp.mli b/vernac/vernacinterp.mli
index 5149b5416..5149b5416 100644
--- a/toplevel/vernacinterp.mli
+++ b/vernac/vernacinterp.mli