Building on spring (from freebsd) 2024-07-02 17:47.27 ---> using "77d5fe31836124b4684d554707425c4fde23f9ef3df0a804431a47419573778d" from cache /: (user (uid 1000) (gid 1000)) /: (env OPAMPRECISETRACKING 1) /: (env OPAMUTF8 never) /: (env OPAMEXTERNALSOLVER builtin-0install) /: (env OPAMCRITERIA +removed) /: (run (shell "sudo ln -f /usr/local/bin/opam-dev /usr/local/bin/opam")) 2024-07-02 17:47.28 ---> using "a2b22593046b56fadc85e22b0da7b84e903c1f5aa4d42a7c481121ceec28b31f" from cache /: (run (network host) (shell "rm -rf ~/opam-repository && git clone -q 'https://github.com/ocaml/opam-repository' ~/opam-repository && git -C ~/opam-repository checkout -q 175a8ca8b27d9a46ed86ec5d7b1130c98a153055")) 2024-07-02 17:47.29 ---> using "12d681098b105578a67465aa7bc396c5d90e9ce4e3304a8d75f23641353fa26c" from cache /: (run (shell "rm -rf ~/.opam && opam init -ya --bare ~/opam-repository")) No configuration file found, using built-in defaults. Checking for available remotes: rsync and local, git. - you won't be able to use mercurial repositories unless you install the hg command on your system. - you won't be able to use darcs repositories unless you install the darcs command on your system. <><> Fetching repository information ><><><><><><><><><><><><><><><><><><><><><> [default] Initialised User configuration: ~/.profile is already up-to-date. [NOTE] Make sure that ~/.profile is well sourced in your ~/.bashrc. 2024-07-02 17:47.31 ---> using "cd58f29b8c142c1ae36c06cbe6d040fc45053855e85f74d3d710bce30c463662" from cache /: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "opam switch create --repositories=default '4.14.1' 'ocaml-base-compiler.4.14.1'")) <><> Installing new switch packages <><><><><><><><><><><><><><><><><><><><><><> Switch invariant: ["ocaml-base-compiler" {= "4.14.1"}] <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> -> retrieved ocaml-config.2 (cached) -> installed base-bigarray.base -> installed base-threads.base -> installed base-unix.base -> installed host-arch-x86_64.1 -> installed host-system-other.1 -> installed ocaml-options-vanilla.1 -> retrieved ocaml-base-compiler.4.14.1 (cached) -> installed ocaml-base-compiler.4.14.1 -> installed ocaml-config.2 -> installed ocaml.4.14.1 Done. # Run eval $(opam env --switch=4.14.1) to update the current shell environment 2024-07-02 17:47.32 ---> using "7b308b2584dc258233cfb37ad83354a0804ec90976555e191659bff7e597c170" from cache /: (run (network host) (shell "opam update --depexts")) [WARNING] Unknown update command for bsd, skipping system update 2024-07-02 17:47.33 ---> using "3f0c14f5761a225622a6acf1a058a90ab52281bdd9172d3eca06be38cd0468ad" from cache /: (run (cache (opam-archives (target /home/opam/.opam/download-cache))) (network host) (shell "\ \nopam remove -y \"beluga.1.1.1\"\ \nopam install -vy \"beluga.1.1.1\"\ \nres=$?\ \nif [ $res = 31 ]; then\ \n if opam show -f x-ci-accept-failures: \"beluga.1.1.1\" | grep -q '\"freebsd\"'; then\ \n echo \"This package failed and has been disabled for CI using the 'x-ci-accept-failures' field.\"\ \n exit 69\ \n fi\ \nfi\ \n\ \n\ \nexit $res\ \n")) [NOTE] beluga.1.1.1 is not installed. Nothing to do. The following actions will be performed: === install 28 packages - install angstrom 0.16.0 [required by uri] - install beluga 1.1.1 - install bigstringaf 0.9.1 [required by angstrom] - install cppo 1.6.9 [required by extlib] - install csexp 1.5.2 [required by dune-configurator] - install dune 3.16.0 [required by beluga] - install dune-build-info 3.16.0 [required by beluga] - install dune-configurator 3.16.0 [required by bigstringaf] - install extlib 1.7.9 [required by beluga] - install gen 1.1 [required by beluga] - install linenoise 1.5.1 [required by beluga] - install ocaml-compiler-libs v0.12.4 [required by ppxlib] - install ocaml-syntax-shims 1.0.0 [required by angstrom] - install ocamlbuild 0.14.3 [required by uucp] - install ocamlfind 1.9.6 [required by uucp] - install omd 2.0.0~alpha4 [required by beluga] - install ppx_derivers 1.2.1 [required by ppxlib] - install ppxlib 0.32.1 [required by sedlex] - install sedlex 3.2 [required by beluga] - install seq base [required by gen] - install sexplib0 v0.17.0 [required by ppxlib] - install stdlib-shims 0.3.0 [required by ppxlib] - install stringext 1.6.0 [required by uri] - install topkg 1.0.7 [required by uucp] - install uri 4.4.0 [required by beluga] - install uucp 15.1.0 [required by omd] - install uunf 15.1.0 [required by omd] - install uutf 1.0.3 [required by omd] <><> Processing actions <><><><><><><><><><><><><><><><><><><><><><><><><><><><> Processing 1/82: [angstrom.0.16.0: extract] Processing 2/82: [angstrom.0.16.0: extract] [beluga.1.1.1: http] Processing 3/82: [angstrom.0.16.0: extract] [beluga.1.1.1: http] [bigstringaf.0.9.1: extract] -> retrieved angstrom.0.16.0 (cached) Processing 3/82: [beluga.1.1.1: http] [bigstringaf.0.9.1: extract] Processing 4/82: [beluga.1.1.1: http] [bigstringaf.0.9.1: extract] [cppo.1.6.9: extract] -> retrieved bigstringaf.0.9.1 (cached) Processing 4/82: [beluga.1.1.1: http] [cppo.1.6.9: extract] Processing 5/82: [beluga.1.1.1: http] [cppo.1.6.9: extract] [csexp.1.5.2: extract] -> retrieved cppo.1.6.9 (cached) Processing 5/82: [beluga.1.1.1: http] [csexp.1.5.2: extract] Processing 6/82: [beluga.1.1.1: http] [csexp.1.5.2: extract] [dune.3.16.0 + 2 others: extract] -> retrieved csexp.1.5.2 (cached) Processing 6/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] Processing 7/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] [extlib.1.7.9: extract] -> retrieved extlib.1.7.9 (cached) Processing 7/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] Processing 8/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] [gen.1.1: extract] -> retrieved gen.1.1 (cached) Processing 8/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] Processing 9/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] [linenoise.1.5.1: extract] -> retrieved linenoise.1.5.1 (cached) Processing 9/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] Processing 10/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] [ocaml-compiler-libs.v0.12.4: extract] -> retrieved ocaml-compiler-libs.v0.12.4 (cached) Processing 10/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] Processing 11/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] [ocaml-syntax-shims.1.0.0: extract] -> retrieved ocaml-syntax-shims.1.0.0 (cached) Processing 11/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] Processing 12/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] [ocamlbuild.0.14.3: extract] -> retrieved ocamlbuild.0.14.3 (cached) Processing 12/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] Processing 13/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] [ocamlfind.1.9.6: extract] Processing 14/82: [beluga.1.1.1: http] [dune.3.16.0 + 2 others: extract] [ocamlfind.1.9.6: extract] [ocamlbuild: gmake configure.make] Processing 14/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [ocamlfind.1.9.6: extract] [ocamlbuild: gmake configure.make] -> retrieved ocamlfind.1.9.6 (cached) Processing 14/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [ocamlbuild: gmake configure.make] Processing 15/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [omd.2.0.0~alpha4: extract] [ocamlbuild: gmake configure.make] [ocamlfind: patch] applying 0001-Harden-test-for-OCaml-5.patch Processing 16/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [omd.2.0.0~alpha4: extract] [ocamlbuild: gmake configure.make] [ocamlfind: patch] -> retrieved omd.2.0.0~alpha4 (cached) Processing 16/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [ocamlbuild: gmake configure.make] [ocamlfind: patch] Processing 17/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [ppx_derivers.1.2.1: extract] [ocamlbuild: gmake configure.make] [ocamlfind: patch] Processing 17/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [ppx_derivers.1.2.1: extract] [ocamlbuild: gmake configure.make] [ocamlfind: ./configure] -> retrieved ppx_derivers.1.2.1 (cached) Processing 17/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [ocamlbuild: gmake configure.make] [ocamlfind: ./configure] Processing 18/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [ppxlib.0.32.1: extract] [ocamlbuild: gmake configure.make] [ocamlfind: ./configure] + /usr/local/bin/gmake "-f" "configure.make" "all" "OCAMLBUILD_PREFIX=/home/opam/.opam/4.14.1" "OCAMLBUILD_BINDIR=/home/opam/.opam/4.14.1/bin" "OCAMLBUILD_LIBDIR=/home/opam/.opam/4.14.1/lib" "OCAMLBUILD_MANDIR=/home/opam/.opam/4.14.1/man" "OCAML_NATIVE=true" "OCAML_NATIVE_TOOLS=true" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3) - (echo "# This file was generated from configure.make"; \ - echo ;\ - echo "OCAML_PREFIX="; \ - echo "OCAML_BINDIR=/home/opam/.opam/4.14.1/bin"; \ - echo "OCAML_LIBDIR=/home/opam/.opam/4.14.1/lib/ocaml"; \ - echo "OCAML_MANDIR=/home/opam/.opam/4.14.1/man"; \ - echo ;\ - echo "EXT_OBJ=.o"; \ - echo "EXT_ASM=.s"; \ - echo "EXT_LIB=.a"; \ - echo "EXT_DLL=.so"; \ - echo "EXE="; \ - echo ;\ - echo "OCAML_NATIVE=true"; \ - echo "OCAML_NATIVE_TOOLS=true"; \ - echo "NATDYNLINK=true"; \ - echo "SUPPORT_SHARED_LIBRARIES=true"; \ - echo ;\ - echo "PREFIX=/home/opam/.opam/4.14.1"; \ - echo "BINDIR=/home/opam/.opam/4.14.1/bin"; \ - echo "LIBDIR=/home/opam/.opam/4.14.1/lib"; \ - echo "MANDIR=/home/opam/.opam/4.14.1/man"; \ - ) > Makefile.config - (echo "(* This file was generated from ../configure.make *)"; \ - echo ;\ - echo 'let bindir = "/home/opam/.opam/4.14.1/bin"'; \ - echo 'let libdir = "/home/opam/.opam/4.14.1/lib"'; \ - echo 'let ocaml_libdir = "/home/opam/.opam/4.14.1/lib/ocaml"'; \ - echo 'let libdir_abs = "/home/opam/.opam/4.14.1/lib"'; \ - echo 'let ocaml_native = true'; \ - echo 'let ocaml_native_tools = true'; \ - echo 'let supports_shared_libraries = true';\ - echo 'let a = "a"'; \ - echo 'let o = "o"'; \ - echo 'let so = "so"'; \ - echo 'let ext_dll = ".so"'; \ - echo 'let exe = ""'; \ - echo 'let version = "0.14.3"'; \ - ) > src/ocamlbuild_config.ml Processing 18/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [ppxlib.0.32.1: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] -> retrieved ppxlib.0.32.1 (cached) Processing 18/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] Processing 19/82: [beluga.1.1.1: extract] [dune.3.16.0 + 2 others: extract] [sedlex.3.2: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] -> retrieved beluga.1.1.1 (https://github.com/Beluga-lang/Beluga/releases/download/v1.1.1/beluga-1.1.1.tbz) Processing 19/82: [dune.3.16.0 + 2 others: extract] [sedlex.3.2: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] -> retrieved seq.base (cached) Processing 20/82: [dune.3.16.0 + 2 others: extract] [sedlex.3.2: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] Processing 21/82: [dune.3.16.0 + 2 others: extract] [sedlex.3.2: extract] [sexplib0.v0.17.0: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] Processing 22/82: [dune.3.16.0 + 2 others: extract] [sedlex.3.2: extract] [sexplib0.v0.17.0: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] -> installed seq.base Processing 23/82: [dune.3.16.0 + 2 others: extract] [sedlex.3.2: extract] [sexplib0.v0.17.0: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] -> retrieved sexplib0.v0.17.0 (cached) Processing 23/82: [dune.3.16.0 + 2 others: extract] [sedlex.3.2: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] Processing 24/82: [dune.3.16.0 + 2 others: extract] [sedlex.3.2: extract] [stdlib-shims.0.3.0: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] -> retrieved sedlex.3.2 (cached) Processing 24/82: [dune.3.16.0 + 2 others: extract] [stdlib-shims.0.3.0: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] Processing 25/82: [dune.3.16.0 + 2 others: extract] [stdlib-shims.0.3.0: extract] [stringext.1.6.0: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: ./configure] + /home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6/./configure "-bindir" "/home/opam/.opam/4.14.1/bin" "-sitelib" "/home/opam/.opam/4.14.1/lib" "-mandir" "/home/opam/.opam/4.14.1/man" "-config" "/home/opam/.opam/4.14.1/lib/findlib.conf" "-no-custom" "-no-camlp4" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6) - Welcome to findlib version 1.9.6 - Configuring core... - Checking for #remove_directory... - Testing threading model... - systhread_supported: true - Testing DLLs... - Testing whether ppxopt can be supported... - Checking for ocamlc -opaque... - Checking for ocamlopt -g... - Querying installation: META list not found - make install will double-check installed META files - Configuring libraries... - unix: found - dynlink: found - bigarray: found - compiler-libs: found - dbm: not present (normal since 4.00) - graphics: not present (normal since 4.09) - num: not present (normal since 4.06) - ocamlbuild: not present (normal since 4.03) - ocamldoc: found (in +ocamldoc) - raw_spacetime: not present (normal since 4.12) - threads: found (in +threads) - str: found - labltk: not present (normal since 4.02) - native dynlink: found - camlp4: disabled - bytes: found, installing fake library - Configuration for stdlib written to site-lib-src/stdlib/META - Configuration for unix written to site-lib-src/unix/META - Configuration for dynlink written to site-lib-src/dynlink/META - Configuration for bigarray written to site-lib-src/bigarray/META - Configuration for compiler-libs written to site-lib-src/compiler-libs/META - Configuration for ocamldoc written to site-lib-src/ocamldoc/META - Configuration for threads written to site-lib-src/threads/META - Configuration for str written to site-lib-src/str/META - Configuration for bytes written to site-lib-src/bytes/META - Detecting compiler arguments: (extractor built) ok - - About the OCAML core installation: - Standard library: /home/opam/.opam/4.14.1/lib/ocaml - Binaries: /home/opam/.opam/4.14.1/bin - Manual pages: /home/opam/.opam/4.14.1/man - Multi-threading type: posix - The directory of site-specific packages will be - site-lib: /home/opam/.opam/4.14.1/lib - The configuration file is written to: - findlib config file: /home/opam/.opam/4.14.1/lib/findlib.conf - Software will be installed: - Libraries: in <site-lib>/findlib - Binaries: /home/opam/.opam/4.14.1/bin - Manual pages: /home/opam/.opam/4.14.1/man - topfind script: /home/opam/.opam/4.14.1/lib/ocaml - Topfind ppxopt support: yes - Toolbox: no - Link custom runtime: no - Need bytes compatibility: no - - Configuration has been written to Makefile.config - - You can now do 'make all', and optionally 'make opt', to build ocamlfind. Processing 25/82: [dune.3.16.0 + 2 others: extract] [stdlib-shims.0.3.0: extract] [stringext.1.6.0: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] -> retrieved stringext.1.6.0 (cached) Processing 25/82: [dune.3.16.0 + 2 others: extract] [stdlib-shims.0.3.0: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] Processing 26/82: [dune.3.16.0 + 2 others: extract] [stdlib-shims.0.3.0: extract] [topkg.1.0.7: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] -> retrieved stdlib-shims.0.3.0 (cached) Processing 26/82: [dune.3.16.0 + 2 others: extract] [topkg.1.0.7: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] Processing 27/82: [dune.3.16.0 + 2 others: extract] [topkg.1.0.7: extract] [uri.4.4.0: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] -> retrieved dune.3.16.0, dune-build-info.3.16.0, dune-configurator.3.16.0 (cached) Processing 27/82: [topkg.1.0.7: extract] [uri.4.4.0: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] Processing 28/82: [topkg.1.0.7: extract] [uri.4.4.0: extract] [uucp.15.1.0: extract] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] Processing 29/82: [topkg.1.0.7: extract] [uri.4.4.0: extract] [uucp.15.1.0: extract] [dune: ocaml 7] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] -> retrieved uucp.15.1.0 (cached) Processing 29/82: [topkg.1.0.7: extract] [uri.4.4.0: extract] [dune: ocaml 7] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] Processing 30/82: [topkg.1.0.7: extract] [uri.4.4.0: extract] [uunf.15.1.0: extract] [dune: ocaml 7] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] -> retrieved uri.4.4.0 (cached) Processing 30/82: [topkg.1.0.7: extract] [uunf.15.1.0: extract] [dune: ocaml 7] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] Processing 31/82: [topkg.1.0.7: extract] [uunf.15.1.0: extract] [uutf.1.0.3: extract] [dune: ocaml 7] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] -> retrieved topkg.1.0.7 (cached) Processing 31/82: [uunf.15.1.0: extract] [uutf.1.0.3: extract] [dune: ocaml 7] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] -> retrieved uunf.15.1.0 (cached) Processing 31/82: [uutf.1.0.3: extract] [dune: ocaml 7] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake all] + /usr/local/bin/gmake "all" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6) - for p in findlib; do ( cd src/$p; /usr/local/bin/gmake all ) || exit; done - gmake[1]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6/src/findlib' - ocamllex fl_meta.mll - 22 states, 392 transitions, table size 1700 bytes - USE_CYGPATH="0"; \ - export USE_CYGPATH; \ - cat findlib_config.mlp | \ - ../../tools/patch '@CONFIGFILE@' '/home/opam/.opam/4.14.1/lib/findlib.conf' | \ - ../../tools/patch '@STDLIB@' '/home/opam/.opam/4.14.1/lib/ocaml' | \ - sed -e 's;@AUTOLINK@;true;g' \ - -e 's;@SYSTEM@;freebsd;g' \ - >findlib_config.ml - if [ "true" = "true" ]; then \ - cp topfind.ml.in topfind.ml; \ - else \ - sed -e '/PPXOPT_BEGIN/,/PPXOPT_END/ d' topfind.ml.in \ - > topfind.ml ; \ - fi - ocamldep *.ml *.mli >depend - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c findlib_config.ml - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_split.ml - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_metatoken.ml - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_meta.ml - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c fl_metascanner.mli - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_metascanner.ml - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c fl_topo.mli - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_topo.ml - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c fl_package_base.mli - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_package_base.ml - File "fl_package_base.ml", line 304, characters 22-40: - 304 | let pkg_ancestors = query_requirements predlist pkg in - ^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - File "fl_package_base.ml", line 350, characters 18-36: - 350 | let ancestors = query_requirements predlist package_name in - ^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - File "fl_package_base.ml", line 375, characters 23-41: - 375 | let pkg_ancestors = query_requirements predlist pkg in - ^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - File "fl_package_base.ml", line 510, characters 16-35: - 510 | ( let c = package_definitions search_path pkg.package_name in - ^^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label search_path was omitted in the application of this function. - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c findlib.mli - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c findlib.ml - File "findlib.ml", line 390, characters 2-26: - 390 | Fl_package_base.requires predlist pkg - ^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - File "findlib.ml", line 396, characters 2-33: - 396 | Fl_package_base.requires_deeply predlist pkglist - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_args.ml - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_lint.ml - ocamlc -I +compiler-libs -a -o findlib.cma findlib_config.cmo fl_split.cmo fl_metatoken.cmo fl_meta.cmo fl_metascanner.cmo fl_topo.cmo fl_package_base.cmo findlib.cmo fl_args.cmo fl_lint.cmo - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c ocaml_args.ml - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c frontend.ml - File "frontend.ml", line 859, characters 10-39: - 859 | Fl_package_base.package_users predicates1 packages1 - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - ocamlc -I +compiler-libs -o ocamlfind -g findlib.cma unix.cma \ - -I +unix -I +dynlink ocaml_args.cmo frontend.cmo - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c topfind.mli - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c topfind.ml - File "topfind.ml", line 128, characters 40-63: - 128 | match Hashtbl.find Toploop.directive_table "ppx" with - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 258, characters 4-27: - 258 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 268, characters 4-27: - 268 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 280, characters 4-27: - 280 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 293, characters 4-27: - 293 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 307, characters 4-27: - 307 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 319, characters 4-27: - 319 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - ocamlc -I +compiler-libs -a -o findlib_top.cma topfind.cmo - USE_CYGPATH="0"; \ - export USE_CYGPATH; \ - cat topfind_rd1.p | \ - ../../tools/patch '@SITELIB@' '/home/opam/.opam/4.14.1/lib' \ - >topfind - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -c fl_dynload.mli - ocamlc -I +compiler-libs -opaque -I +unix -I +dynlink -g -c fl_dynload.ml - ocamlc -I +compiler-libs -a -o findlib_dynload.cma fl_dynload.cmo - gmake[1]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6/src/findlib' - /usr/local/bin/gmake all-config - gmake[1]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6' - USE_CYGPATH="0"; \ - export USE_CYGPATH; \ - cat findlib.conf.in | \ - tools/patch '@SITELIB@' '/home/opam/.opam/4.14.1/lib' | \ - tools/patch '@FINDLIB_PATH@' '/home/opam/.opam/4.14.1/lib' -p >findlib.conf - if ./tools/cmd_from_same_dir ocamlc; then \ - echo 'ocamlc="ocamlc.opt"' >>findlib.conf; \ - fi - if ./tools/cmd_from_same_dir ocamlopt; then \ - echo 'ocamlopt="ocamlopt.opt"' >>findlib.conf; \ - fi - if ./tools/cmd_from_same_dir ocamldep; then \ - echo 'ocamldep="ocamldep.opt"' >>findlib.conf; \ - fi - if ./tools/cmd_from_same_dir ocamldoc; then \ - echo 'ocamldoc="ocamldoc.opt"' >>findlib.conf; \ - fi - gmake[1]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6' Processing 31/82: [uutf.1.0.3: extract] [dune: ocaml 7] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake opt] -> retrieved uutf.1.0.3 (cached) Processing 31/82: [dune: ocaml 7] [ocamlbuild: gmake check-if-preinstalled] [ocamlfind: gmake opt] + /usr/local/bin/gmake "check-if-preinstalled" "all" "opam-install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3) - if test -d /home/opam/.opam/4.14.1/lib/ocaml/ocamlbuild; then\ - >&2 echo "ERROR: Preinstalled ocamlbuild detected at"\ - "/home/opam/.opam/4.14.1/lib/ocaml/ocamlbuild";\ - >&2 echo "Installation aborted; if you want to bypass this"\ - "safety check, pass CHECK_IF_PREINSTALLED=false to make";\ - exit 2;\ - fi - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/const.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/loc.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/loc.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/discard_printf.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/discard_printf.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/signatures.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/my_std.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/my_std.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/my_unix.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/my_unix.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/tags.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/tags.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/display.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/display.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/log.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/log.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/shell.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/shell.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/bool.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/bool.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/glob_ast.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/glob_ast.ml - ocamllex.opt src/glob_lexer.mll - 55 states, 419 transitions, table size 2006 bytes - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/glob_lexer.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/glob_lexer.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/glob.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/glob.ml - ocamllex.opt src/lexers.mll - 251 states, 1051 transitions, table size 5710 bytes - 4334 additional bytes used for bindings - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/lexers.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/lexers.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/param_tags.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/param_tags.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/command.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/command.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocamlbuild_config.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocamlbuild_where.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocamlbuild_where.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/slurp.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/slurp.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/options.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/options.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/pathname.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/pathname.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/configuration.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/configuration.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/flags.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/flags.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/hygiene.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/hygiene.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/digest_cache.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/digest_cache.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/resource.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/resource.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/rule.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/rule.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/solver.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/solver.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/report.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/report.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/tools.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/tools.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/fda.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/fda.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/findlib.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/findlib.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_arch.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_arch.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_utils.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_utils.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_dependencies.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_dependencies.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_compiler.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_compiler.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_tools.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_tools.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_specific.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_specific.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/exit_codes.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/exit_codes.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/plugin.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/plugin.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/hooks.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/hooks.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/main.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/main.ml - mkdir -p tmp - ocamlc.opt -pack src/const.cmo src/loc.cmo src/discard_printf.cmo src/signatures.cmi src/my_std.cmo src/my_unix.cmo src/tags.cmo src/display.cmo src/log.cmo src/shell.cmo src/bool.cmo src/glob_ast.cmo src/glob_lexer.cmo src/glob.cmo src/lexers.cmo src/param_tags.cmo src/command.cmo src/ocamlbuild_config.cmo src/ocamlbuild_where.cmo src/slurp.cmo src/options.cmo src/pathname.cmo src/configuration.cmo src/flags.cmo src/hygiene.cmo src/digest_cache.cmo src/resource.cmo src/rule.cmo src/solver.cmo src/report.cmo src/tools.cmo src/fda.cmo src/findlib.cmo src/ocaml_arch.cmo src/ocaml_utils.cmo src/ocaml_dependencies.cmo src/ocaml_compiler.cmo src/ocaml_tools.cmo src/ocaml_specific.cmo src/exit_codes.cmo src/plugin.cmo src/hooks.cmo src/main.cmo -o tmp/ocamlbuild_pack.cmo - mv tmp/ocamlbuild_pack.cmi src/ocamlbuild_pack.cmi - mv tmp/ocamlbuild_pack.cmo src/ocamlbuild_pack.cmo - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c plugin-lib/ocamlbuild_plugin.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c plugin-lib/ocamlbuild_plugin.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c plugin-lib/ocamlbuild_executor.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c plugin-lib/ocamlbuild_executor.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c plugin-lib/ocamlbuild_unix_plugin.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c plugin-lib/ocamlbuild_unix_plugin.ml - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c bin/ocamlbuild.mli - ocamlc.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c bin/ocamlbuild.ml - ocamlc.opt -I +unix -I src -o ocamlbuild.byte unix.cma src/ocamlbuild_pack.cmo plugin-lib/ocamlbuild_plugin.cmo plugin-lib/ocamlbuild_executor.cmo plugin-lib/ocamlbuild_unix_plugin.cmo bin/ocamlbuild.cmo - ocamlc.opt -a -o plugin-lib/ocamlbuildlib.cma src/ocamlbuild_pack.cmo plugin-lib/ocamlbuild_plugin.cmo plugin-lib/ocamlbuild_executor.cmo plugin-lib/ocamlbuild_unix_plugin.cmo - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/const.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/loc.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/discard_printf.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/my_std.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/my_unix.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/tags.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/display.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/log.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/shell.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/bool.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/glob_ast.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/glob_lexer.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/glob.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/lexers.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/param_tags.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/command.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocamlbuild_config.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocamlbuild_where.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/slurp.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/options.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/pathname.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/configuration.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/flags.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/hygiene.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/digest_cache.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/resource.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/rule.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/solver.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/report.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/tools.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/fda.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/findlib.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_arch.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_utils.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_dependencies.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_compiler.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_tools.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/ocaml_specific.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/exit_codes.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/plugin.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/hooks.ml - ocamlopt.opt -for-pack Ocamlbuild_pack -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c src/main.ml - mkdir -p tmp - ocamlopt.opt -pack src/const.cmx src/loc.cmx src/discard_printf.cmx src/signatures.cmi src/my_std.cmx src/my_unix.cmx src/tags.cmx src/display.cmx src/log.cmx src/shell.cmx src/bool.cmx src/glob_ast.cmx src/glob_lexer.cmx src/glob.cmx src/lexers.cmx src/param_tags.cmx src/command.cmx src/ocamlbuild_config.cmx src/ocamlbuild_where.cmx src/slurp.cmx src/options.cmx src/pathname.cmx src/configuration.cmx src/flags.cmx src/hygiene.cmx src/digest_cache.cmx src/resource.cmx src/rule.cmx src/solver.cmx src/report.cmx src/tools.cmx src/fda.cmx src/findlib.cmx src/ocaml_arch.cmx src/ocaml_utils.cmx src/ocaml_dependencies.cmx src/ocaml_compiler.cmx src/ocaml_tools.cmx src/ocaml_specific.cmx src/exit_codes.cmx src/plugin.cmx src/hooks.cmx src/main.cmx -o tmp/ocamlbuild_pack.cmx - mv tmp/ocamlbuild_pack.cmx src/ocamlbuild_pack.cmx - mv tmp/ocamlbuild_pack.o src/ocamlbuild_pack.o - ocamlopt.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c plugin-lib/ocamlbuild_plugin.ml - ocamlopt.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c plugin-lib/ocamlbuild_executor.ml - ocamlopt.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c plugin-lib/ocamlbuild_unix_plugin.ml - ocamlopt.opt -w +L -w +R -w +Z -I src -I plugin-lib -I bin -I +unix -safe-string -bin-annot -strict-sequence -c bin/ocamlbuild.ml - ocamlopt.opt -I +unix -I src -o ocamlbuild.native unix.cmxa src/ocamlbuild_pack.cmx plugin-lib/ocamlbuild_plugin.cmx plugin-lib/ocamlbuild_executor.cmx plugin-lib/ocamlbuild_unix_plugin.cmx bin/ocamlbuild.cmx - ocamlopt.opt -a -o plugin-lib/ocamlbuildlib.cmxa src/ocamlbuild_pack.cmx plugin-lib/ocamlbuild_plugin.cmx plugin-lib/ocamlbuild_executor.cmx plugin-lib/ocamlbuild_unix_plugin.cmx - ocamlc.opt src/ocamlbuild_pack.cmo -I src man/options_man.ml -o man/options_man.byte - ./man/options_man.byte > man/ocamlbuild.options.1 - cat man/ocamlbuild.header.1 man/ocamlbuild.options.1 man/ocamlbuild.footer.1 > man/ocamlbuild.1 - /usr/local/bin/gmake ocamlbuild.install - gmake[1]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - rm -f ocamlbuild.install - touch ocamlbuild.install - /usr/local/bin/gmake install-bin-opam - gmake[2]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - echo 'bin: [' >> ocamlbuild.install - echo ' "ocamlbuild.byte" {"ocamlbuild.byte"}' >> ocamlbuild.install - echo ' "ocamlbuild.native" {"ocamlbuild.native"}' >> ocamlbuild.install - echo ' "ocamlbuild.native" {"ocamlbuild"}' >> ocamlbuild.install - echo ']' >> ocamlbuild.install - echo >> ocamlbuild.install - gmake[2]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - /usr/local/bin/gmake install-lib-opam - gmake[2]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - echo 'lib: [' >> ocamlbuild.install - /usr/local/bin/gmake install-lib-basics-opam - gmake[3]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - echo ' "ocamlbuild.opam" {"opam"}' >> ocamlbuild.install - echo ' "META"' >> ocamlbuild.install - for lib in src/signatures.mli src/signatures.cmi src/signatures.cmti; do \ - echo " \"$lib\" {\"$(basename $lib)\"}" >> ocamlbuild.install; \ - done - gmake[3]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - /usr/local/bin/gmake install-lib-byte-opam - gmake[3]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - for lib in plugin-lib/ocamlbuildlib.cma bin/ocamlbuild.cmo src/ocamlbuild_pack.cmi plugin-lib/ocamlbuild_plugin.cmi plugin-lib/ocamlbuild_executor.cmi plugin-lib/ocamlbuild_unix_plugin.cmi; do \ - echo " \"$lib\" {\"$(basename $lib)\"}" >> ocamlbuild.install; \ - done - gmake[3]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - /usr/local/bin/gmake install-lib-native-opam - gmake[3]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - for lib in plugin-lib/ocamlbuildlib.cmxa plugin-lib/ocamlbuildlib.a bin/ocamlbuild.cmx bin/ocamlbuild.o src/ocamlbuild_pack.cmx plugin-lib/ocamlbuild_plugin.cmx plugin-lib/ocamlbuild_executor.cmx plugin-lib/ocamlbuild_unix_plugin.cmx plugin-lib/ocamlbuild_plugin.o plugin-lib/ocamlbuild_executor.o plugin-lib/ocamlbuild_unix_plugin.o; do \ - echo " \"$lib\" {\"$(basename $lib)\"}" >> ocamlbuild.install; \ - done - gmake[3]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - echo ']' >> ocamlbuild.install - echo >> ocamlbuild.install - gmake[2]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - /usr/local/bin/gmake install-man-opam - gmake[2]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - echo 'man: [' >> ocamlbuild.install - echo ' "man/ocamlbuild.1" {"man1/ocamlbuild.1"}' >> ocamlbuild.install - echo ']' >> ocamlbuild.install - echo >> ocamlbuild.install - gmake[2]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - /usr/local/bin/gmake install-doc-opam - gmake[2]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - echo 'doc: [' >> ocamlbuild.install - echo ' "LICENSE"' >> ocamlbuild.install - echo ' "Changes"' >> ocamlbuild.install - echo ' "Readme.md"' >> ocamlbuild.install - echo ']' >> ocamlbuild.install - gmake[2]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' - gmake[1]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlbuild.0.14.3' -> compiled ocamlbuild.0.14.3 Processing 31/82: [dune: ocaml 7] [ocamlfind: gmake opt] -> installed ocamlbuild.0.14.3 Processing 32/82: [dune: ocaml 7] [ocamlfind: gmake opt] + /usr/local/bin/gmake "opt" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6) - for p in findlib; do ( cd src/$p; /usr/local/bin/gmake opt ) || exit; done - gmake[1]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6/src/findlib' - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c findlib_config.ml - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_split.ml - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_metatoken.ml - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_meta.ml - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_metascanner.ml - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_topo.ml - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_package_base.ml - File "fl_package_base.ml", line 304, characters 22-40: - 304 | let pkg_ancestors = query_requirements predlist pkg in - ^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - File "fl_package_base.ml", line 350, characters 18-36: - 350 | let ancestors = query_requirements predlist package_name in - ^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - File "fl_package_base.ml", line 375, characters 23-41: - 375 | let pkg_ancestors = query_requirements predlist pkg in - ^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - File "fl_package_base.ml", line 510, characters 16-35: - 510 | ( let c = package_definitions search_path pkg.package_name in - ^^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label search_path was omitted in the application of this function. - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c findlib.ml - File "findlib.ml", line 390, characters 2-26: - 390 | Fl_package_base.requires predlist pkg - ^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - File "findlib.ml", line 396, characters 2-33: - 396 | Fl_package_base.requires_deeply predlist pkglist - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_args.ml - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_lint.ml - ocamlopt -I +compiler-libs -g -a -o findlib.cmxa findlib_config.cmx fl_split.cmx fl_metatoken.cmx fl_meta.cmx fl_metascanner.cmx fl_topo.cmx fl_package_base.cmx findlib.cmx fl_args.cmx fl_lint.cmx - if [ 1 -gt 0 ]; then \ - ocamlopt -I +compiler-libs -g -shared -o findlib.cmxs findlib_config.cmx fl_split.cmx fl_metatoken.cmx fl_meta.cmx fl_metascanner.cmx fl_topo.cmx fl_package_base.cmx findlib.cmx fl_args.cmx fl_lint.cmx; \ - fi - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c ocaml_args.ml - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c frontend.ml - File "frontend.ml", line 859, characters 10-39: - 859 | Fl_package_base.package_users predicates1 packages1 - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 6 [labels-omitted]: label preds was omitted in the application of this function. - ocamlopt -I +compiler-libs -g -o ocamlfind_opt findlib.cmxa unix.cmxa \ - -I +unix -I +dynlink ocaml_args.cmx frontend.cmx - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c topfind.ml - File "topfind.ml", line 128, characters 40-63: - 128 | match Hashtbl.find Toploop.directive_table "ppx" with - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 258, characters 4-27: - 258 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 268, characters 4-27: - 268 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 280, characters 4-27: - 280 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 293, characters 4-27: - 293 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 307, characters 4-27: - 307 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - File "topfind.ml", line 319, characters 4-27: - 319 | Toploop.directive_table - ^^^^^^^^^^^^^^^^^^^^^^^ - Alert deprecated: Toploop.directive_table - ocamlopt -I +compiler-libs -g -a -o findlib_top.cmxa topfind.cmx - if [ 1 -gt 0 ]; then \ - ocamlopt -I +compiler-libs -g -shared -o findlib_top.cmxs topfind.cmx; \ - fi - ocamlopt -I +compiler-libs -g -opaque -I +unix -I +dynlink -c fl_dynload.ml - ocamlopt -I +compiler-libs -g -a -o findlib_dynload.cmxa fl_dynload.cmx - if [ 1 -gt 0 ]; then \ - ocamlopt -I +compiler-libs -g -shared -o findlib_dynload.cmxs fl_dynload.cmx; \ - fi - gmake[1]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6/src/findlib' -> compiled ocamlfind.1.9.6 Processing 32/82: [dune: ocaml 7] Processing 33/82: [dune: ocaml 7] [ocamlfind: gmake install] + /usr/local/bin/gmake "install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6) - if [ "1" -eq 1 ]; then \ - for x in camlp4 dbm graphics labltk num ocamlbuild; do \ - if [ -f "/home/opam/.opam/4.14.1/lib/$x/META" ]; then \ - if ! grep -Fq '[distributed with Ocaml]' "//home/opam/.opam/4.14.1/lib/$x/META"; then \ - rm -f site-lib-src/$x/META; \ - fi; \ - fi; \ - done; \ - test -f "site-lib-src/num/META" || rm -f "site-lib-src/num-top/META"; \ - fi - echo 'SITELIB_META =' > Makefile.packages.in - for x in `ls site-lib-src`; do test ! -f "site-lib-src/$x/META" || echo $x >> Makefile.packages.in; done - tr '\n' ' ' < Makefile.packages.in > Makefile.packages - rm Makefile.packages.in - install -d "/home/opam/.opam/4.14.1/bin" - install -d "/home/opam/.opam/4.14.1/man" - /usr/local/bin/gmake install-config - gmake[1]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6' - install -d "`dirname \"/home/opam/.opam/4.14.1/lib/findlib.conf\"`" - test -f "/home/opam/.opam/4.14.1/lib/findlib.conf" || install -c findlib.conf "/home/opam/.opam/4.14.1/lib/findlib.conf" - gmake[1]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6' - for p in findlib; do ( cd src/$p; /usr/local/bin/gmake install ); done - gmake[1]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6/src/findlib' - install -d "/home/opam/.opam/4.14.1/lib/findlib" - install -d "/home/opam/.opam/4.14.1/bin" - test 1 -eq 0 || install -d "/home/opam/.opam/4.14.1/lib/ocaml" - test 1 -eq 0 || install -c topfind "/home/opam/.opam/4.14.1/lib/ocaml/" - files=` ../../tools/collect_files ../../Makefile.config \ - findlib.cmi findlib.mli findlib.cma findlib.cmxa findlib.a findlib.cmxs \ - findlib_config.cmi findlib_config.ml topfind.cmi topfind.mli \ - fl_args.cmi fl_lint.cmi fl_meta.cmi fl_split.cmi fl_topo.cmi ocaml_args.cmi \ - fl_package_base.mli fl_package_base.cmi fl_metascanner.mli fl_metascanner.cmi \ - fl_metatoken.cmi findlib_top.cma findlib_top.cmxa findlib_top.a findlib_top.cmxs \ - findlib_dynload.cma findlib_dynload.cmxa findlib_dynload.a findlib_dynload.cmxs fl_dynload.mli fl_dynload.cmi \ - META` && \ - install -c $files "/home/opam/.opam/4.14.1/lib/findlib/" - f="ocamlfind"; { test -f ocamlfind_opt && f="ocamlfind_opt"; }; \ - install -c $f "/home/opam/.opam/4.14.1/bin/ocamlfind" - # the following "if" block is only needed for 4.00beta2 - if [ 1 -eq 0 -a -f "/home/opam/.opam/4.14.1/lib/ocaml/compiler-libs/topdirs.cmi" ]; then \ - cd "/home/opam/.opam/4.14.1/lib/ocaml/compiler-libs/"; \ - install -c topdirs.cmi toploop.cmi "/home/opam/.opam/4.14.1/lib/findlib/"; \ - fi - gmake[1]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6/src/findlib' - /usr/local/bin/gmake install-meta - gmake[1]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6' - for x in bigarray bytes compiler-libs dynlink ocamldoc stdlib str threads unix ; do install -d "/home/opam/.opam/4.14.1/lib/$x"; install -c site-lib-src/$x/META "/home/opam/.opam/4.14.1/lib/$x/META.tmp" && mv "/home/opam/.opam/4.14.1/lib/$x/META.tmp" "/home/opam/.opam/4.14.1/lib/$x/META"; done - install -d "/home/opam/.opam/4.14.1/lib/findlib"; install -c Makefile.packages "/home/opam/.opam/4.14.1/lib/findlib/Makefile.packages" - gmake[1]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6' - test ! -f 'site-lib-src/num-top/META' || { cd src/findlib; /usr/local/bin/gmake install-num-top; } - test ! -f 'site-lib-src/camlp4/META' || install -c tools/safe_camlp4 "/home/opam/.opam/4.14.1/bin" - /usr/local/bin/gmake install-doc - gmake[1]: Entering directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6' - install -d "/home/opam/.opam/4.14.1/man/man1" "/home/opam/.opam/4.14.1/man/man3" "/home/opam/.opam/4.14.1/man/man5" - install -c doc/ref-man/ocamlfind.1 "/home/opam/.opam/4.14.1/man/man1" - install -c doc/ref-man/META.5 doc/ref-man/site-lib.5 doc/ref-man/findlib.conf.5 "/home/opam/.opam/4.14.1/man/man5" - gmake[1]: Leaving directory '/home/opam/.opam/4.14.1/.opam-switch/build/ocamlfind.1.9.6' -> installed ocamlfind.1.9.6 Processing 33/82: [dune: ocaml 7] Processing 34/82: [dune: ocaml 7] [topkg: ocaml build] + /home/opam/.opam/4.14.1/bin/ocaml "pkg/pkg.ml" "build" "--pkg-name" "topkg" "--dev-pkg" "false" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/topkg.1.0.7) - ocamlfind ocamldep -modules src/topkg.ml > src/topkg.ml.depends - ocamlfind ocamldep -modules src/topkg.mli > src/topkg.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg.cmi src/topkg.mli - ocamlfind ocamldep -modules src/topkg_build.ml > src/topkg_build.ml.depends - ocamlfind ocamldep -modules src/topkg_build.mli > src/topkg_build.mli.depends - ocamlfind ocamldep -modules src/topkg_cmd.mli > src/topkg_cmd.mli.depends - ocamlfind ocamldep -modules src/topkg_fpath.mli > src/topkg_fpath.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_fpath.cmi src/topkg_fpath.mli - ocamlfind ocamldep -modules src/topkg_codec.mli > src/topkg_codec.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_cmd.cmi src/topkg_cmd.mli - ocamlfind ocamldep -modules src/topkg_result.mli > src/topkg_result.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_result.cmi src/topkg_result.mli - ocamlfind ocamldep -modules src/topkg_conf.mli > src/topkg_conf.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_codec.cmi src/topkg_codec.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_conf.cmi src/topkg_conf.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_build.cmi src/topkg_build.mli - ocamlfind ocamldep -modules src/topkg_cmd.ml > src/topkg_cmd.ml.depends - ocamlfind ocamldep -modules src/topkg_fpath.ml > src/topkg_fpath.ml.depends - ocamlfind ocamldep -modules src/topkg_string.ml > src/topkg_string.ml.depends - ocamlfind ocamldep -modules src/topkg_string.mli > src/topkg_string.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_string.cmi src/topkg_string.mli - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_string.cmx src/topkg_string.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_fpath.cmx src/topkg_fpath.ml - ocamlfind ocamldep -modules src/topkg_codec.ml > src/topkg_codec.ml.depends - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_cmd.cmx src/topkg_cmd.ml - ocamlfind ocamldep -modules src/topkg_os.ml > src/topkg_os.ml.depends - ocamlfind ocamldep -modules src/topkg_os.mli > src/topkg_os.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_os.cmi src/topkg_os.mli - ocamlfind ocamldep -modules src/topkg_log.ml > src/topkg_log.ml.depends - ocamlfind ocamldep -modules src/topkg_log.mli > src/topkg_log.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_log.cmi src/topkg_log.mli - ocamlfind ocamldep -modules src/topkg_result.ml > src/topkg_result.ml.depends - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_result.cmx src/topkg_result.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_log.cmx src/topkg_log.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_os.cmx src/topkg_os.ml - ocamlfind ocamldep -modules src/topkg_conf.ml > src/topkg_conf.ml.depends - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_codec.cmx src/topkg_codec.ml - ocamlfind ocamldep -modules src/topkg_vcs.ml > src/topkg_vcs.ml.depends - ocamlfind ocamldep -modules src/topkg_vcs.mli > src/topkg_vcs.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_vcs.cmi src/topkg_vcs.mli - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_vcs.cmx src/topkg_vcs.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_conf.cmx src/topkg_conf.ml - ocamlfind ocamldep -modules src/topkg_distrib.ml > src/topkg_distrib.ml.depends - ocamlfind ocamldep -modules src/topkg_distrib.mli > src/topkg_distrib.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_distrib.cmi src/topkg_distrib.mli - ocamlfind ocamldep -modules src/topkg_opam.ml > src/topkg_opam.ml.depends - ocamlfind ocamldep -modules src/topkg_opam.mli > src/topkg_opam.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_opam.cmi src/topkg_opam.mli - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_opam.cmx src/topkg_opam.ml - ocamlfind ocamldep -modules src/topkg_fexts.ml > src/topkg_fexts.ml.depends - ocamlfind ocamldep -modules src/topkg_fexts.mli > src/topkg_fexts.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_fexts.cmi src/topkg_fexts.mli - ocamlfind ocamldep -modules src/topkg_install.ml > src/topkg_install.ml.depends - ocamlfind ocamldep -modules src/topkg_install.mli > src/topkg_install.mli.depends - ocamlfind ocamldep -modules src/topkg_test.mli > src/topkg_test.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_test.cmi src/topkg_test.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_install.cmi src/topkg_install.mli - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_fexts.cmx src/topkg_fexts.ml - ocamlfind ocamldep -modules src/topkg_test.ml > src/topkg_test.ml.depends - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_test.cmx src/topkg_test.ml - ocamlfind ocamldep -modules src/topkg_ipc.ml > src/topkg_ipc.ml.depends - ocamlfind ocamldep -modules src/topkg_ipc.mli > src/topkg_ipc.mli.depends - ocamlfind ocamldep -modules src/topkg_pkg.mli > src/topkg_pkg.mli.depends - ocamlfind ocamldep -modules src/topkg_publish.mli > src/topkg_publish.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_publish.cmi src/topkg_publish.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_pkg.cmi src/topkg_pkg.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_ipc.cmi src/topkg_ipc.mli - ocamlfind ocamldep -modules src/topkg_pkg.ml > src/topkg_pkg.ml.depends - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_build.cmx src/topkg_build.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_distrib.cmx src/topkg_distrib.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_install.cmx src/topkg_install.ml - ocamlfind ocamldep -modules src/topkg_publish.ml > src/topkg_publish.ml.depends - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_publish.cmx src/topkg_publish.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_pkg.cmx src/topkg_pkg.ml - ocamlfind ocamldep -modules src/topkg_main.ml > src/topkg_main.ml.depends - ocamlfind ocamldep -modules src/topkg_main.mli > src/topkg_main.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_main.cmi src/topkg_main.mli - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_ipc.cmx src/topkg_ipc.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_main.cmx src/topkg_main.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg.cmx src/topkg.ml - ocamlfind ocamlopt -a -I src src/topkg_string.cmx src/topkg_fpath.cmx src/topkg_cmd.cmx src/topkg_result.cmx src/topkg_log.cmx src/topkg_os.cmx src/topkg_codec.cmx src/topkg_vcs.cmx src/topkg_conf.cmx src/topkg_build.cmx src/topkg_opam.cmx src/topkg_distrib.cmx src/topkg_fexts.cmx src/topkg_test.cmx src/topkg_install.cmx src/topkg_publish.cmx src/topkg_pkg.cmx src/topkg_ipc.cmx src/topkg_main.cmx src/topkg.cmx -o src/topkg.cmxa - ocamlfind ocamlopt -shared -linkall -I src src/topkg.cmxa -o src/topkg.cmxs - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg.cmo src/topkg.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_build.cmo src/topkg_build.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_cmd.cmo src/topkg_cmd.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_codec.cmo src/topkg_codec.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_conf.cmo src/topkg_conf.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_distrib.cmo src/topkg_distrib.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_fexts.cmo src/topkg_fexts.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_fpath.cmo src/topkg_fpath.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_install.cmo src/topkg_install.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_ipc.cmo src/topkg_ipc.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_log.cmo src/topkg_log.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_main.cmo src/topkg_main.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_opam.cmo src/topkg_opam.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_os.cmo src/topkg_os.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_pkg.cmo src/topkg_pkg.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_publish.cmo src/topkg_publish.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_result.cmo src/topkg_result.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_string.cmo src/topkg_string.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_test.cmo src/topkg_test.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I src-care -I test -I src-bin -o src/topkg_vcs.cmo src/topkg_vcs.ml - ocamlfind ocamlc -a -I src src/topkg_string.cmo src/topkg_fpath.cmo src/topkg_cmd.cmo src/topkg_result.cmo src/topkg_log.cmo src/topkg_os.cmo src/topkg_codec.cmo src/topkg_vcs.cmo src/topkg_conf.cmo src/topkg_build.cmo src/topkg_opam.cmo src/topkg_distrib.cmo src/topkg_fexts.cmo src/topkg_test.cmo src/topkg_install.cmo src/topkg_publish.cmo src/topkg_pkg.cmo src/topkg_ipc.cmo src/topkg_main.cmo src/topkg.cmo -o src/topkg.cma - # Parallel statistics: { count(total): 2(84), max: 20, min: 2, average(total): 11.000(1.238) } -> compiled topkg.1.0.7 Processing 34/82: [dune: ocaml 7] -> installed topkg.1.0.7 Processing 35/82: [dune: ocaml 7] Processing 36/82: [dune: ocaml 7] [uutf: ocaml build] + /home/opam/.opam/4.14.1/bin/ocaml "pkg/pkg.ml" "build" "--dev-pkg" "false" "--with-cmdliner" "false" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/uutf.1.0.3) - ocamlfind ocamldep -modules src/uutf.ml > src/uutf.ml.depends - ocamlfind ocamldep -modules src/uutf.mli > src/uutf.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I test -o src/uutf.cmi src/uutf.mli - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I test -o src/uutf.cmx src/uutf.ml - ocamlfind ocamlopt -a -I src src/uutf.cmx -o src/uutf.cmxa - ocamlfind ocamlopt -shared -linkall -I src src/uutf.cmxa -o src/uutf.cmxs - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I test -o src/uutf.cmo src/uutf.ml - ocamlfind ocamlc -a -I src src/uutf.cmo -o src/uutf.cma - # No parallelism done -> compiled uutf.1.0.3 Processing 36/82: [dune: ocaml 7] -> installed uutf.1.0.3 Processing 37/82: [dune: ocaml 7] Processing 38/82: [dune: ocaml 7] [uunf: ocaml build] + /home/opam/.opam/4.14.1/bin/ocaml "pkg/pkg.ml" "build" "--dev-pkg" "false" "--with-uutf" "true" "--with-cmdliner" "false" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/uunf.15.1.0) - ocamlfind ocamldep -modules src/uunf_fmt.ml > src/uunf_fmt.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_fmt.cmo src/uunf_fmt.ml - ocamlfind ocamldep -modules src/uunf_tmap.ml > src/uunf_tmap.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_tmap.cmo src/uunf_tmap.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_fmt.cmx src/uunf_fmt.ml - ocamlfind ocamldep -modules src/uunf_tmapbool.ml > src/uunf_tmapbool.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_tmapbool.cmo src/uunf_tmapbool.ml - ocamlfind ocamldep -modules src/uunf_tmapbyte.ml > src/uunf_tmapbyte.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_tmapbyte.cmo src/uunf_tmapbyte.ml - ocamlfind ocamldep -modules src/uunf_data.ml > src/uunf_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_data.cmo src/uunf_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_tmap.cmx src/uunf_tmap.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_tmapbool.cmx src/uunf_tmapbool.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_tmapbyte.cmx src/uunf_tmapbyte.ml - ocamlfind ocamldep -modules src/uunf.ml > src/uunf.ml.depends - ocamlfind ocamldep -modules src/uunf.mli > src/uunf.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf.cmi src/uunf.mli - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_data.cmx src/uunf_data.ml - ocamlfind ocamldep -modules src/uunf_string.ml > src/uunf_string.ml.depends - ocamlfind ocamldep -modules src/uunf_string.mli > src/uunf_string.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_string.cmi src/uunf_string.mli - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf.cmx src/uunf.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_string.cmx src/uunf_string.ml - ocamlfind ocamlopt -a -I src src/uunf_fmt.cmx src/uunf_tmap.cmx src/uunf_tmapbool.cmx src/uunf_tmapbyte.cmx src/uunf_data.cmx src/uunf.cmx src/uunf_string.cmx -o src/uunf.cmxa - ocamlfind ocamlopt -shared -linkall -I src src/uunf.cmxa -o src/uunf.cmxs - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf.cmo src/uunf.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -I src -I test -I support -o src/uunf_string.cmo src/uunf_string.ml - ocamlfind ocamlc -a -I src src/uunf_fmt.cmo src/uunf_tmap.cmo src/uunf_tmapbool.cmo src/uunf_tmapbyte.cmo src/uunf_data.cmo src/uunf.cmo src/uunf_string.cmo -o src/uunf.cma - # Parallel statistics: { count(total): 1(28), max: 2, min: 2, average(total): 2.000(1.036) } -> compiled uunf.15.1.0 Processing 38/82: [dune: ocaml 7] -> installed uunf.15.1.0 Processing 39/82: [dune: ocaml 7] Processing 40/82: [dune: ocaml 7] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/ocaml "boot/bootstrap.ml" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/dune.3.16.0) - ocamlc -output-complete-exe -w -24 -g -o .duneboot.exe -I boot unix.cma boot/libs.ml boot/duneboot.ml - /tmp/camlobjc828a0.c:16582:14: warning: a function declaration without a prototype is deprecated in all versions of C and is treated as a zero-parameter prototype in C2x, conflicting with a previous declaration [-Wdeprecated-non-prototype] - extern value caml_get_public_method(); - ^ - /home/opam/.opam/4.14.1/lib/ocaml/caml/mlvalues.h:236:18: note: conflicting prototype is here - CAMLextern value caml_get_public_method (value obj, value tag); - ^ - /tmp/camlobjc828a0.c:16764:14: warning: a function declaration without a prototype is deprecated in all versions of C and is treated as a zero-parameter prototype in C2x, conflicting with a previous declaration [-Wdeprecated-non-prototype] - extern value caml_set_oo_id(); - ^ - /home/opam/.opam/4.14.1/lib/ocaml/caml/mlvalues.h:413:18: note: conflicting prototype is here - CAMLextern value caml_set_oo_id(value obj); - ^ - 2 warnings generated. - ./.duneboot.exe -j 7 - Processing 40/82: [dune: ./_boot/dune.exe build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/.opam-switch/build/dune.3.16.0/./_boot/dune.exe "build" "dune.install" "--release" "--profile" "dune-bootstrap" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/dune.3.16.0) -> compiled dune.3.16.0 Processing 40/82: [uucp: ocaml build] -> installed dune.3.16.0 Processing 41/82: [uucp: ocaml build] Processing 42/82: [cppo: dune build] [uucp: ocaml build] Processing 43/82: [cppo: dune build] [csexp: dune build] [uucp: ocaml build] Processing 44/82: [cppo: dune build] [csexp: dune build] [dune-build-info: rm] [uucp: ocaml build] Processing 45/82: [cppo: dune build] [csexp: dune build] [dune-build-info: rm] [gen: dune build] [uucp: ocaml build] Processing 46/82: [cppo: dune build] [csexp: dune build] [dune-build-info: rm] [gen: dune build] [linenoise: dune build] [uucp: ocaml build] Processing 47/82: [cppo: dune build] [csexp: dune build] [dune-build-info: rm] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [uucp: ocaml build] + /bin/rm "-rf" "vendor/csexp" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/dune-build-info.3.16.0) + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "csexp" "-j" "7" "@install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/csexp.1.5.2) -> compiled csexp.1.5.2 Processing 47/82: [cppo: dune build] [dune-build-info: rm] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [uucp: ocaml build] Processing 48/82: [cppo: dune build] [dune-build-info: rm] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ocaml-syntax-shims: dune build] [uucp: ocaml build] -> installed csexp.1.5.2 Processing 49/82: [cppo: dune build] [dune-build-info: rm] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ocaml-syntax-shims: dune build] [uucp: ocaml build] + /bin/rm "-rf" "vendor/pp" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/dune-build-info.3.16.0) Processing 49/82: [cppo: dune build] [dune-build-info: dune build] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ocaml-syntax-shims: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "cppo" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/cppo.1.6.9) -> compiled cppo.1.6.9 Processing 49/82: [dune-build-info: dune build] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ocaml-syntax-shims: dune build] [uucp: ocaml build] Processing 50/82: [dune-build-info: dune build] [dune-configurator: rm] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ocaml-syntax-shims: dune build] [uucp: ocaml build] -> installed cppo.1.6.9 Processing 51/82: [dune-build-info: dune build] [dune-configurator: rm] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ocaml-syntax-shims: dune build] [uucp: ocaml build] + /bin/rm "-rf" "vendor/csexp" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/dune-configurator.3.16.0) + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "dune-build-info" "-j" "7" "@install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/dune-build-info.3.16.0) -> compiled dune-build-info.3.16.0 Processing 51/82: [dune-configurator: rm] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ocaml-syntax-shims: dune build] [uucp: ocaml build] Processing 52/82: [dune-configurator: rm] [extlib: dune build] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ocaml-syntax-shims: dune build] [uucp: ocaml build] -> installed dune-build-info.3.16.0 Processing 53/82: [dune-configurator: rm] [extlib: dune build] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ocaml-syntax-shims: dune build] [uucp: ocaml build] + /bin/rm "-rf" "vendor/pp" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/dune-configurator.3.16.0) Processing 53/82: [dune-configurator: dune build] [extlib: dune build] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ocaml-syntax-shims: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "ocaml-syntax-shims" "-j" "7" "@install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/ocaml-syntax-shims.1.0.0) -> compiled ocaml-syntax-shims.1.0.0 Processing 53/82: [dune-configurator: dune build] [extlib: dune build] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [uucp: ocaml build] Processing 54/82: [dune-configurator: dune build] [extlib: dune build] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ppx_derivers: dune build] [uucp: ocaml build] -> installed ocaml-syntax-shims.1.0.0 Processing 55/82: [dune-configurator: dune build] [extlib: dune build] [gen: dune build] [linenoise: dune build] [ocaml-compiler-libs: dune build] [ppx_derivers: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "ocaml-compiler-libs" "-j" "7" "@install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/ocaml-compiler-libs.v0.12.4) -> compiled ocaml-compiler-libs.v0.12.4 Processing 55/82: [dune-configurator: dune build] [extlib: dune build] [gen: dune build] [linenoise: dune build] [ppx_derivers: dune build] [uucp: ocaml build] Processing 56/82: [dune-configurator: dune build] [extlib: dune build] [gen: dune build] [linenoise: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [uucp: ocaml build] -> installed ocaml-compiler-libs.v0.12.4 Processing 57/82: [dune-configurator: dune build] [extlib: dune build] [gen: dune build] [linenoise: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "@install" "-p" "linenoise" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/linenoise.1.5.1) -> compiled linenoise.1.5.1 Processing 57/82: [dune-configurator: dune build] [extlib: dune build] [gen: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [uucp: ocaml build] Processing 58/82: [dune-configurator: dune build] [extlib: dune build] [gen: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [stdlib-shims: dune build] [uucp: ocaml build] -> installed linenoise.1.5.1 Processing 59/82: [dune-configurator: dune build] [extlib: dune build] [gen: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [stdlib-shims: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "@install" "-p" "gen" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/gen.1.1) -> compiled gen.1.1 Processing 59/82: [dune-configurator: dune build] [extlib: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [stdlib-shims: dune build] [uucp: ocaml build] Processing 60/82: [dune-configurator: dune build] [extlib: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [stdlib-shims: dune build] [stringext: dune build] [uucp: ocaml build] -> installed gen.1.1 Processing 61/82: [dune-configurator: dune build] [extlib: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [stdlib-shims: dune build] [stringext: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "stdlib-shims" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/stdlib-shims.0.3.0) -> compiled stdlib-shims.0.3.0 Processing 61/82: [dune-configurator: dune build] [extlib: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [stringext: dune build] [uucp: ocaml build] -> installed stdlib-shims.0.3.0 Processing 62/82: [dune-configurator: dune build] [extlib: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [stringext: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "stringext" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/stringext.1.6.0) -> compiled stringext.1.6.0 Processing 62/82: [dune-configurator: dune build] [extlib: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [uucp: ocaml build] -> installed stringext.1.6.0 Processing 63/82: [dune-configurator: dune build] [extlib: dune build] [ppx_derivers: dune build] [sexplib0: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "ppx_derivers" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/ppx_derivers.1.2.1) -> compiled ppx_derivers.1.2.1 Processing 63/82: [dune-configurator: dune build] [extlib: dune build] [sexplib0: dune build] [uucp: ocaml build] -> installed ppx_derivers.1.2.1 Processing 64/82: [dune-configurator: dune build] [extlib: dune build] [sexplib0: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "sexplib0" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/sexplib0.v0.17.0) -> compiled sexplib0.v0.17.0 Processing 64/82: [dune-configurator: dune build] [extlib: dune build] [uucp: ocaml build] -> installed sexplib0.v0.17.0 Processing 65/82: [dune-configurator: dune build] [extlib: dune build] [uucp: ocaml build] Processing 66/82: [dune-configurator: dune build] [extlib: dune build] [ppxlib: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "extlib" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/extlib.1.7.9) -> compiled extlib.1.7.9 Processing 66/82: [dune-configurator: dune build] [ppxlib: dune build] [uucp: ocaml build] -> installed extlib.1.7.9 Processing 67/82: [dune-configurator: dune build] [ppxlib: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "dune-configurator" "-j" "7" "@install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/dune-configurator.3.16.0) -> compiled dune-configurator.3.16.0 Processing 67/82: [ppxlib: dune build] [uucp: ocaml build] -> installed dune-configurator.3.16.0 Processing 68/82: [ppxlib: dune build] [uucp: ocaml build] Processing 69/82: [bigstringaf: dune build] [ppxlib: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "bigstringaf" "-j" "7" "@install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/bigstringaf.0.9.1) -> compiled bigstringaf.0.9.1 Processing 69/82: [ppxlib: dune build] [uucp: ocaml build] -> installed bigstringaf.0.9.1 Processing 70/82: [ppxlib: dune build] [uucp: ocaml build] Processing 71/82: [angstrom: dune build] [ppxlib: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "angstrom" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/angstrom.0.16.0) -> compiled angstrom.0.16.0 Processing 71/82: [ppxlib: dune build] [uucp: ocaml build] -> installed angstrom.0.16.0 Processing 72/82: [ppxlib: dune build] [uucp: ocaml build] Processing 73/82: [ppxlib: dune build] [uri: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "uri" "-j" "7" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/uri.4.4.0) -> compiled uri.4.4.0 Processing 73/82: [ppxlib: dune build] [uucp: ocaml build] -> installed uri.4.4.0 Processing 74/82: [ppxlib: dune build] [uucp: ocaml build] + /home/opam/.opam/4.14.1/bin/ocaml "pkg/pkg.ml" "build" "--dev-pkg" "false" "--with-uunf" "true" "--with-cmdliner" "false" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/uucp.15.1.0) - ocamlfind ocamldep -modules src/uucp.ml > src/uucp.ml.depends - ocamlfind ocamldep -modules src/uucp.mli > src/uucp.mli.depends - ocamlfind ocamldep -modules src/uucp__age.mli > src/uucp__age.mli.depends - ocamlfind ocamldep -modules src/uucp__alpha.mli > src/uucp__alpha.mli.depends - ocamlfind ocamldep -modules src/uucp__block.mli > src/uucp__block.mli.depends - ocamlfind ocamldep -modules src/uucp__break.mli > src/uucp__break.mli.depends - ocamlfind ocamldep -modules src/uucp__case.mli > src/uucp__case.mli.depends - ocamlfind ocamldep -modules src/uucp__case_fold.mli > src/uucp__case_fold.mli.depends - ocamlfind ocamldep -modules src/uucp__case_map.mli > src/uucp__case_map.mli.depends - ocamlfind ocamldep -modules src/uucp__case_nfkc.mli > src/uucp__case_nfkc.mli.depends - ocamlfind ocamldep -modules src/uucp__case_nfkc_simple.mli > src/uucp__case_nfkc_simple.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_fold.cmi src/uucp__case_fold.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_map.cmi src/uucp__case_map.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_nfkc.cmi src/uucp__case_nfkc.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_nfkc_simple.cmi src/uucp__case_nfkc_simple.mli - ocamlfind ocamldep -modules src/uucp__cjk.mli > src/uucp__cjk.mli.depends - ocamlfind ocamldep -modules src/uucp__emoji.mli > src/uucp__emoji.mli.depends - ocamlfind ocamldep -modules src/uucp__func.mli > src/uucp__func.mli.depends - ocamlfind ocamldep -modules src/uucp__gc.mli > src/uucp__gc.mli.depends - ocamlfind ocamldep -modules src/uucp__gen.mli > src/uucp__gen.mli.depends - ocamlfind ocamldep -modules src/uucp__hangul.mli > src/uucp__hangul.mli.depends - ocamlfind ocamldep -modules src/uucp__id.mli > src/uucp__id.mli.depends - ocamlfind ocamldep -modules src/uucp__name.mli > src/uucp__name.mli.depends - ocamlfind ocamldep -modules src/uucp__num.mli > src/uucp__num.mli.depends - ocamlfind ocamldep -modules src/uucp__script.mli > src/uucp__script.mli.depends - ocamlfind ocamldep -modules src/uucp__white.mli > src/uucp__white.mli.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__age.cmi src/uucp__age.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__alpha.cmi src/uucp__alpha.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__block.cmi src/uucp__block.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__break.cmi src/uucp__break.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case.cmi src/uucp__case.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__cjk.cmi src/uucp__cjk.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__emoji.cmi src/uucp__emoji.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__func.cmi src/uucp__func.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__gc.cmi src/uucp__gc.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__gen.cmi src/uucp__gen.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__hangul.cmi src/uucp__hangul.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__id.cmi src/uucp__id.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__name.cmi src/uucp__name.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__num.cmi src/uucp__num.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__script.cmi src/uucp__script.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__white.cmi src/uucp__white.mli - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp.cmi src/uucp.mli - ocamlfind ocamldep -modules src/uucp__age.ml > src/uucp__age.ml.depends - ocamlfind ocamldep -modules src/uucp_age_data.ml > src/uucp_age_data.ml.depends - ocamlfind ocamldep -modules src/uucp_rmap.ml > src/uucp_rmap.ml.depends - ocamlfind ocamldep -modules src/uucp_fmt.ml > src/uucp_fmt.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_fmt.cmo src/uucp_fmt.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_rmap.cmo src/uucp_rmap.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_age_data.cmo src/uucp_age_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_fmt.cmx src/uucp_fmt.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_rmap.cmx src/uucp_rmap.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_age_data.cmx src/uucp_age_data.ml - ocamlfind ocamldep -modules src/uucp__alpha.ml > src/uucp__alpha.ml.depends - ocamlfind ocamldep -modules src/uucp_alpha_data.ml > src/uucp_alpha_data.ml.depends - ocamlfind ocamldep -modules src/uucp_tmapbool.ml > src/uucp_tmapbool.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_tmapbool.cmo src/uucp_tmapbool.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_alpha_data.cmo src/uucp_alpha_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_tmapbool.cmx src/uucp_tmapbool.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_alpha_data.cmx src/uucp_alpha_data.ml - ocamlfind ocamldep -modules src/uucp__block.ml > src/uucp__block.ml.depends - ocamlfind ocamldep -modules src/uucp_block_base.ml > src/uucp_block_base.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_block_base.cmo src/uucp_block_base.ml - ocamlfind ocamldep -modules src/uucp_block_data.ml > src/uucp_block_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_block_data.cmo src/uucp_block_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_block_base.cmx src/uucp_block_base.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_block_data.cmx src/uucp_block_data.ml - ocamlfind ocamldep -modules src/uucp__break.ml > src/uucp__break.ml.depends - ocamlfind ocamldep -modules src/uucp__gc.ml > src/uucp__gc.ml.depends - ocamlfind ocamldep -modules src/uucp_gc_base.ml > src/uucp_gc_base.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_gc_base.cmo src/uucp_gc_base.ml - ocamlfind ocamldep -modules src/uucp_gc_data.ml > src/uucp_gc_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_gc_data.cmo src/uucp_gc_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_gc_base.cmx src/uucp_gc_base.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_gc_data.cmx src/uucp_gc_data.ml - ocamlfind ocamldep -modules src/uucp_break_base.ml > src/uucp_break_base.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_break_base.cmo src/uucp_break_base.ml - ocamlfind ocamldep -modules src/uucp_break_data.ml > src/uucp_break_data.ml.depends - ocamlfind ocamldep -modules src/uucp_tmapbyte.ml > src/uucp_tmapbyte.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_tmapbyte.cmo src/uucp_tmapbyte.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_break_data.cmo src/uucp_break_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_break_base.cmx src/uucp_break_base.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_tmapbyte.cmx src/uucp_tmapbyte.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__gc.cmx src/uucp__gc.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_break_data.cmx src/uucp_break_data.ml - ocamlfind ocamldep -modules src/uucp__case.ml > src/uucp__case.ml.depends - ocamlfind ocamldep -modules src/uucp__case_fold.ml > src/uucp__case_fold.ml.depends - ocamlfind ocamldep -modules src/uucp_case_fold_data.ml > src/uucp_case_fold_data.ml.depends - ocamlfind ocamldep -modules src/uucp_tmap.ml > src/uucp_tmap.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_tmap.cmo src/uucp_tmap.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_case_fold_data.cmo src/uucp_case_fold_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_tmap.cmx src/uucp_tmap.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_case_fold_data.cmx src/uucp_case_fold_data.ml - ocamlfind ocamldep -modules src/uucp__case_map.ml > src/uucp__case_map.ml.depends - ocamlfind ocamldep -modules src/uucp_case_map_data.ml > src/uucp_case_map_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_case_map_data.cmo src/uucp_case_map_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_case_map_data.cmx src/uucp_case_map_data.ml - ocamlfind ocamldep -modules src/uucp__case_nfkc.ml > src/uucp__case_nfkc.ml.depends - ocamlfind ocamldep -modules src/uucp_case_nfkc_data.ml > src/uucp_case_nfkc_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_case_nfkc_data.cmo src/uucp_case_nfkc_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_case_nfkc_data.cmx src/uucp_case_nfkc_data.ml - ocamlfind ocamldep -modules src/uucp__case_nfkc_simple.ml > src/uucp__case_nfkc_simple.ml.depends - ocamlfind ocamldep -modules src/uucp_case_nfkc_simple_data.ml > src/uucp_case_nfkc_simple_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_case_nfkc_simple_data.cmo src/uucp_case_nfkc_simple_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_case_nfkc_simple_data.cmx src/uucp_case_nfkc_simple_data.ml - ocamlfind ocamldep -modules src/uucp_case_data.ml > src/uucp_case_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_case_data.cmo src/uucp_case_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_fold.cmx src/uucp__case_fold.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_map.cmx src/uucp__case_map.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_nfkc.cmx src/uucp__case_nfkc.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_nfkc_simple.cmx src/uucp__case_nfkc_simple.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_case_data.cmx src/uucp_case_data.ml - ocamlfind ocamldep -modules src/uucp__cjk.ml > src/uucp__cjk.ml.depends - ocamlfind ocamldep -modules src/uucp_cjk_data.ml > src/uucp_cjk_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_cjk_data.cmo src/uucp_cjk_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_cjk_data.cmx src/uucp_cjk_data.ml - ocamlfind ocamldep -modules src/uucp__emoji.ml > src/uucp__emoji.ml.depends - ocamlfind ocamldep -modules src/uucp_emoji_data.ml > src/uucp_emoji_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_emoji_data.cmo src/uucp_emoji_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_emoji_data.cmx src/uucp_emoji_data.ml - ocamlfind ocamldep -modules src/uucp__func.ml > src/uucp__func.ml.depends - ocamlfind ocamldep -modules src/uucp_func_data.ml > src/uucp_func_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_func_data.cmo src/uucp_func_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_func_data.cmx src/uucp_func_data.ml - ocamlfind ocamldep -modules src/uucp__gen.ml > src/uucp__gen.ml.depends - ocamlfind ocamldep -modules src/uucp_gen_data.ml > src/uucp_gen_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_gen_data.cmo src/uucp_gen_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_gen_data.cmx src/uucp_gen_data.ml - ocamlfind ocamldep -modules src/uucp__hangul.ml > src/uucp__hangul.ml.depends - ocamlfind ocamldep -modules src/uucp_hangul_base.ml > src/uucp_hangul_base.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_hangul_base.cmo src/uucp_hangul_base.ml - ocamlfind ocamldep -modules src/uucp_hangul_data.ml > src/uucp_hangul_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_hangul_data.cmo src/uucp_hangul_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_hangul_base.cmx src/uucp_hangul_base.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_hangul_data.cmx src/uucp_hangul_data.ml - ocamlfind ocamldep -modules src/uucp__id.ml > src/uucp__id.ml.depends - ocamlfind ocamldep -modules src/uucp_id_data.ml > src/uucp_id_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_id_data.cmo src/uucp_id_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_id_data.cmx src/uucp_id_data.ml - ocamlfind ocamldep -modules src/uucp__name.ml > src/uucp__name.ml.depends - ocamlfind ocamldep -modules src/uucp_cmap.ml > src/uucp_cmap.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_cmap.cmo src/uucp_cmap.ml - ocamlfind ocamldep -modules src/uucp_name_base.ml > src/uucp_name_base.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_name_base.cmo src/uucp_name_base.ml - ocamlfind ocamldep -modules src/uucp_name_data.ml > src/uucp_name_data.ml.depends - ocamlfind ocamldep -modules src/uucp_tmap5bytes.ml > src/uucp_tmap5bytes.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_tmap5bytes.cmo src/uucp_tmap5bytes.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_name_data.cmo src/uucp_name_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_cmap.cmx src/uucp_cmap.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_name_base.cmx src/uucp_name_base.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_tmap5bytes.cmx src/uucp_tmap5bytes.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_name_data.cmx src/uucp_name_data.ml - ocamlfind ocamldep -modules src/uucp__num.ml > src/uucp__num.ml.depends - ocamlfind ocamldep -modules src/uucp_num_base.ml > src/uucp_num_base.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_num_base.cmo src/uucp_num_base.ml - ocamlfind ocamldep -modules src/uucp_num_data.ml > src/uucp_num_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_num_data.cmo src/uucp_num_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_num_base.cmx src/uucp_num_base.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_num_data.cmx src/uucp_num_data.ml - ocamlfind ocamldep -modules src/uucp__script.ml > src/uucp__script.ml.depends - ocamlfind ocamldep -modules src/uucp_script_base.ml > src/uucp_script_base.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_script_base.cmo src/uucp_script_base.ml - ocamlfind ocamldep -modules src/uucp_script_data.ml > src/uucp_script_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_script_data.cmo src/uucp_script_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_script_base.cmx src/uucp_script_base.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_script_data.cmx src/uucp_script_data.ml - ocamlfind ocamldep -modules src/uucp__white.ml > src/uucp__white.ml.depends - ocamlfind ocamldep -modules src/uucp_white_data.ml > src/uucp_white_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_white_data.cmo src/uucp_white_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_white_data.cmx src/uucp_white_data.ml - ocamlfind ocamldep -modules src/uucp_version_data.ml > src/uucp_version_data.ml.depends - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_version_data.cmo src/uucp_version_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__age.cmx src/uucp__age.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__alpha.cmx src/uucp__alpha.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__block.cmx src/uucp__block.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__break.cmx src/uucp__break.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case.cmx src/uucp__case.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__cjk.cmx src/uucp__cjk.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__emoji.cmx src/uucp__emoji.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__func.cmx src/uucp__func.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__gen.cmx src/uucp__gen.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__hangul.cmx src/uucp__hangul.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__id.cmx src/uucp__id.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__name.cmx src/uucp__name.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__num.cmx src/uucp__num.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__script.cmx src/uucp__script.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__white.cmx src/uucp__white.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp_version_data.cmx src/uucp_version_data.ml - ocamlfind ocamlopt -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp.cmx src/uucp.ml - ocamlfind ocamlopt -a -I src src/uucp_fmt.cmx src/uucp_rmap.cmx src/uucp_age_data.cmx src/uucp__age.cmx src/uucp_tmapbool.cmx src/uucp_alpha_data.cmx src/uucp__alpha.cmx src/uucp_block_base.cmx src/uucp_block_data.cmx src/uucp__block.cmx src/uucp_gc_base.cmx src/uucp_gc_data.cmx src/uucp__gc.cmx src/uucp_break_base.cmx src/uucp_tmapbyte.cmx src/uucp_break_data.cmx src/uucp__break.cmx src/uucp_tmap.cmx src/uucp_case_fold_data.cmx src/uucp__case_fold.cmx src/uucp_case_map_data.cmx src/uucp__case_map.cmx src/uucp_case_nfkc_data.cmx src/uucp__case_nfkc.cmx src/uucp_case_nfkc_simple_data.cmx src/uucp__case_nfkc_simple.cmx src/uucp_case_data.cmx src/uucp__case.cmx src/uucp_cjk_data.cmx src/uucp__cjk.cmx src/uucp_emoji_data.cmx src/uucp__emoji.cmx src/uucp_func_data.cmx src/uucp__func.cmx src/uucp_gen_data.cmx src/uucp__gen.cmx src/uucp_hangul_base.cmx src/uucp_hangul_data.cmx src/uucp__hangul.cmx src/uucp_id_data.cmx src/uucp__id.cmx src/uucp_cmap.cmx src/uucp_name_base.cmx src/uucp_tmap5bytes.cmx src/uucp_name_data.cmx src/uucp__name.cmx src/uucp_num_base.cmx src/uucp_num_data.cmx src/uucp__num.cmx src/uucp_script_base.cmx src/uucp_script_data.cmx src/uucp__script.cmx src/uucp_white_data.cmx src/uucp__white.cmx src/uucp_version_data.cmx src/uucp.cmx -o src/uucp.cmxa - ocamlfind ocamlopt -shared -linkall -I src src/uucp.cmxa -o src/uucp.cmxs - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp.cmo src/uucp.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__age.cmo src/uucp__age.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__alpha.cmo src/uucp__alpha.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__block.cmo src/uucp__block.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__break.cmo src/uucp__break.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case.cmo src/uucp__case.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_fold.cmo src/uucp__case_fold.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_map.cmo src/uucp__case_map.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_nfkc.cmo src/uucp__case_nfkc.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__case_nfkc_simple.cmo src/uucp__case_nfkc_simple.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__cjk.cmo src/uucp__cjk.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__emoji.cmo src/uucp__emoji.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__func.cmo src/uucp__func.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__gc.cmo src/uucp__gc.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__gen.cmo src/uucp__gen.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__hangul.cmo src/uucp__hangul.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__id.cmo src/uucp__id.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__name.cmo src/uucp__name.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__num.cmo src/uucp__num.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__script.cmo src/uucp__script.ml - ocamlfind ocamlc -c -g -bin-annot -safe-string -no-alias-deps -I src -I support -I test -o src/uucp__white.cmo src/uucp__white.ml - ocamlfind ocamlc -a -I src src/uucp_fmt.cmo src/uucp_rmap.cmo src/uucp_age_data.cmo src/uucp__age.cmo src/uucp_tmapbool.cmo src/uucp_alpha_data.cmo src/uucp__alpha.cmo src/uucp_block_base.cmo src/uucp_block_data.cmo src/uucp__block.cmo src/uucp_gc_base.cmo src/uucp_gc_data.cmo src/uucp__gc.cmo src/uucp_break_base.cmo src/uucp_tmapbyte.cmo src/uucp_break_data.cmo src/uucp__break.cmo src/uucp_tmap.cmo src/uucp_case_fold_data.cmo src/uucp__case_fold.cmo src/uucp_case_map_data.cmo src/uucp__case_map.cmo src/uucp_case_nfkc_data.cmo src/uucp__case_nfkc.cmo src/uucp_case_nfkc_simple_data.cmo src/uucp__case_nfkc_simple.cmo src/uucp_case_data.cmo src/uucp__case.cmo src/uucp_cjk_data.cmo src/uucp__cjk.cmo src/uucp_emoji_data.cmo src/uucp__emoji.cmo src/uucp_func_data.cmo src/uucp__func.cmo src/uucp_gen_data.cmo src/uucp__gen.cmo src/uucp_hangul_base.cmo src/uucp_hangul_data.cmo src/uucp__hangul.cmo src/uucp_id_data.cmo src/uucp__id.cmo src/uucp_cmap.cmo src/uucp_name_base.cmo src/uucp_tmap5bytes.cmo src/uucp_name_data.cmo src/uucp__name.cmo src/uucp_num_base.cmo src/uucp_num_data.cmo src/uucp__num.cmo src/uucp_script_base.cmo src/uucp_script_data.cmo src/uucp__script.cmo src/uucp_white_data.cmo src/uucp__white.cmo src/uucp_version_data.cmo src/uucp.cmo -o src/uucp.cma - # Parallel statistics: { count(total): 6(156), max: 21, min: 2, average(total): 10.667(1.372) } -> compiled uucp.15.1.0 Processing 74/82: [ppxlib: dune build] -> installed uucp.15.1.0 Processing 75/82: [ppxlib: dune build] Processing 76/82: [omd: dune build] [ppxlib: dune build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "omd" "-j" "7" "@install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/omd.2.0.0~alpha4) -> compiled omd.2.0.0~alpha4 Processing 76/82: [ppxlib: dune build] -> installed omd.2.0.0~alpha4 Processing 77/82: [ppxlib: dune build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "ppxlib" "-j" "7" "@install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/ppxlib.0.32.1) -> compiled ppxlib.0.32.1 -> installed ppxlib.0.32.1 Processing 79/82: [sedlex: dune build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "sedlex" "-j" "7" "@install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/sedlex.3.2) -> compiled sedlex.3.2 -> installed sedlex.3.2 Processing 81/82: [beluga: dune build] + /home/opam/.opam/4.14.1/bin/dune "build" "-p" "beluga" "-j" "7" "@install" (CWD=/home/opam/.opam/4.14.1/.opam-switch/build/beluga.1.1.1) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/syntax/synint/.synint.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I src/support/.support.objs/byte -I src/syntax/syncom/.syncom.objs/byte -no-alias-deps -o src/syntax/synint/.synint.objs/byte/synint.cmo -c -impl src/syntax/synint/synint.ml) - File "src/syntax/synint/synint.ml", lines 629-632, characters 4-60: - 629 | ....function - 630 | | PatNil -> PatNil - 631 | | PatApp (loc, p, pS) -> - 632 | PatApp (loc, strip_pattern p, strip_pattern_spine pS) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PatObs (_, _, _, _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -intf-suffix .ml -no-alias-deps -o src/syntax/synint/.synint.objs/native/synint.cmx -c -impl src/syntax/synint/synint.ml) - File "src/syntax/synint/synint.ml", lines 629-632, characters 4-60: - 629 | ....function - 630 | | PatNil -> PatNil - 631 | | PatApp (loc, p, pS) -> - 632 | PatApp (loc, strip_pattern p, strip_pattern_spine pS) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PatObs (_, _, _, _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Order.cmo -c -impl src/core/order.ml) - File "src/core/order.ml", lines 26-34, characters 2-23: - 26 | ..function - 27 | | I.Arg x -> Some [x] - 28 | | I.Lex xs -> - 29 | let f = - 30 | function - 31 | | I.Arg x -> Some x - 32 | | _ -> None (* We don't support nested lexicographic orders. *) - 33 | in - 34 | List.traverse f xs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Simul _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Erase.cmo -c -impl src/core/erase.ml) - File "src/core/erase.ml", lines 6-19, characters 2-33: - 6 | ..match (tau, n) with - 7 | | (_, 0) -> 0 - 8 | | (TypArr (_, _, tau), n) -> 1 + numeric_order_arg tau (n - 1) - 9 | | (TypPiBox (_, LF.Decl { inductivity = Inductivity.Inductive; _ }, tau), n) -> - 10 | (* We count [Inductive] as 1 instead of throwing an error because - ... - 16 | | (TypPiBox (_, LF.Decl { plicity = Plicity.Explicit; _ }, tau), n) -> - 17 | 1 + numeric_order_arg tau (n - 1) - 18 | | (TypPiBox (_, LF.Decl { plicity = Plicity.Implicit; _ }, tau), n) -> - 19 | numeric_order_arg tau (n - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypPiBox (_, DeclOpt _, _), 1) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Context.cmo -c -impl src/core/context.ml) - File "src/core/context.ml", lines 90-104, characters 4-24: - 90 | ....function - 91 | | (DDec (_, TypDecl (x, tA')), 1) -> - 92 | TypDecl (x, TClo (tA', Shift k)) - 93 | - 94 | | (DDec (cPsi', TypDecl _), k') -> - ... - 101 | ctxDec' (cPsi', k'-1) - 102 | - 103 | | (CtxVar (CInst ({instantiation = {contents = Some (ICtx cPsi)}; _}, _)), k) -> - 104 | ctxDec' (cPsi, k) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CtxVar - (CInst ({instantiation={contents=Some (INorm _|IHead _|ISub _)}; _ }, _)), - _) - File "src/core/context.ml", lines 124-134, characters 4-24: - 124 | ....function - 125 | | (DDec (_, TypDecl (x, Sigma tArec)), 1) -> - 126 | TypDecl (x, Sigma (sigmaShift tArec (Shift k))) - 127 | - 128 | | (DDec (cPsi', TypDecl (_, Sigma _)), k') -> - ... - 131 | | (DDec (cPsi', TypDecl _), k') -> - 132 | ctxDec' (cPsi', k' - 1) - 133 | | (CtxVar (CInst ({ instantiation = {contents = Some (ICtx cPhi) }; _ }, _)) , k) -> - 134 | ctxDec' (cPhi, k) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (DDec (_, TypDeclOpt _), _) - File "src/core/context.ml", lines 361-364, characters 2-49: - 361 | ..match (cPsi, k) with - 362 | | (DDec (_, TypDecl (x, _)), 1) -> x - 363 | | (DDec (_, TypDeclOpt x), 1) -> x - 364 | | (DDec (cPsi, _), k) -> getNameDCtx cPsi (k-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Null|CtxVar _), _) - File "src/core/context.ml", lines 367-371, characters 2-27: - 367 | ..match (cD, k) with - 368 | | (Dec (_, Decl { name = u; _ }), 1) -> u - 369 | | (Dec (_, DeclOpt { name = u; _ }), 1) -> u - 370 | | (Dec (cD, _), k) -> - 371 | getNameMCtx cD (k - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Empty, _) - File "src/core/context.ml", lines 374-377, characters 2-45: - 374 | ..match (cG, k) with - 375 | | (Dec (_, Comp.CTypDecl (x, _ , _)), 1) -> x - 376 | | (Dec (_, Comp.CTypDeclOpt x), 1) -> x - 377 | | (Dec (cG, _), k) -> getNameCtx cG (k - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Empty, _) - File "src/core/context.ml", lines 401-403, characters 4-58: - 401 | ....function - 402 | | CtxVar ctx_var -> DDec (CtxVar ctx_var, new_typ_decl) - 403 | | DDec (cPsi, concrete) -> DDec (inner cPsi, concrete) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Null - File "src/core/context.ml", lines 409-411, characters 4-58: - 409 | ....function - 410 | | CtxVar ctx_var -> Null - 411 | | DDec (cPsi, concrete) -> DDec (inner cPsi, concrete) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Null - File "src/core/context.ml", lines 436-439, characters 2-28: - 436 | ..match (cD, psi_offset) with - 437 | | (Dec (_, Decl { typ = CTyp (Some cid_schema); _ }), 1) -> cid_schema - 438 | | (Dec (cD, _) , i) -> - 439 | lookupSchema cD (i - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Empty, _) - File "src/core/context.ml", lines 446-453, characters 7-10: - 446 | .......begin match cvar with - 447 | | CtxName phi when Name.(psi = phi) -> (psi, schemaName) - 448 | | CtxName _ -> lookup cD (offset + 1) - 449 | | CtxOffset n -> - 450 | if n - offset = 1 - 451 | then (psi, schemaName) - 452 | else lookup cD (offset + 1) - 453 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CInst _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Substitution.cmo -c -impl src/core/substitution.ml) - File "src/core/substitution.ml", lines 105-124, characters 4-44: - 105 | ....match (n, s) with - 106 | | (_, Undefs) -> Undef - 107 | | (1, Dot (ft, _s)) -> ft - 108 | | (n, Dot (_ft, s)) -> bvarSub (n - 1) s - 109 | | (n, Shift k) -> Head (BVar (n + k)) - ... - 121 | Free BVar (n + k) ... -bp *) - 122 | Head (HClo (n + k, s, sigma)) - 123 | | (n, MSVar (k, ((s, t), sigma))) -> - 124 | Head (HMClo (n + k, ((s, t), sigma))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, (EmptySub|FSVar (_, _))) - File "src/core/substitution.ml", lines 156-159, characters 12-73: - 156 | ............function - 157 | | (Last u, 1) -> u - 158 | | (Cons (u, _), 1) -> u - 159 | | (Cons (u, tuple), n) -> nth (Dot (Obj u, s)) (tuple, n - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Last _, 0) - File "src/core/substitution.ml", lines 166-169, characters 12-73: - 166 | ............function - 167 | | (Last u, 1) -> u - 168 | | (Cons (u, _), 1) -> u - 169 | | (Cons (u, tuple), n) -> nth (Dot (Obj u, s)) (tuple, n - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Last _, 0) - File "src/core/substitution.ml", lines 147-194, characters 7-10: - 147 | .......begin match bvarSub n s with - 148 | | Head (BVar x) -> - 149 | Head (Proj (BVar x, k)) - 150 | - 151 | | Head (PVar _ as h) -> - ... - 191 | | Head (AnnH _ ) -> failwith "Found head that is AnnH" - 192 | | Head (MMVar _ ) -> failwith "Found head that is MMVar" - 193 | | Head _ -> failwith "Found head that is not a BVar or PVar" - 194 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/substitution.ml", lines 203-206, characters 12-73: - 203 | ............function - 204 | | (Last u, 1) -> (u, s) - 205 | | (Cons (u, _), 1) -> (u, s) - 206 | | (Cons (u, tuple), n) -> nth (Dot (Obj u, s)) (tuple, n - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Last _, 0) - File "src/core/substitution.ml", lines 197-210, characters 7-10: - 197 | .......begin match frontSub (Head h) s with - 198 | | Head h' -> - 199 | Head (Proj (h', k)) - 200 | - 201 | | Obj (Tuple (_, tuple)) -> - ... - 207 | in - 208 | (* Obj (Clo (nth s (tuple, k))) *) - 209 | Obj (Pair.fst (nth s (tuple, k))) - 210 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Obj (Lam (_, _, _)|Root (_, _, _, _)|LFHole (_, _, _)|Clo _) - File "src/core/substitution.ml", lines 213-214, characters 7-26: - 213 | .......let Head h' = frontSub (Head h) s in - 214 | Head (AnnH (h', a)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Undef|Obj _) - File "src/core/substitution.ml", lines 138-221, characters 4-35: - 138 | ....match ft with - 139 | | Head (HClo (n, s', sigma)) -> Head (HClo (n, s', comp sigma s)) - 140 | | Head (HMClo (n, ((s', theta), sigma))) -> Head (HMClo (n, ((s', theta), comp sigma s))) - 141 | | Head (BVar n) -> bvarSub n s - 142 | | Head (FVar _) -> ft - ... - 218 | | Obj u -> Obj (Clo (u, s)) - 219 | | Undef -> Undef - 220 | | Head (MMVar (n, s')) -> Head (MMVar (n, comp s' s)) - 221 | | Head (FPVar (_n, _s' )) -> ft - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head (MPVar _|FMVar _) - File "src/core/substitution.ml", line 263, characters 13-60: - 263 | let decSub (TypDecl (x, tA)) s = TypDecl (x, TClo (tA, s)) - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/substitution.ml", lines 292-300, characters 6-33: - 292 | ......match s with - 293 | | EmptySub -> None - 294 | | Undefs -> None - 295 | | Shift _ -> None - 296 | | Dot (Undef, s') -> lookup (n + 1) s' p - 297 | | Dot (Head (BVar k), s') -> - 298 | if k = p - 299 | then Some (Head (BVar n)) - 300 | else lookup (n + 1) s' p - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dot - (Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)), - _) - File "src/core/substitution.ml", lines 314-324, characters 6-37: - 314 | ......match s with - 315 | | EmptySub -> - 316 | invert'' maxoffset Undefs - 317 | | Undefs -> - 318 | invert'' maxoffset Undefs - ... - 321 | | Dot (Head (BVar k), s') -> - 322 | invert' (n + 1) s' (max k maxoffset) - 323 | | Dot (_, s') -> (* Is this really necessary? -ac *) - 324 | invert' (n + 1) s' maxoffset - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (SVar (_, _, _)|FSVar (_, _)|MSVar (_, _)) - File "src/core/substitution.ml", lines 335-350, characters 4-65: - 335 | ....match (s, cPsi) with - 336 | | (Shift _ (* 0 *), Null) -> - 337 | Null - 338 | | (Shift _, CtxVar psi) -> - 339 | CtxVar psi - ... - 347 | | (Dot (Undef, t), DDec (cPsi, _)) -> - 348 | strengthen t cPsi - 349 | | (Shift n, cPsi) -> - 350 | strengthen (Dot (Head (BVar (n + 1)), Shift (n + 1))) cPsi - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Dot (Head (BVar _), _), (Null|CtxVar _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Subord.cmo -c -impl src/core/subord.ml) - File "src/core/subord.ml", lines 98-101, characters 7-43: - 98 | .......function - 99 | | Atom _ -> [tA] - 100 | | PiTyp ((TypDecl (_, tA1), _, _), tA2) -> - 101 | extract_neg tA1 @ extract_pos tA2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/subord.ml", lines 103-106, characters 7-43: - 103 | .......function - 104 | | Atom _ -> [] - 105 | | PiTyp ((TypDecl (_, tA1), _, _), tA2) -> - 106 | extract_pos tA1 @ extract_neg tA2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/subord.ml", lines 85-112, characters 2-47: - 85 | ..match tA with - 86 | | Atom (_, a, _) -> - 87 | Store.Cid.Typ.freeze a; - 88 | if List.exists - 89 | begin fun type_in_basis -> - ... - 109 | If we keep this, then we might not strengthen enough... -bp*) - 110 | List.fold_left (fun l tA -> relevant tA basis @ l) [] (extract_neg tA1) - 111 | @ relevant tA2 basis - 112 | | Sigma typRec -> relevantTypRec typRec basis - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/subord.ml", lines 159-161, characters 9-71: - 159 | .........match psi with - 160 | | CtxOffset _ -> Context.lookupCtxVarSchema cD psi - 161 | | CInst ({ typ = CTyp (Some cid_schema); _ }, _) -> cid_schema - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CInst ({typ=CTyp None; _ }, _) - File "src/core/subord.ml", lines 155-187, characters 4-10: - 155 | ....match cPsi with - 156 | | Null -> (Shift 0, Null) (* . |- shift(noCtx, 0) : . *) - 157 | | CtxVar psi -> - 158 | let schema = - 159 | match psi with - ... - 184 | (* cPsi,x:tA |- dot1 thin_s <= cPsi', x:tA' where tA = [thin_s]([thin_s_inv]tA) *) - 185 | let thin_s_inv = Substitution.LF.invert thin_s in - 186 | (Substitution.LF.dot1 thin_s, DDec (cPsi', TypDecl (name, TClo (tA, thin_s_inv)))) - 187 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/subord.ml", line 189, characters 8-45: - 189 | inner (match tP with Atom (_, a, _) -> [a]) cPsi - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((_, _, _), _)|Sigma _|TClo (_, _)) - File "src/core/subord.ml", lines 215-216, characters 16-21: - 215 | ................let (_, Decl { typ = CTyp (Some s_cid); _ }) = Store.FCVar.get psi in - 216 | s_cid - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp None; _ }) - File "src/core/subord.ml", lines 205-238, characters 4-10: - 205 | ....match Whnf.cnormDCtx (cPsi, MShift 0) with - 206 | | Null -> (Shift 0, Null) (* . |- shift(noCtx, 0) : . *) - 207 | | CtxVar psi -> - 208 | begin - 209 | try - ... - 235 | (* cPsi,x:tA |- dot1 thin_s <= cPsi', x:tA' where tA = [thin_s]([thin_s_inv]tA) *) - 236 | let thin_s_inv = Substitution.LF.invert thin_s in - 237 | (Substitution.LF.dot1 thin_s, DDec (cPsi', TypDecl (name, TClo (tA, thin_s_inv)))) - 238 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/subord.ml", lines 249-251, characters 11-24: - 249 | ...........let (_, Decl { typ = CTyp _; _ }) = Store.FCVar.get psi in - 250 | p.fmt "[thin'] CtxName psi = %a FOUND" - 251 | Name.pp psi - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp (_, _); _ }) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Ctxsub.cmo -c -impl src/core/ctxsub.ml) - File "src/core/ctxsub.ml", lines 46-65, characters 2-36: - 46 | ..match sA' with - 47 | | (PiTyp ((decl, _, _), tA'), s') -> - 48 | let (tM , sAmv) = - 49 | lowerMVar - 50 | (DDec (cPsi, Substitution.LF.decSub decl s')) - ... - 62 | , Nil - 63 | , Plicity.explicit - 64 | ) , - 65 | ClTyp(MTyp (TClo sA') , cPsi)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _, _) - File "src/core/ctxsub.ml", lines 88-158, characters 2-89: - 88 | ..function - 89 | | Null -> - 90 | (* Substitution.LF.id --changed 2010-07-26*) - 91 | (cD, ctxShift psi, 0) - 92 | - ... - 155 | - 156 | | DDec (_, TypDecl _) -> - 157 | (* For the moment, assume tA atomic. *) - 158 | Error.raise_not_implemented "[ctxToSub_mclosed] non-atomic cPsi entry not supported" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/ctxsub.ml", lines 174-216, characters 2-11: - 174 | ..function - 175 | | Null -> - 176 | (* Substitution.LF.id --changed 2010-07-26*) - 177 | ctxShift cPhi - 178 | - ... - 213 | (* dprint (fun () -> "shifted = " ^ subToString shifted);*) - 214 | let result = Dot (front, s) in - 215 | dprintf (fun p -> p.fmt "result = %a@\n" pp_sub result); - 216 | result - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/ctxsub.ml", lines 250-255, characters 2-59: - 250 | ..function - 251 | | Empty -> MShift (Context.length cD0) - 252 | | Dec (cD', Decl { name = n; typ = mtyp; plicity; inductivity }) -> - 253 | let t = mctxToMMSub cD0 cD' in - 254 | let mtyp' = Whnf.cnormMTyp (mtyp, t) in - 255 | MDot (mdeclToMMVar cD0 n mtyp' plicity inductivity, t) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/ctxsub.ml", lines 261-263, characters 2-35: - 261 | ..function - 262 | | t when n <= 0 -> t - 263 | | MDot (_, t') -> drop (n - 1) t' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MShift _ - (However, some guarded clause may match this value.) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__ConvSigma.cmo -c -impl src/core/convSigma.ml) - File "src/core/convSigma.ml", lines 20-22, characters 2-54: - 20 | ..match (conv_list, k) with - 21 | | (d :: conv_list', 1) -> d - 22 | | (d :: conv_list', _) -> d + map conv_list' (k - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ([], _) - File "src/core/convSigma.ml", lines 44-52, characters 2-21: - 44 | ..match tM with - 45 | | LF.Lam (loc, x, tN) -> - 46 | let tN' = strans_norm cD (LF.DDec (cPsi, LF.TypDeclOpt x)) (tN, S.LF.dot1 s) (1 :: conv_list) in - 47 | LF.Lam (loc, x, tN') - 48 | | LF.Root (loc, h, tS, plicity) -> - 49 | let h' = strans_head loc cD cPsi h conv_list in - 50 | let tS' = strans_spine cD cPsi (tS, s) conv_list in - 51 | LF.Root (loc, h', tS', plicity) - 52 | | LF.LFHole _ -> tM - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Clo _|Tuple (_, _)) - File "src/core/convSigma.ml", lines 55-101, characters 2-8: - 55 | ..match h with - 56 | | LF.BVar x -> LF.BVar (map conv_list x) - 57 | - 58 | | LF.MVar (LF.Offset u, sigma) -> - 59 | LF.MVar (LF.Offset u, strans_sub cD cPsi sigma conv_list) - ... - 98 | LF.BVar x' - 99 | with - 100 | | _ -> LF.Proj (LF.BVar x, j) - 101 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Proj - ((Const _|MMVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - HClo (_, _, _)|HMClo (_, _)), - _) - File "src/core/convSigma.ml", lines 112-118, characters 2-26: - 112 | ..match mf with - 113 | | LF.ClObj (phat, LF.MObj tM) -> - 114 | LF.ClObj (phat, LF.MObj (strans_norm cD cPsi (tM, S.LF.id) conv_list )) - 115 | | LF.ClObj (phat, LF.PObj h) -> - 116 | LF.ClObj (phat, LF.PObj (strans_head Location.ghost cD cPsi h conv_list)) - 117 | | LF.MV u -> LF.MV u - 118 | | LF.MUndef -> LF.MUndef - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, SObj _) - File "src/core/convSigma.ml", lines 121-123, characters 2-55: - 121 | ..function - 122 | | (0, xs) -> n - 123 | | (k, x :: xs) -> shift_conv_list (n + x) (k - 1, xs) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (1, []) - File "src/core/convSigma.ml", lines 163-170, characters 2-59: - 163 | ..match tA with - 164 | | LF.Atom (loc, a, tS ) -> - 165 | LF.Atom (loc, a, strans_spine cD cPsi (tS, s) conv_list ) - 166 | - 167 | | LF.PiTyp ((LF.TypDecl (x, tA), depend, plicity), tB) -> - 168 | let tA' = strans_typ cD cPsi (tA, s) conv_list in - 169 | let tB' = strans_typ cD cPsi (tB, S.LF.dot1 s) (1 :: conv_list) in - 170 | LF.PiTyp ((LF.TypDecl (x, tA'), depend, plicity), tB') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/convSigma.ml", lines 384-432, characters 2-24: - 384 | ..match Whnf.whnfTyp sA with - 385 | | LF.Sigma tRec as tA, s -> - 386 | (* FIXME: this doesn't do any strengthening !! -je *) - 387 | let tH = - 388 | mk_head ((new_mxvar n (cD, cPsi, LF.tclo tA s) plicity Inductivity.not_inductive, Whnf.m_id), s) - ... - 429 | let tN = - 430 | etaExpandStrGeneric new_mxvar mk_head loc cD cPsi' (tB, S.LF.dot1 s) plicity n (x :: names) - 431 | in - 432 | LF.Lam (loc, x, tN) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Store.cmo -c -impl src/core/store.ml) - File "src/core/store.ml", lines 212-217, characters 6-45: - 212 | ......function - 213 | | Int.LF.Atom(_, b, _) -> - 214 | List.iter (fun a -> addSubord a b) acc ; [b] - 215 | - 216 | | Int.LF.PiTyp((Int.LF.TypDecl(_, tA1), _, _), tA2) -> - 217 | inspect (acc @ (inspect [] tA1)) tA2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/store.ml", lines 222-226, characters 6-56: - 222 | ......function - 223 | | Int.LF.Typ -> - 224 | List.iter (fun a -> addSubord a cid_tp) acc - 225 | | Int.LF.PiKind((Int.LF.TypDecl(_, tA1), _, _), tK2) -> - 226 | inspectKind cid_tp (acc @ (inspect [] tA1)) tK2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiKind ((TypDeclOpt _, _, _), _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Whnf.cmo -c -impl src/core/whnf.ml) - File "src/core/whnf.ml", lines 36-39, characters 2-73: - 36 | ..match cPsi with - 37 | | Null -> tA - 38 | | DDec (cPsi', decl) -> - 39 | raiseType cPsi' (PiTyp ((decl, Depend.maybe, Plicity.implicit), tA)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar _ - File "src/core/whnf.ml", lines 133-148, characters 2-64: - 133 | ..match sA' with - 134 | | (PiTyp ((decl, _, _), tA'), s') -> - 135 | let (u', tM) = - 136 | lowerMVar' - 137 | (DDec (cPsi, LF.decSub decl s')) - ... - 145 | - 146 | | (Atom (loc, a, tS), s') -> - 147 | let u' = newMVar None (cPsi, Atom (loc, a, SClo (tS, s'))) plicity inductivity in - 148 | (u', Root (Location.ghost, MVar (u', LF.id), Nil, plicity)).................... - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _, _) - File "src/core/whnf.ml", lines 152-162, characters 2-25: - 152 | ..match (u, sA) with - 153 | | ( Inst { instantiation; typ = ClTyp (_, cPsi); plicity; inductivity; _ } - 154 | , (PiTyp _, _) - 155 | ) -> - 156 | let (u', tM) = lowerMVar' cPsi sA plicity inductivity in - ... - 159 | - 160 | | (_, (TClo (tA, s), s')) -> lowerMVar1 u (tA, LF.comp s s') - 161 | - 162 | | (_, (Atom _, _)) -> u - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Inst {typ=ClTyp (_, _); _ }, (Sigma _, _)) - File "src/core/whnf.ml", lines 319-329, characters 4-31: - 319 | ....match s with - 320 | | MShift _ -> None - 321 | | MDot (MUndef, t') -> lookup (n + 1) t' p - 322 | - 323 | | MDot (MV k, t') - ... - 326 | | MDot (ClObj (_, PObj (PVar (k, Shift 0))), t') -> - 327 | if k = p - 328 | then Some n - 329 | else lookup (n + 1) t' p - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MDot (CObj (CtxVar (CtxName _|CInst _)), _) - File "src/core/whnf.ml", lines 385-387, characters 7-59: - 385 | .......match normHead (h, sigma) with - 386 | | Head h' -> Root (loc, h', normSpine (tS, sigma), plicity) - 387 | | Obj tM -> reduce (tM, LF.id) (normSpine (tS, sigma)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/whnf.ml", lines 404-407, characters 5-8: - 404 | .....begin match normMMVar mmt with - 405 | | ResMM mmt' -> Head (HMClo (k, (mmt', normSub' (s, sigma)))) - 406 | | Result (ISub r) -> normFt' (normFt' (LF.bvarSub k r, s), sigma) - 407 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (INorm _|IHead _|ICtx _) - File "src/core/whnf.ml", lines 409-413, characters 5-8: - 409 | .....begin match normMMVar mmt with - 410 | (* The order in which we normalize mm, n, s, and sigma seems to matter..*) - 411 | | ResMM mmt' -> Head (MMVar (mmt', normSub' (s, sigma))) - 412 | | Result (INorm n) -> Obj (norm (norm (n, s), sigma)) - 413 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 415-419, characters 5-8: - 415 | .....begin match normMMVar mmt with - 416 | | ResMM mmt' -> Head (MPVar (mmt', normSub' (s, sigma))) - 417 | | Result (IHead h) -> normFt' (normHead (h, s), sigma) - 418 | | Result (INorm n) -> Obj (norm (norm (n, s), sigma)) - 419 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (ISub _|ICtx _) - File "src/core/whnf.ml", lines 422-425, characters 5-8: - 422 | .....begin match normMMVar (mm, MShift 0) with - 423 | | ResMM (mm', _) -> Head (MVar (Inst mm', normSub' (s, sigma))) - 424 | | Result (INorm n) -> Obj (norm (norm (n, s), sigma)) - 425 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 449-451, characters 2-32: - 449 | ..match ft with - 450 | | Head h -> normHead (h, s) - 451 | | Obj tM -> Obj (norm (tM, s)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/whnf.ml", lines 454-457, characters 2-37: - 454 | ..match tM with - 455 | | INorm n -> INorm (cnorm (n, mt)) - 456 | | IHead h -> IHead (cnormHead (h, mt)) - 457 | | ISub s -> ISub (cnormSub (s, mt)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ICtx _ - File "src/core/whnf.ml", lines 463-466, characters 5-8: - 463 | .....begin match normHead (h, s) with - 464 | | Obj tM -> MObj tM - 465 | | Head h' -> PObj h' - 466 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/whnf.ml", lines 470-473, characters 2-64: - 470 | ..match normFt' (ft, LF.id) with - 471 | | Head h -> Head (Proj (h, i)) - 472 | | Obj (Tuple (_, tM)) -> Obj (reduceTuple (tM, i)) - 473 | | Obj _ -> Error.raise_violation "[reduceTupleFt] not a tuple" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/whnf.ml", lines 476-479, characters 2-50: - 476 | ..function - 477 | | (Last tM, 1) -> tM - 478 | | (Cons (tM, _), 1) -> tM - 479 | | (Cons (_, rest), k) -> reduceTuple (rest, k-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Last _, 0) - File "src/core/whnf.ml", lines 507-521, characters 2-17: - 507 | ..function - 508 | | (LFHole (l, _, _), _) -> - 509 | raise (InvalidLFHole l) - 510 | - 511 | | (Root (loc, h, sp, plicity), spine) -> - ... - 518 | Lam (loc, n, tM') - 519 | - 520 | | (Clo sM, tS) -> - 521 | reduce sM tS - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _), SClo _) - File "src/core/whnf.ml", lines 524-526, characters 2-54: - 524 | ..function - 525 | | (Nil, s) -> s - 526 | | (App (tN, tS), s) -> App (tN, appendSpine (tS, s)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (SClo _, _) - File "src/core/whnf.ml", lines 537-543, characters 5-8: - 537 | .....begin match mmvar.instantiation.contents with - 538 | | Some (ISub s) -> - 539 | let s0 = cnormSub (LF.comp (normSub s) (normSub s'), mt) in - 540 | LF.comp (Shift n) s0 - 541 | | None -> - 542 | MSVar (n, ((mmvar, mt), normSub s')) - 543 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ICtx _) - File "src/core/whnf.ml", lines 562-573, characters 2-37: - 562 | ..match tA with - 563 | | Atom (loc, a, tS) -> - 564 | Atom (loc, a, normSpine (tS, sigma)) - 565 | - 566 | | PiTyp ((TypDecl _ as decl, depend, plicity), tB) -> - ... - 570 | normTyp (tA, LF.comp s sigma) - 571 | - 572 | | Sigma recA -> - 573 | Sigma (normTypRec (recA, sigma)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/whnf.ml", lines 620-629, characters 5-8: - 620 | .....begin match !u with - 621 | | None -> - 622 | (Some (CInst (mmvar, mcomp theta t)), k) - 623 | | Some (ICtx cPsi) -> - 624 | (* | (Some (CInst ((_, { contents = Some (ICtx cPsi) }, _, _, _, _), theta)), k) -> *) - 625 | begin match Context.dctxToHat (cnormDCtx (cPsi, mcomp theta t)) with - 626 | | (None, i) -> (None, k + i) (* cnorm_psihat (None, k + i) t *) - 627 | | (Some cvar', i) -> (Some cvar', k + i) (* cnorm_psihat (Some cvar', k + i) t *) - 628 | end - 629 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/whnf.ml", lines 631-641, characters 5-8: - 631 | .....begin match LF.applyMSub offset t with - 632 | | CObj cPsi -> - 633 | begin match Context.dctxToHat cPsi with - 634 | | (None, i) -> (None, k + i) - 635 | | (Some cvar', i) -> (Some cvar', k + i) - ... - 638 | | ClObj _ -> - 639 | Error.raise_violation - 640 | (Format.asprintf "[cnorm_psihat] ClObj impossible; offset %d" offset) - 641 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MUndef - File "src/core/whnf.ml", lines 656-659, characters 5-8: - 656 | .....begin match LF.applyMSub k t with - 657 | | MV k' -> Head (MVar (Offset k', s')) - 658 | | ClObj (_, MObj tM) -> Obj (norm (tM, s')) - 659 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, (PObj _|SObj _)) - File "src/core/whnf.ml", lines 662-666, characters 5-8: - 662 | .....begin match LF.applyMSub k t with - 663 | | MV k' -> Head (PVar (k', s')) - 664 | | ClObj (_, PObj h) -> normHead (h, s') - 665 | | ClObj (_, MObj tM) -> Obj (norm (tM, s')) - 666 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, SObj _) - File "src/core/whnf.ml", lines 669-672, characters 5-8: - 669 | .....begin match LF.applyMSub sv t with - 670 | | MV sv' -> Head (HClo (k, sv', s')) - 671 | | ClObj (_, SObj r) -> normFt' (LF.bvarSub k r, s') - 672 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, (MObj _|PObj _)) - File "src/core/whnf.ml", lines 674-677, characters 5-8: - 674 | .....begin match normMMVar mmt with - 675 | | ResMM (mm', mt) -> Head (MMVar ((mm', cnormMSub' (mt, t)), cnormSub (s, t))) - 676 | | Result (INorm n) -> Obj (cnorm (norm (n, s), t)) - 677 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 679-684, characters 5-8: - 679 | .....begin match normMMVar mmt with - 680 | | ResMM (mm', mt) -> Head (MPVar ((mm', cnormMSub' (mt, t)), cnormSub (s, t))) - 681 | | Result (IHead h) -> cnormFt' (normHead (h, s), t) - 682 | | Result (INorm n) -> - 683 | Obj (cnorm (norm (n, s), t)) - 684 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (ISub _|ICtx _) - File "src/core/whnf.ml", lines 686-689, characters 5-8: - 686 | .....begin match normMMVar mmt with - 687 | | ResMM (mm', mt) -> Head (HMClo (k, ((mm', cnormMSub' (mt, t)), cnormSub (s, t)))) - 688 | | Result (ISub r) -> cnormFt' (normFt' (LF.bvarSub k r, s), t) - 689 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (INorm _|IHead _|ICtx _) - File "src/core/whnf.ml", lines 691-694, characters 5-8: - 691 | .....begin match normMMVar (mm, MShift 0) with - 692 | | ResMM (mm', _) -> Head (MVar (Inst mm', cnormSub (s, t))) - 693 | | Result (INorm n) -> Obj (norm (n, s)) - 694 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 698-700, characters 2-38: - 698 | ..function - 699 | | (Head h, t) -> cnormHead' (h, t) - 700 | | (Obj tM, t) -> Obj (cnorm (tM, t)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Undef, _) - File "src/core/whnf.ml", lines 713-721, characters 5-8: - 713 | .....begin match cnormHead' (head, t) with - 714 | | Head h' -> Root (loc, h', cnormSpine (tS, t), plicity) - 715 | | Obj tM -> - 716 | (* in this ends up evaluating to a Root, we want to keep the - 717 | plicity that we had here *) - 718 | map_plicity - 719 | (fun _ -> plicity) - 720 | (reduce (tM, LF.id) (cnormSpine (tS, t))) - 721 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/whnf.ml", lines 728-729, characters 2-17: - 728 | ..match cnormHead' (h, t) with - 729 | | Head h' -> h' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Undef|Obj _) - File "src/core/whnf.ml", lines 752-758, characters 5-8: - 752 | .....begin match LF.applyMSub offset t with - 753 | | MV offset' -> SVar (offset', n, cnormSub (s', t)) - 754 | | ClObj (_, SObj r) -> - 755 | LF.comp (LF.comp (Shift n) r) (cnormSub (s', t)) - 756 | | ClObj _ -> - 757 | Error.raise_violation "[cnormSub] t @ offset must give an MV or ClObj SObj" - 758 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|CObj _) - File "src/core/whnf.ml", lines 764-775, characters 5-56: - 764 | .....match mmvar.instantiation.contents with - 765 | | Some (ISub s) -> - 766 | dprintf - 767 | begin fun p -> - 768 | p.fmt "[cnormSub] @[<v>MSVar - MSInst for @[%a@]@]" - ... - 772 | let s0' = LF.comp (Shift n) s0 in - 773 | cnormSub (s0', t) - 774 | | None -> - 775 | MSVar (n, ((mmvar, cnormMSub (mcomp mt t)), s')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ICtx _) - File "src/core/whnf.ml", lines 793-803, characters 2-34: - 793 | ..match tA with - 794 | | Atom (loc, a, tS) -> - 795 | Atom (loc, a, cnormSpine (tS, t)) - 796 | - 797 | | PiTyp ((TypDecl _ as decl, depend, plicity), tB) -> - ... - 800 | | TClo (tA, s) -> normTyp (cnormTyp (tA, t), cnormSub (s, t)) - 801 | - 802 | | Sigma recA -> - 803 | Sigma (cnormTypRec (recA, t)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/whnf.ml", lines 832-837, characters 5-8: - 832 | .....begin match !u with - 833 | | None -> - 834 | CtxVar (CInst (mmvar, mcomp theta t)) - 835 | | Some (ICtx cPhi) -> - 836 | cnormDCtx (cPhi, mcomp theta t) - 837 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/whnf.ml", lines 840-843, characters 5-8: - 840 | .....begin match LF.applyMSub psi t with - 841 | | CObj cPsi' -> normDCtx cPsi' - 842 | | MV k -> CtxVar (CtxOffset k) - 843 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|ClObj (_, _)) - File "src/core/whnf.ml", lines 886-889, characters 5-8: - 886 | .....begin match mmvar.instantiation.contents with - 887 | | None -> cPsi - 888 | | Some (ICtx cPhi) -> normDCtx (cnormDCtx (cPhi, theta)) - 889 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/whnf.ml", lines 960-973, characters 8-11: - 960 | ........begin match h' with - 961 | | BVar i -> - 962 | begin match LF.bvarSub i (LF.comp r sigma) with - 963 | | Obj tM -> whnfRedex ((tM, LF.id), (tS, sigma)) - 964 | | Head (BVar k) -> (Root (loc, BVar k, SClo (tS, sigma), plicity), LF.id) - ... - 970 | let h' = PVar (p, LF.comp (LF.comp s r) sigma) in - 971 | whnf (Root (loc, h', SClo (tS, sigma), plicity), LF.id) - 972 | | MPVar ((q, t'), r') -> whnf (Root (loc, MPVar ((q, t'), LF.comp r' r), SClo (tS, sigma), plicity), LF.id) - 973 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _|FPVar _| - HClo (_, _, _)|HMClo (_, _)) - File "src/core/whnf.ml", lines 956-979, characters 5-8: - 956 | .....begin match u with - 957 | (* MPVar instantiation must be a head *) - 958 | | Some (IHead h) -> - 959 | let h' = cnormHead (h, t) in - 960 | begin match h' with - ... - 976 | let (cPsi', tA') = (normDCtx cPsi, normTyp (tA, LF.id)) in - 977 | let p' = { mmvar with typ = ClTyp (PTyp tA', cPsi') } in - 978 | (Root (loc, MPVar ((p', t), LF.comp r sigma), SClo (tS, sigma), plicity), LF.id) - 979 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 954-979, characters 5-8: - 954 | .....let ClTyp (PTyp tA, cPsi) = mmvar.typ in - 955 | let u = mmvar.instantiation.contents in - 956 | begin match u with - 957 | (* MPVar instantiation must be a head *) - 958 | | Some (IHead h) -> - ... - 976 | let (cPsi', tA') = (normDCtx cPsi, normTyp (tA, LF.id)) in - 977 | let p' = { mmvar with typ = ClTyp (PTyp tA', cPsi') } in - 978 | (Root (loc, MPVar ((p', t), LF.comp r sigma), SClo (tS, sigma), plicity), LF.id) - 979 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((MTyp _|STyp (_, _)), _) - File "src/core/whnf.ml", lines 995-1011, characters 8-11: - 995 | ........begin match whnfTyp (tA, LF.id) with - 996 | | (Atom (loc', a, tS'), _ (* id *)) -> - 997 | (* meta-variable is of atomic type; tS = Nil *) - 998 | let u' = { mmvar with typ = ClTyp (MTyp (Atom (loc', a, tS')), cPsi) } in - 999 | (Root (loc, MMVar ((u', t), LF.comp r sigma), SClo (tS, sigma), plicity), LF.id) - ... - 1008 | (* let _ = lowerMMVar cD u in - 1009 | whnf (tM, sigma) *) - 1010 | Error.raise_violation "Meta^2-variable needs to be of atomic type" - 1011 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Sigma _|TClo _), _) - File "src/core/whnf.ml", lines 985-1012, characters 5-8: - 985 | .....begin match u with - 986 | (* MMVar instantiation must be normal *) - 987 | | Some (INorm tM) -> - 988 | (* constraints associated with u must be in solved form *) - 989 | let tM' = cnorm (tM, t) in - ... - 1009 | whnf (tM, sigma) *) - 1010 | Error.raise_violation "Meta^2-variable needs to be of atomic type" - 1011 | end - 1012 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 983-1012, characters 5-8: - 983 | .....let ClTyp (MTyp tA, cPsi) = mmvar.typ in - 984 | let u = mmvar.instantiation.contents in - 985 | begin match u with - 986 | (* MMVar instantiation must be normal *) - 987 | | Some (INorm tM) -> - ... - 1009 | whnf (tM, sigma) *) - 1010 | Error.raise_violation "Meta^2-variable needs to be of atomic type" - 1011 | end - 1012 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/whnf.ml", lines 1041-1053, characters 8-11: - 1041 | ........begin match whnfTyp (tA, LF.id) with - 1042 | | (Atom (loc', a, tS'), _ (* id *)) -> - 1043 | (* meta-variable is of atomic type; tS = Nil *) - 1044 | let u' = Inst { mmvar with typ = ClTyp (MTyp (Atom (loc', a, tS')), cPsi) } in - 1045 | (Root (loc, MVar (u', LF.comp r' sigma), SClo (tS, sigma), plicity), LF.id) - ... - 1050 | *) - 1051 | ignore (lowerMVar cvar); - 1052 | whnf (tM, sigma) - 1053 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Sigma _|TClo _), _) - File "src/core/whnf.ml", lines 1036-1053, characters 8-11: - 1036 | ........let ClTyp (MTyp tA, cPsi) = mmvar.typ in - 1037 | (* note: we could split this case based on tA; - 1038 | * this would avoid possibly building closures with id - 1039 | *) - 1040 | let r' = normSub r in - ... - 1050 | *) - 1051 | ignore (lowerMVar cvar); - 1052 | whnf (tM, sigma) - 1053 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/whnf.ml", lines 1023-1054, characters 5-8: - 1023 | .....begin match u with - 1024 | | Some (INorm tM) -> - 1025 | (* constraints associated with u must be in solved form *) - 1026 | let r' = normSub r in - 1027 | let tM' = - ... - 1051 | ignore (lowerMVar cvar); - 1052 | whnf (tM, sigma) - 1053 | end - 1054 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 1073-1082, characters 5-8: - 1073 | .....begin match LF.bvarSub i sigma with - 1074 | | Head (BVar j) -> - 1075 | ( Root (loc, Proj (BVar j, k), SClo (tS, sigma), plicity) - 1076 | , LF.id - 1077 | ) - 1078 | | Head (PVar (q, s)) -> - 1079 | ( Root (loc, Proj (PVar (q, s), k), SClo (tS, sigma), plicity) - 1080 | , LF.id - 1081 | ) - 1082 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/whnf.ml", lines 1098-1109, characters 11-14: - 1098 | ...........begin match LF.bvarSub i (LF.comp r sigma) with - 1099 | | Head (BVar x) -> - 1100 | ( Root (loc, Proj (BVar x, k), SClo (tS, sigma), plicity) - 1101 | , LF.id - 1102 | ) - ... - 1106 | ) - 1107 | | Undef -> - 1108 | Error.raise_violation ("[whnf] Undef looked up at " ^ string_of_int i) - 1109 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Obj _ - File "src/core/whnf.ml", lines 1096-1118, characters 8-11: - 1096 | ........begin match cnormHead (h, t) with - 1097 | | BVar i -> - 1098 | begin match LF.bvarSub i (LF.comp r sigma) with - 1099 | | Head (BVar x) -> - 1100 | ( Root (loc, Proj (BVar x, k), SClo (tS, sigma), plicity) - ... - 1115 | | MPVar ((q, t'), r') -> - 1116 | let h' = Proj (MPVar ((q, t'), LF.comp (LF.comp r' r) sigma), k) in - 1117 | (Root (loc, h', SClo (tS, sigma), plicity), LF.id) - 1118 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _|FPVar _| - HClo (_, _, _)|HMClo (_, _)) - File "src/core/whnf.ml", lines 1120-1127, characters 8-9: - 1120 | ........let ClTyp (PTyp tA, cPsi) = mmvar.typ in - 1121 | (* constraints associated with q must be in solved form *) - 1122 | let (cPsi', tA') = (normDCtx cPsi, normTyp (tA, LF.id)) in - 1123 | let p' = { mmvar with typ = ClTyp (PTyp tA', cPsi') } in - 1124 | let h' = Proj (MPVar ((p', t), LF.comp r sigma), k) in - 1125 | ( Root (loc, h', SClo (tS, sigma), plicity) - 1126 | , LF.id - 1127 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((MTyp _|STyp (_, _)), _) - File "src/core/whnf.ml", lines 1093-1128, characters 5-8: - 1093 | .....begin match mmvar.instantiation.contents with - 1094 | | Some (IHead h) -> - 1095 | (* constraints associated with q must be in solved form *) - 1096 | begin match cnormHead (h, t) with - 1097 | | BVar i -> - ... - 1125 | ( Root (loc, h', SClo (tS, sigma), plicity) - 1126 | , LF.id - 1127 | ) - 1128 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 1143-1157, characters 2-39: - 1143 | ..function - 1144 | | ((LFHole (l, id, name), s1), _) -> raise (InvalidLFHole l) - 1145 | | ((Root _ as root, s1), (Nil, _)) -> whnf (root, s1) - 1146 | - 1147 | | ((Lam (_, _, tM), s1), (App (tN, tS), s2)) -> - ... - 1154 | whnfRedex (sM, (tS, LF.comp s2' s2)) - 1155 | - 1156 | | ((Clo (tM, s), s1), sS) -> - 1157 | whnfRedex ((tM, LF.comp s s1), sS) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Root (_, _, _, _), _), (App (_, _), _)) - File "src/core/whnf.ml", lines 1180-1191, characters 2-15: - 1180 | ..function - 1181 | | [] -> true - 1182 | | ({ contents = Queued _ } :: cnstrs) -> - 1183 | constraints_solved cnstrs - 1184 | | ({ contents = Eqn (_, _, _, INorm tM, INorm tN) } :: cnstrs) -> - ... - 1188 | | ({ contents = Eqn (_, _, _, IHead h1, IHead h2) } :: cnstrs) -> - 1189 | if convHead (h1, LF.id) (h2, LF.id) - 1190 | then constraints_solved cnstrs - 1191 | else false - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - {contents=Eqn (_, _, _, INorm _, (IHead _|ISub _|ICtx _))}::_ - File "src/core/whnf.ml", lines 1283-1288, characters 2-71: - 1283 | ..match (spine1, spine2) with - 1284 | | ((Nil, _), (Nil, _)) -> true - 1285 | | ((App (tM1, spine1), s1), (App (tM2, spine2), s2)) -> - 1286 | conv (tM1, s1) (tM2, s2) && convSpine (spine1, s1) (spine2, s2) - 1287 | | (spine1, (SClo (tS, s), s')) -> convSpine spine1 (tS, LF.comp s s') - 1288 | | ((SClo (tS, s), s'), spine2) -> convSpine (tS, LF.comp s s') spine2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Nil, _), (App (_, _), _)) - File "src/core/whnf.ml", lines 1457-1465, characters 2-32: - 1457 | ..match (cPsi, cPsi') with - 1458 | | (_, Empty) -> true - 1459 | | Dec (cPsi1, TypDecl (_, tA)), Dec (cPsi2, TypDecl (_, tB)) -> - 1460 | if convTyp (tA, LF.id) (tB, LF.id) - 1461 | then convSubsetCtx cPsi1 cPsi2 - 1462 | else - 1463 | (* keep tBs around and check that tA is a subordinate of tB, - 1464 | i.e. anything in tA cannot influence tB *) - 1465 | convSubsetCtx cPsi1 cPsi' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Dec (_, TypDecl (_, _)), Dec (_, TypDeclOpt _)) - File "src/core/whnf.ml", lines 1591-1593, characters 4-76: - 1591 | ....match mO with - 1592 | | CObj cPsi -> CObj (normDCtx cPsi) - 1593 | | ClObj (phat, n) -> ClObj (cnorm_psihat phat m_id, normMObj (n, LF.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|MV _) - File "src/core/whnf.ml", lines 1604-1624, characters 2-49: - 1604 | ..function - 1605 | | Comp.TypBase (loc, c, mS) -> - 1606 | Comp.TypBase (loc, c, normMetaSpine mS) - 1607 | | Comp.TypCobase (loc, c, mS) -> - 1608 | Comp.TypCobase (loc, c, normMetaSpine mS) - ... - 1621 | Comp.TypPiBox - 1622 | (loc, (Decl { d with typ = typ' }), tau') - 1623 | - 1624 | | Comp.TypInd tau -> Comp.TypInd (normCTyp tau) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypPiBox (_, DeclOpt _, _) - File "src/core/whnf.ml", lines 1640-1643, characters 2-30: - 1640 | ..match cdecl with - 1641 | | Decl d -> - 1642 | let typ' = cnormMTyp (d.typ, t) in - 1643 | Decl { d with typ = typ' } - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/whnf.ml", lines 1646-1670, characters 2-60: - 1646 | ..function - 1647 | | (Comp.TypBase (loc, a, mS), t) -> - 1648 | let mS' = cnormMetaSpine (mS, t) in - 1649 | Comp.TypBase (loc, a, mS') - 1650 | | (Comp.TypCobase (loc, a, mS), t) -> - ... - 1667 | | (Comp.TypClo (tT, t'), t) -> - 1668 | cnormCTyp (tT, mcomp t' t) - 1669 | - 1670 | | (Comp.TypInd tau, t) -> Comp.TypInd (cnormCTyp (tau, t)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypDef (_, _, _), _) - File "src/core/whnf.ml", lines 1673-1675, characters 2-47: - 1673 | ..match cdecl with - 1674 | | Comp.CTypDecl(n, typ, wf_t) -> - 1675 | Comp.CTypDecl(n, cnormCTyp (typ, t), wf_t) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/whnf.ml", lines 1691-1707, characters 2-70: - 1691 | ..function - 1692 | | (Comp.TypBase (loc, c, mS), t) -> - 1693 | let mS' = normMetaSpine (cnormMetaSpine (mS, t)) in - 1694 | (Comp.TypBase (loc, c, mS'), m_id) - 1695 | | (Comp.TypCobase (loc, c, mS), t) -> - ... - 1704 | - 1705 | | (Comp.TypClo (tT, t'), t) -> cwhnfCTyp (tT, mcomp t' t) - 1706 | - 1707 | | (Comp.TypInd tau, t) -> (Comp.TypInd (Comp.TypClo (tau, t)), m_id) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypDef (_, _, _), _) - File "src/core/whnf.ml", lines 1902-1905, characters 2-74: - 1902 | ..match cG with - 1903 | | Empty -> Empty - 1904 | | Dec (cG, Comp.CTypDecl (x, tau, flag)) -> - 1905 | Dec (cwhnfCtx (cG, t), Comp.CTypDecl (x, Comp.TypClo (tau, t), flag)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/whnf.ml", lines 1928-1930, characters 2-62: - 1928 | ..function - 1929 | | Comp.CTypDecl (x, tau, flag) -> - 1930 | Comp.CTypDecl (x, normCTyp (cnormCTyp (tau, m_id)), flag) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/whnf.ml", lines 1957-1962, characters 2-41: - 1957 | ..match cD with - 1958 | | Empty -> Empty - 1959 | | Dec (cD, Decl d) -> - 1960 | let typ' = normMTyp d.typ in - 1961 | let cD' = normMCtx cD in - 1962 | Dec (cD', Decl { d with typ = typ' }) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/whnf.ml", lines 1990-1993, characters 2-60: - 1990 | ..match (tM1, tM2) with - 1991 | | (INorm n1, INorm n2) -> conv (n1, LF.id) (n2, LF.id) - 1992 | | (ISub s1, ISub s2) -> convSub s1 s2 - 1993 | | (IHead h1, IHead h2) -> convHead (h1, LF.id) (h2, LF.id) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (INorm _, (IHead _|ISub _|ICtx _)) - File "src/core/whnf.ml", lines 1998-2004, characters 2-25: - 1998 | ..match (mS, mS') with - 1999 | | (Comp.MetaNil, Comp.MetaNil) -> true - 2000 | | (Comp.MetaApp (mO, mT, mS, p1), Comp.MetaApp (mO', mT', mS', p2)) -> - 2001 | convMetaObj mO mO' - 2002 | && convMetaTyp mT mT' - 2003 | && convMetaSpine mS mS' - 2004 | && Plicity.(p1 = p2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MetaNil, MetaApp (_, _, _, _)) - File "src/core/whnf.ml", lines 2071-2075, characters 2-42: - 2071 | ..match (d1, d2) with - 2072 | | (CTypDeclOpt x1, CTypDeclOpt x2) -> Name.(x1 = x2) - 2073 | | (CTypDecl (x1, tau1, w1), CTypDecl (x2, tau2, w2)) -> - 2074 | Name.(x1 = x2) && Stdlib.(=) w1 w2 - 2075 | && convCTyp (tau1, m_id) (tau2, m_id) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CTypDeclOpt _, CTypDecl (_, _, _)) - File "src/core/whnf.ml", lines 2095-2105, characters 2-8: - 2095 | ..match sA with - 2096 | | (Atom (loc, _, _) as tP, s) -> - 2097 | let u = newMVar (Some n) (cPsi, tclo tP s) plicity inductivity in - 2098 | Root (loc, MVar (u, s'), Nil, plicity) - 2099 | - ... - 2102 | ( Name.location x - 2103 | , x - 2104 | , etaExpandMV (DDec (cPsi, LF.decSub decl s)) (tB, LF.dot1 s) n (LF.dot1 s') plicity inductivity - 2105 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/whnf.ml", lines 2120-2130, characters 2-8: - 2120 | ..match sA with - 2121 | | (Atom _ as tP, s) -> - 2122 | let u = newMMVar (Some n) (cD, cPsi, tclo tP s) plicity inductivity in - 2123 | Root (loc, MMVar ((u, m_id), s'), Nil, plicity) - 2124 | - ... - 2127 | ( loc - 2128 | , x - 2129 | , etaExpandMMV loc cD (DDec (cPsi, LF.decSub decl s)) (tB, LF.dot1 s) n (LF.dot1 s') plicity inductivity - 2130 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/whnf.ml", lines 2135-2141, characters 2-42: - 2135 | ..match tM with - 2136 | | Lam (_, _, tM) -> closed (tM, LF.dot1 s) - 2137 | | Root (_, h, tS, _) -> - 2138 | closedHead h - 2139 | && closedSpine (tS, s) - 2140 | | LFHole _ -> false - 2141 | | Tuple (_, tup) -> closedTuple (tup, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Clo _ - File "src/core/whnf.ml", lines 2166-2174, characters 2-28: - 2166 | ..function - 2167 | | EmptySub -> true - 2168 | | Undefs -> true - 2169 | | SVar (_, _, sigma) -> closedSub sigma - 2170 | | Shift _ -> true - 2171 | | Dot (ft, s) -> closedFront ft && closedSub s - 2172 | | MSVar (_, ((v, t), s)) -> - 2173 | (* the case for MMVar doesn't also check the substitution -je *) - 2174 | is_mmvar_instantiated v..................... - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - FSVar (_, _) - File "src/core/whnf.ml", lines 2185-2190, characters 2-40: - 2185 | ..match tA with - 2186 | | Atom (_, _, tS) -> closedSpine (tS, s) - 2187 | | PiTyp ((t_dec, _, _), tA) -> - 2188 | closedDecl (t_dec, s) - 2189 | && closedTyp (tA, LF.dot1 s) - 2190 | | Sigma recA -> closedTypRec (recA, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TClo _ - File "src/core/whnf.ml", lines 2208-2211, characters 5-8: - 2208 | .....begin match mmvar.instantiation.contents with - 2209 | | None -> false - 2210 | | Some (ICtx cPsi) -> closedDCtx (cnormDCtx (cPsi, theta)) - 2211 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/whnf.ml", lines 2241-2244, characters 2-56: - 2241 | ..function - 2242 | | CObj cPsi -> closedDCtx cPsi - 2243 | | ClObj (phat, t) -> - 2244 | closedDCtx (Context.hatToDCtx phat) && closedMObj t - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|MV _) - File "src/core/whnf.ml", lines 2255-2264, characters 2-37: - 2255 | ..function - 2256 | | Comp.TypBase (_, _, mS) -> closedMetaSpine mS - 2257 | | Comp.TypCobase (_, _, mS) -> closedMetaSpine mS - 2258 | | Comp.TypBox (_, cT) -> closedMetaTyp cT - 2259 | | Comp.TypArr (_, cT1, cT2) -> closedCTyp cT1 && closedCTyp cT2 - 2260 | | Comp.TypCross (_, cTs) -> List2.for_all (fun cT -> closedCTyp cT) cTs - 2261 | | Comp.TypPiBox (_, ctyp_decl, cT) -> - 2262 | closedCTyp cT && closedDecl ctyp_decl - 2263 | | Comp.TypClo (cT, t) -> closedCTyp (cnormCTyp (cT, t)) (* to be improved Sun Dec 13 11:45:15 2009 -bp *) - 2264 | | Comp.TypInd tau -> closedCTyp tau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDef (_, _, _) - File "src/core/whnf.ml", lines 2406-2407, characters 37-34: - 2406 | .....................................(Comp.CTypDecl (_, tau2, _)) = - 2407 | convCTyp (tau1, t1) (tau2, t2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/whnf.ml", lines 2406-2407, characters 8-34: - 2406 | ........(Comp.CTypDecl (_, tau1, _)) (Comp.CTypDecl (_, tau2, _)) = - 2407 | convCTyp (tau1, t1) (tau2, t2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/whnf.ml", lines 2412-2413, characters 32-23: - 2412 | ................................(Decl { typ = cU2; _ }) = - 2413 | convMetaTyp cU1 cU2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/whnf.ml", lines 2412-2413, characters 8-23: - 2412 | ........(Decl { typ = cU1; _ }) (Decl { typ = cU2; _ }) = - 2413 | convMetaTyp cU1 cU2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/whnf.ml", lines 2418-2420, characters 2-93: - 2418 | ..function - 2419 | | (Atom _, _) as sA -> (cPsi, whnfTyp sA) - 2420 | | (PiTyp ((decl, _, _), tB), s) -> lowerTyp (DDec (cPsi, LF.decSub decl s)) (tB, LF.dot1 s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Sigma _|TClo _), _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Prettyint.cmo -c -impl src/core/prettyint.ml) - File "src/core/prettyint.ml", lines 237-294, characters 4-39: - 237 | ....function - 238 | | LF.Atom (_, a, LF.Nil) -> - 239 | fprintf ppf "%s" - 240 | (R.render_cid_typ a) - 241 | - ... - 291 | | LF.TClo (typ, s) -> - 292 | fprintf ppf "TClo(%a,@ %a)" - 293 | (fmt_ppr_lf_typ cD cPsi lvl) typ - 294 | (fmt_ppr_lf_sub cD cPsi lvl) s - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/prettyint.ml", lines 434-545, characters 6-51: - 434 | ......function - 435 | | LF.HClo (h, s, sigma) -> - 436 | fprintf ppf "%s[%a[%a]]" - 437 | (R.render_bvar cPsi h) - 438 | (fmt_ppr_lf_offset cD) s - ... - 542 | (r_paren_if (paren s)) - 543 | - 544 | | LF.Proj (head, k) -> - 545 | fmt_head_with ("." ^ string_of_int k) head - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - AnnH (_, _) - File "src/core/prettyint.ml", lines 769-771, characters 7-52: - 769 | .......match LF.(v.typ) with - 770 | | LF.ClTyp (_, cPsi) -> - 771 | fmt_ppr_lf_iterm LF.(v.cD) cPsi lvl ppf it - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/prettyint.ml", lines 785-794, characters 7-10: - 785 | .......begin match !g with - 786 | | None -> - 787 | fprintf ppf "?%a[%a]" - 788 | Name.pp LF.(v.name) - 789 | (fmt_ppr_lf_msub cD 0) theta - 790 | - 791 | | Some (LF.ICtx cPsi) -> - 792 | fprintf ppf "%a" - 793 | (fmt_ppr_lf_dctx LF.(v.cD) 0) (Whnf.cnormDCtx (cPsi, theta)) - 794 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/prettyint.ml", lines 878-890, characters 4-38: - 878 | ....function - 879 | | LF.Null -> () - 880 | - 881 | | LF.DDec (LF.Null, LF.TypDecl (x, tA)) -> - 882 | fprintf ppf "%a : %a" (* formerly "., %s : %a" -jd 2010-06-03 *) - ... - 887 | fprintf ppf "%a, %a : %a" - 888 | (ppr_typ_decl_dctx cD) cPsi - 889 | Name.pp x - 890 | (fmt_ppr_lf_typ cD cPsi 0) tA - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/prettyint.ml", lines 974-1006, characters 4-26: - 974 | ....function - 975 | | LF.Typ -> - 976 | fprintf ppf "type" - 977 | - 978 | | LF.PiKind ((LF.TypDecl (x, a), (Depend.Yes | Depend.Maybe), Plicity.Explicit), k) -> - ... - 1003 | (l_paren_if cond) - 1004 | (fmt_ppr_lf_typ LF.Empty cPsi 1) a - 1005 | (fmt_ppr_lf_kind (LF.DDec(cPsi, LF.TypDeclOpt x)) 0) k - 1006 | (r_paren_if cond) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiKind ((TypDeclOpt _, _, _), _) - File "src/core/prettyint.ml", lines 1097-1109, characters 4-40: - 1097 | ....function - 1098 | | LF.Queued id -> - 1099 | fprintf ppf "@[QUEUED %d@]" id - 1100 | | LF.(Eqn (id, cD, cPsi, INorm tM1, INorm tM2)) -> - 1101 | fprintf ppf "@[%d.@ @[<v>@[%a@]@ =@ @[%a@]@]@]" - ... - 1106 | fprintf ppf "@[%d.@ @[<v>@[%a@]@ =@ @[%a@]@]@]" - 1107 | id - 1108 | (fmt_ppr_lf_head cD cPsi l0) h1 - 1109 | (fmt_ppr_lf_head cD cPsi l0) h2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Eqn (_, _, _, INorm _, (IHead _|ISub _|ICtx _)) - File "src/core/prettyint.ml", lines 1147-1228, characters 4-39: - 1147 | ....function - 1148 | | Comp.TypBase (_, c, mS)-> - 1149 | let cond = lvl > 10 in - 1150 | fprintf ppf "%s@[<2>%s@[%a@]@]%s" - 1151 | (l_paren_if cond) - ... - 1225 | fprintf ppf "@[%a@]*" - 1226 | (fmt_ppr_cmp_typ cD 10) tau - 1227 | else - 1228 | fmt_ppr_cmp_typ cD lvl ppf tau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDef (_, _, _) - File "src/core/prettyint.ml", lines 1236-1241, characters 4-48: - 1236 | ....function - 1237 | | Comp.PatNil -> fprintf ppf "" - 1238 | | Comp.PatApp (_, pat, pat_spine) -> - 1239 | fprintf ppf "@[%a@]@ @[%a@]" - 1240 | (fmt_ppr_cmp_pattern cD cG (lvl + 1)) pat - 1241 | (fmt_ppr_pat_spine cD cG lvl) pat_spine - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PatObs (_, _, _, _) - File "src/core/prettyint.ml", lines 1245-1248, characters 6-65: - 1245 | ......match (ms, n) with - 1246 | | (_, 0) -> ms - 1247 | | (Comp.PatNil, _) -> ms - 1248 | | (Comp.PatApp (_, _, rest), n) -> dropSpineLeft rest (n-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatObs (_, _, _, _), 1) - File "src/core/prettyint.ml", lines 1507-1550, characters 4-26: - 1507 | ....function - 1508 | | Comp.FunValue _ -> fprintf ppf " fn " - 1509 | | Comp.ThmValue _ -> fprintf ppf " rec " - 1510 | | Comp.MLamValue _ -> fprintf ppf " mlam " - 1511 | | Comp.CtxValue _ -> fprintf ppf " mlam " - ... - 1547 | fprintf ppf "%s%s%a%s" - 1548 | (l_paren_if cond) - 1549 | (R.render_cid_comp_const c) print_spine pat_spine - 1550 | (r_paren_if cond) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - FnValue (_, _, _, _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Apxnorm.cmo -c -impl src/core/apxnorm.ml) - File "src/core/apxnorm.ml", lines 44-49, characters 2-33: - 44 | ..function - 45 | | Apx.LF.Lam (loc, x, m') -> Apx.LF.Lam(loc, x, shiftApxTerm (k + 1) m') - 46 | | Apx.LF.Root (loc, h , spine) -> - 47 | let h' = shiftApxHead k h in - 48 | let spine' = shiftApxSpine k spine in - 49 | Apx.LF.Root(loc, h', spine') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (LFHole (_, _)|Tuple (_, _)|Ann (_, _, _)) - File "src/core/apxnorm.ml", lines 70-80, characters 2-35: - 70 | ..function - 71 | | Apx.LF.EmptySub -> Apx.LF.EmptySub - 72 | | Apx.LF.Id -> Apx.LF.Id - 73 | | Apx.LF.Dot (Apx.LF.Head h, s) -> - 74 | let h' = shiftApxHead k h in - ... - 77 | | Apx.LF.Dot (Apx.LF.Obj m, s) -> - 78 | let m' = shiftApxTerm k m in - 79 | let s' = shiftApxSub k s in - 80 | Apx.LF.Dot (Apx.LF.Obj m', s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (SVar (_, _)|FSVar (_, _)) - File "src/core/apxnorm.ml", lines 126-128, characters 4-49: - 126 | ....match (l_delta, t) with - 127 | | (0, t) -> t - 128 | | (k, Int.LF.MDot(_ , t')) -> drop t' (k - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (1, MShift _) - File "src/core/apxnorm.ml", lines 134-151, characters 6-36: - 134 | ......match Substitution.LF.applyMSub offset t with - 135 | | Int.LF.MV u -> Apx.LF.Offset u - 136 | | Int.LF.ClObj (_, clobj) -> - 137 | let (u, mtyp) = Whnf.mctxLookup cD offset' in - 138 | dprintf - ... - 148 | end; - 149 | let t' = drop t l_delta in - 150 | let mtyp' = Whnf.cnormMTyp (mtyp, t')in - 151 | Apx.LF.MInst (clobj, mtyp') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|CObj _) - File "src/core/apxnorm.ml", lines 267-276, characters 7-10: - 267 | .......begin match Substitution.LF.applyMSub offset t with - 268 | | Int.LF.CObj (Int.LF.CtxVar (Int.LF.CtxOffset psi0)) -> - 269 | Apx.LF.CtxVar (Apx.LF.CtxOffset psi0) - 270 | | Int.LF.CObj Int.LF.Null -> - 271 | Apx.LF.Null - 272 | | Int.LF.CObj (Int.LF.DDec _) -> - 273 | raise (Error (loc, CtxOverGeneral)) - 274 | (* Apx.LF.CtxVar (Apx.LF.CInst cPsi) *) - 275 | | Int.LF.MV offset' -> Apx.LF.CtxVar (Apx.LF.CtxOffset offset') - 276 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CObj (CtxVar (CtxName _|CInst _)) - File "src/core/apxnorm.ml", lines 288-355, characters 2-27: - 288 | ..match e with - 289 | | Apx.Comp.Fn (loc, f, e) -> - 290 | Apx.Comp.Fn (loc, f, cnormApxExp cD delta e cDt) - 291 | | Apx.Comp.Fun (loc, fbr) -> - 292 | Apx.Comp.Fun (loc, cnormApxFBranches cD delta fbr cDt) - ... - 352 | - 353 | | Apx.Comp.Var _ - 354 | | Apx.Comp.DataConst _ - 355 | | Apx.Comp.Const _ -> e - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Ann (_, _, _) - File "src/core/apxnorm.ml", lines 388-392, characters 4-63: - 388 | ....function - 389 | | Apx.LF.Empty -> cD'' - 390 | | Apx.LF.Dec (delta2', Apx.LF.Decl (x, _, plicity)) -> - 391 | let cD1'' = append_mctx cD'' delta2' in - 392 | Int.LF.Dec (cD1'', Int.LF.DeclOpt { name = x; plicity }) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/apxnorm.ml", lines 421-431, characters 2-27: - 421 | ..function - 422 | | Apx.LF.Lam (_, _, m') -> collectApxTerm fMVs m' - 423 | - 424 | | Apx.LF.Root (_, h, s) -> - 425 | let fMVs' = collectApxHead fMVs h in - ... - 428 | | Apx.LF.Tuple (_, tuple) -> - 429 | collectApxTuple fMVs tuple - 430 | - 431 | | Apx.LF.LFHole _ -> fMVs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Ann (_, _, _) - File "src/core/apxnorm.ml", lines 502-503, characters 27-22: - 502 | ...........................(Apx.LF.TypDecl (_, a))= - 503 | collectApxTyp fMVs a - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/apxnorm.ml", lines 530-538, characters 2-44: - 530 | ..function - 531 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.MTyp a, c_psi), _) - 532 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.PTyp a, c_psi), _) -> - 533 | let fMVs' = collectApxDCtx fMVs c_psi in - 534 | collectApxTyp fMVs' a - 535 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.STyp (_, c_phi), c_psi), _) -> - 536 | let fMVs' = collectApxDCtx fMVs c_psi in - 537 | collectApxDCtx fMVs' c_phi - 538 | | Apx.LF.Decl(_, Apx.LF.CTyp _, _) -> fMVs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/apxnorm.ml", lines 556-563, characters 2-31: - 556 | ..function - 557 | | Apx.LF.Atom (loc, c, tS) -> - 558 | collectApxSpine fMVd tS - 559 | | Apx.LF.PiTyp ((Apx.LF.TypDecl (x, tA), _, _ ), tB) -> - 560 | let fMVd1 = collectApxTyp fMVd tA in - 561 | collectApxTyp fMVd1 tB - 562 | | Apx.LF.Sigma trec -> - 563 | collectApxTypRec fMVd trec - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/apxnorm.ml", lines 573-581, characters 2-45: - 573 | ..function - 574 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.STyp(_, cPhi), cPsi), _) -> - 575 | let fMVd1 = collectApxDCtx fMVd cPsi in - 576 | collectApxDCtx fMVd1 cPhi - 577 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.MTyp tA, cPsi), _) - 578 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.PTyp tA, cPsi), _) -> - 579 | let fMVd1 = collectApxDCtx fMVd cPsi in - 580 | collectApxTyp fMVd1 tA - 581 | | Apx.LF.Decl (_, Apx.LF.CTyp _, _) -> fMVd - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/apxnorm.ml", lines 584-603, characters 2-32: - 584 | ..function - 585 | | Apx.Comp.TypArr (_, tau1, tau2) -> - 586 | let fMVd1 = collectApxCompTyp fMVd tau1 in - 587 | collectApxCompTyp fMVd1 tau2 - 588 | | Apx.Comp.TypCross (_, taus) -> - ... - 600 | let fMVd1 = collectApxDCtx fMVd cPsi in - 601 | collectApxDCtx fMVd1 cPhi - 602 | | Apx.Comp.TypBase (_loc, _c, mS) -> - 603 | collectApxMetaSpine fMVd mS - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypBox (_, (_, CTyp _)) - File "src/core/apxnorm.ml", lines 606-618, characters 2-32: - 606 | ..function - 607 | | Apx.Comp.PatMetaObj (loc, mO) -> - 608 | collectApxMetaObj fMVd mO - 609 | | Apx.Comp.PatConst (loc, c, pat_spine) -> - 610 | collectApxPatSpine fMVd pat_spine - ... - 615 | |> List.fold_left collectApxPattern fMVd - 616 | | Apx.Comp.PatAnn (loc, pat, tau) -> - 617 | let fMVd1 = collectApxCompTyp fMVd tau in - 618 | collectApxPattern fMVd1 pat - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PatFVar (_, _) - File "src/core/apxnorm.ml", lines 836-886, characters 2-33: - 836 | ..function - 837 | | Apx.Comp.Fn (loc, f, e) -> - 838 | Apx.Comp.Fn (loc, f, fmvApxExp fMVs cD d_param e) - 839 | - 840 | | Apx.Comp.Fun (loc, fbr) -> - ... - 883 | - 884 | | Apx.Comp.Var _ - 885 | | Apx.Comp.DataConst _ - 886 | | Apx.Comp.Const _ as i -> i - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Ann (_, _, _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Abstract.cmo -c -impl src/core/abstract.ml) - File "src/core/abstract.ml", lines 253-257, characters 4-47: - 253 | ....function - 254 | | I.Atom _ -> (k, tS) - 255 | | I.PiTyp (_, tA') -> - 256 | let tN = I.Root (loc, I.BVar k, I.Nil, Plicity.explicit) in - 257 | etaExpSpine (k + 1) (I.App (tN, tS)) tA' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _|TClo _) - File "src/core/abstract.ml", lines 260-263, characters 4-49: - 260 | ....match tA with - 261 | | I.Atom _ -> tM - 262 | | I.PiTyp ((I.TypDecl (x, _), _, _), tA') -> - 263 | I.Lam (loc, x, etaExpPrefix loc (tM, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/abstract.ml", lines 267-269, characters 4-19: - 267 | ....match h with - 268 | | I.BVar x -> I.BVar (x + k - 1) - 269 | | I.FVar _ -> h - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/abstract.ml", lines 317-332, characters 2-17: - 317 | ..function - 318 | | I.Empty -> I.Empty - 319 | - 320 | | I.Dec (cQ', FDecl (MMV _, Pure (MetaTyp (I.ClTyp (I.MTyp tA, cPsi), _, _)))) -> - 321 | begin match raiseType cPsi tA with - ... - 329 | I.Dec (ctxToCtx cQ', I.TypDecl (x, tA)) - 330 | - 331 | | I.Dec (cQ', FDecl (_, Impure)) -> - 332 | ctxToCtx cQ' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec - (_, FDecl (MMV _, Pure (MetaTyp (ClTyp ((PTyp _|STyp (_, _)), _), _, _)))) - File "src/core/abstract.ml", lines 336-355, characters 2-20: - 336 | ..function - 337 | | I.Empty -> I.Empty - 338 | | I.Dec (cQ', FDecl (FV n, Pure (MetaTyp (ityp, plicity, inductivity)))) -> - 339 | let plicity' = f plicity in - 340 | let cQ'' = ctxToMCtx f cQ' in - ... - 352 | | I.Dec (cQ', FDecl (FV _, Pure (LFTyp tA)))-> - 353 | Error.raise_violation "Free variables in computation-level reconstruction." - 354 | | I.Dec (cQ', FDecl (_, Impure)) -> - 355 | ctxToMCtx f cQ' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, FDecl (MMV (_, _), Pure (LFTyp _))) - File "src/core/abstract.ml", lines 358-365, characters 2-76: - 358 | ..function - 359 | | I.Empty -> I.Empty - 360 | | I.Dec (cQ', I.Decl { name = x; typ = I.CTyp (Option.Some w); plicity; inductivity }) -> - 361 | let cQ'' = mctxToCtx cQ' in - 362 | I.Dec (cQ'', CtxV (x, w, plicity, inductivity)) - 363 | | I.Dec (cQ', I.Decl { name = n; typ = ityp; plicity; inductivity }) -> - 364 | let cQ'' = mctxToCtx cQ' in - 365 | I.Dec (cQ'', FDecl (FV n, Pure (MetaTyp (ityp, plicity, inductivity)))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/abstract.ml", lines 368-384, characters 2-32: - 368 | ..function - 369 | | I.Empty -> I.Empty - 370 | | I.Dec (cQ', FDecl (FV n, Pure (MetaTyp (ityp, _, _)))) -> - 371 | let cQ'' = ctxToMCtx_pattern (n :: names) cQ' in - 372 | I.Dec (cQ'', I.Decl { name = n; typ = ityp; plicity = Plicity.explicit; inductivity = Inductivity.not_inductive }) - ... - 381 | I.Dec (cQ'', I.Decl { name = x; typ =I.CTyp (Some w); plicity; inductivity }) - 382 | - 383 | | I.Dec (cQ', FDecl (_, Impure)) -> - 384 | ctxToMCtx_pattern names cQ' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, FDecl (FV _, Pure (LFTyp _))) - File "src/core/abstract.ml", lines 409-421, characters 2-35: - 409 | ..function - 410 | | (I.Lam (loc, x, tM), s) -> - 411 | let (cQ', tM') = collectTerm p cQ (cvar, offset + 1) (tM, LF.dot1 s) in - 412 | (cQ', I.Lam (loc, x, tM')) - 413 | | (I.Tuple (loc, tuple), s) -> - ... - 418 | let (cQ'', tS') = collectSpine p cQ' phat (tS, s) in - 419 | (cQ'', I.Root (loc, h', tS', plicity)) - 420 | | (I.LFHole (loc, id, name), s) -> - 421 | (cQ, I.LFHole (loc, id, name)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Clo _, _) - File "src/core/abstract.ml", lines 481-485, characters 7-49: - 481 | .......let (cD_d, I.Decl { typ = mtyp; plicity; inductivity; _ }) = Store.FCVar.get name in - 482 | let mtyp' = Whnf.cnormMTyp (mtyp, Int.LF.MShift (p - Context.length cD_d)) in - 483 | if !pat_flag - 484 | then MetaTyp (mtyp', Plicity.explicit, Inductivity.not_inductive) - 485 | else MetaTyp (mtyp', plicity, inductivity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, DeclOpt _) - File "src/core/abstract.ml", lines 512-517, characters 10-11: - 512 | ..........let (cQ', MetaTyp (typ, plicity, inductivity)) = - 513 | addVar loc p cQ (MMV (name, instantiation)) (MetaTyp (typ, plicity, inductivity)) - 514 | in - 515 | ( cQ' - 516 | , I.{ v with typ; plicity; inductivity } - 517 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, LFTyp _) - File "src/core/abstract.ml", lines 615-652, characters 2-26: - 615 | ..function - 616 | | (I.BVar _ as head, _) - 617 | | (I.Const _ as head, _) -> (cQ, head) - 618 | - 619 | | (I.FVar name, _) -> - ... - 649 | - 650 | | (I.Proj (head, j), s) -> - 651 | let (cQ', h') = collectHead k cQ phat loc (head, s) in - 652 | (cQ', I.Proj (h', j)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((AnnH (_, _)|HClo (_, _, _)|HMClo (_, _)), _) - File "src/core/abstract.ml", lines 656-671, characters 2-27: - 656 | ..function - 657 | | (I.Atom (loc, a, tS), s) -> - 658 | let (cQ', tS') = collectSpine p cQ phat (tS, s) in - 659 | (cQ', I.Atom (loc, a, tS')) - 660 | - ... - 668 | - 669 | | (I.Sigma typRec, s) -> - 670 | let (cQ', typRec') = collectTypRec p cQ phat (typRec, s) in - 671 | (cQ', I.Sigma typRec') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/abstract.ml", lines 686-691, characters 2-66: - 686 | ..function - 687 | | (I.Typ, _) -> (cQ, I.Typ) - 688 | | (I.PiKind ((I.TypDecl (x, tA), depend, plicity), tK), s) -> - 689 | let (cQ', tA') = collectTyp p cQ phat (tA, s) in - 690 | let (cQ'', tK') = collectKind p cQ' (cvar, offset + 1) (tK, LF.dot1 s) in - 691 | (cQ'', I.PiKind ((I.TypDecl (x, tA'), depend, plicity), tK')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind ((TypDeclOpt _, _, _), _), _) - File "src/core/abstract.ml", lines 759-761, characters 22-38: - 759 | ......................(I.Decl d) = - 760 | let (cQ', mtyp') = collectMTyp p cQ d.typ in - 761 | (cQ', I.Decl { d with typ = mtyp' }) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/abstract.ml", lines 784-790, characters 2-8: - 784 | ..function - 785 | | (I.Typ, _) -> I.Typ - 786 | | (I.PiKind ((I.TypDecl (x, tA), depend, plicity), tK), s) -> - 787 | I.PiKind - 788 | ( (I.TypDecl (x, abstractTyp cQ offset (tA, s)), depend, plicity) - 789 | , abstractKind cQ (offset + 1) (tK, LF.dot1 s) - 790 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind ((TypDeclOpt _, _, _), _), _) - File "src/core/abstract.ml", lines 795-803, characters 2-8: - 795 | ..function - 796 | | (I.Atom (loc, a, tS), s (* id *)) -> - 797 | I.Atom (loc, a, abstractSpine cQ offset (tS, s)) - 798 | - 799 | | (I.PiTyp ((I.TypDecl (x, tA), depend, plicity), tB), s) -> - 800 | I.PiTyp - 801 | ( (I.TypDecl (x, abstractTyp cQ offset (tA, s)), depend, plicity) - 802 | , abstractTyp cQ (offset + 1) (tB, LF.dot1 s) - 803 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/abstract.ml", lines 818-843, characters 2-8: - 818 | ..function - 819 | | (I.Lam (loc, x, tM), s) -> - 820 | I.Lam (loc, x, abstractTerm cQ (offset + 1) (tM, LF.dot1 s)) - 821 | - 822 | | ( I.(Root - ... - 840 | , abstractHead cQ offset tH - 841 | , abstractSpine cQ offset (tS, s) - 842 | , plicity - 843 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((LFHole (_, _, _)|Clo _|Tuple (_, _)), _) - File "src/core/abstract.ml", lines 846-851, characters 2-59: - 846 | ..function - 847 | | I.BVar _ as tH -> tH - 848 | | I.Const _ as tH -> tH - 849 | | I.FVar n -> I.BVar (index_of cQ (FV n) + offset) - 850 | | I.AnnH _ -> - 851 | Error.raise_not_implemented "[abstractHead] AnnH case" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MMVar _|MPVar _|MVar _|PVar _|Proj (_, _)|FMVar _|FPVar _|HClo (_, _, _)| - HMClo (_, _)) - File "src/core/abstract.ml", lines 855-869, characters 2-85: - 855 | ..match (s, cPsi) with - 856 | | (I.Shift _, I.Null) -> tS - 857 | | (I.Shift k, I.DDec _) -> - 858 | subToSpine cQ offset (I.Dot (I.Head (I.BVar (k + 1)), I.Shift (k + 1)), cPsi) tS - 859 | - ... - 866 | (* subToSpine cQ offset s (I.App (I.Root (I.BVar k, I.Nil), tS)) *) - 867 | - 868 | | (I.Dot (I.Obj tM, s), I.DDec (cPsi', _)) -> - 869 | subToSpine cQ offset (s, cPsi') (I.App (abstractTerm cQ offset (tM, LF.id), tS)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Shift _, CtxVar _) - File "src/core/abstract.ml", lines 880-894, characters 2-48: - 880 | ..function - 881 | | I.Empty -> I.Empty - 882 | | I.Dec (cQ, FDecl (_, Impure)) -> abstractCtx cQ - 883 | | I.Dec (cQ, FDecl (MMV (n, r), Pure (MetaTyp (I.ClTyp (I.MTyp tA, cPsi), plicity, inductivity)))) -> - 884 | let cQ' = abstractCtx cQ in - ... - 891 | | I.Dec (cQ, FDecl (FV f, Pure (LFTyp tA))) -> - 892 | let cQ' = abstractCtx cQ in - 893 | let tA' = abstractTyp cQ 0 (tA, LF.id) in - 894 | I.Dec (cQ', FDecl (FV f, Pure (LFTyp tA'))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec - (_, - FDecl (MMV (_, _), Pure (MetaTyp (ClTyp ((PTyp _|STyp (_, _)), _), _, _)))) - File "src/core/abstract.ml", lines 900-906, characters 2-39: - 900 | ..match cPsi with - 901 | | I.Null -> I.Null - 902 | | I.CtxVar psi -> cPsi - 903 | | I.DDec (cPsi, I.TypDecl (x, tA)) -> - 904 | let cPsi' = abstractDctx cQ cPsi (l - 1) in - 905 | let tA' = abstractTyp cQ (l - 1) (tA, LF.id) in - 906 | I.DDec (cPsi', I.TypDecl (x, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/abstract.ml", lines 930-940, characters 2-20: - 930 | ..function - 931 | | (I.Atom (loc, a, tS), s (* id *)) -> - 932 | I.Atom (loc, a, abstractMVarSpine cQ offset (tS, s)) - 933 | | (I.PiTyp ((I.TypDecl (x, tA), depend, plicity), tB), s) -> - 934 | I.PiTyp - ... - 937 | ) - 938 | | (I.Sigma typRec, s) -> - 939 | let typRec' = abstractMVarTypRec cQ offset (typRec, s) in - 940 | I.Sigma typRec' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/abstract.ml", lines 954-962, characters 2-29: - 954 | ..function - 955 | | (I.Lam (loc, x, tM), s) -> - 956 | I.Lam (loc, x, abstractMVarTerm cQ offset (tM, LF.dot1 s)) - 957 | | (I.Tuple (loc, tuple), s) -> - 958 | I.Tuple (loc, abstractMVarTuple cQ offset (tuple, s)) - 959 | | (I.Root (loc, tH, tS, plicity), s (* LF.id *)) -> - 960 | I.Root (loc, abstractMVarHead cQ offset tH, abstractMVarSpine cQ offset (tS, s), plicity) - 961 | | (I.LFHole (loc, id, name), s) -> - 962 | I.LFHole (loc, id, name) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Clo _, _) - File "src/core/abstract.ml", lines 1000-1036, characters 2-46: - 1000 | ..function - 1001 | | I.BVar _ as mH -> mH - 1002 | | I.Const _ as mH -> mH - 1003 | - 1004 | | I.FPVar ns -> I.PVar (abstractFVarSub cQ loff ns) - ... - 1033 | Error.raise_not_implemented "[abstractMVarHead] AnnH case" - 1034 | - 1035 | | I.Proj (head, k) -> - 1036 | I.Proj (abstractMVarHead cQ loff head, k) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (FVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/abstract.ml", lines 1091-1097, characters 2-39: - 1091 | ..function - 1092 | | I.Null -> I.Null - 1093 | | I.CtxVar cv -> I.CtxVar (abstractCtxVar cQ loff cv) - 1094 | | I.DDec (cPsi, I.TypDecl (x, tA)) -> - 1095 | let cPsi' = abstractMVarDctx cQ loff cPsi in - 1096 | let tA' = abstractMVarTyp cQ loff (tA, LF.id) in - 1097 | I.DDec (cPsi', I.TypDecl (x, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/abstract.ml", lines 1110-1112, characters 30-31: - 1110 | ..............................(I.Decl d) = - 1111 | let mtyp' = abstractMVarMTyp cQ d.typ loff in - 1112 | I.Decl { d with typ = mtyp' } - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/abstract.ml", lines 1121-1138, characters 2-58: - 1121 | ..match cQ with - 1122 | | I.Empty -> I.Empty - 1123 | | I.Dec (cQ, FDecl (v, Pure (MetaTyp (ityp, plicity, inductivity)))) -> - 1124 | let cQ' = abstractMVarCtx cQ (l - 1) in - 1125 | I.Dec (cQ', FDecl (v, Pure (MetaTyp (abstractMVarMTyp cQ ityp (l, 0), plicity, inductivity)))) - ... - 1135 | * is it ever hit on correct code? -jd 2009-02-12 - 1136 | * No. This case should not occur in correct code - bp - 1137 | *) - 1138 | raise (Error (Name.location name, UnknownIdentifier)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, FDecl (MMV _, Pure (LFTyp _))) - File "src/core/abstract.ml", lines 1150-1154, characters 2-20: - 1150 | ..function - 1151 | | I.ClObj (phat, tM) -> - 1152 | I.ClObj (abstractMVarHat cQ off phat, abstrClObj cQ off tM) - 1153 | | I.CObj cPsi -> I.CObj (abstractMVarDctx cQ off cPsi) - 1154 | | I.MV k -> I.MV k - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MUndef - File "src/core/abstract.ml", lines 1167-1179, characters 4-21: - 1167 | ....function - 1168 | | I.Empty -> I.Empty - 1169 | | I.Dec (cQ', FDecl (FV n, Pure (MetaTyp (ityp, plicity, inductivity)))) -> - 1170 | let cQ'' = ctxToMCtx' cQ' in - 1171 | I.Dec (cQ'', I.Decl { name = n; typ = ityp; plicity; inductivity }) - ... - 1176 | let cQ'' = ctxToMCtx' cQ' in - 1177 | I.Dec (cQ'', I.Decl { name = x; typ = I.CTyp (Option.some w); plicity; inductivity }) - 1178 | | I.Dec (cQ', FDecl (_, Impure)) -> - 1179 | ctxToMCtx' cQ' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, FDecl (FV _, Pure (LFTyp _))) - File "src/core/abstract.ml", lines 1208-1217, characters 2-8: - 1208 | ..match cQ with - 1209 | | Int.LF.Empty -> (tA', 0) - 1210 | | Int.LF.Dec (_, FDecl (s, _)) -> - 1211 | let cQ' = abstractCtx cQ in - 1212 | let tA2 = abstractTyp cQ' 0 (tA', LF.id) in - 1213 | let cPsi = ctxToCtx cQ' in - 1214 | begin match raiseType' cPsi tA2 with - 1215 | | (None, tA3) -> (tA3, length' cPsi) - 1216 | | _ -> raise (Error (Location.ghost, LeftoverVars)) - 1217 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CtxV _) - File "src/core/abstract.ml", lines 1246-1287, characters 2-28: - 1246 | ..function - 1247 | | Comp.TypBase (loc, a, ms) -> - 1248 | let (cQ', ms') = collect_meta_spine p cQ ms in - 1249 | (cQ', Comp.TypBase (loc, a, ms')) - 1250 | | Comp.TypCobase (loc, a, ms) -> - ... - 1284 | - 1285 | | Comp.TypInd tau -> - 1286 | let (cQ', tau') = collectCompTyp p cQ tau in - 1287 | (cQ', Comp.TypInd tau') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDef (_, _, _) - File "src/core/abstract.ml", lines 1291-1296, characters 2-54: - 1291 | ..function - 1292 | | I.Empty -> (cQ, I.Empty) - 1293 | | I.Dec (cG, Comp.CTypDecl (x, tau, flag)) -> - 1294 | let (cQ1, cG') = collectGctx cQ cG in - 1295 | let (cQ2, tau') = collectCompTyp 0 cQ1 tau in - 1296 | (cQ2, I.Dec (cG', Comp.CTypDecl (x, tau', flag))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/abstract.ml", lines 1463-1489, characters 2-52: - 1463 | ..function - 1464 | | Comp.TypBase (loc, a, cS) -> - 1465 | let cS' = abstractMVarMetaSpine cQ offset cS in - 1466 | Comp.TypBase (loc, a, cS') - 1467 | | Comp.TypCobase (loc, a, cS) -> - ... - 1486 | ) - 1487 | - 1488 | | Comp.TypInd tau -> - 1489 | Comp.TypInd (abstractMVarCompTyp cQ offset tau) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypDef (_, _, _)|TypClo (_, _)) - File "src/core/abstract.ml", lines 1492-1497, characters 2-47: - 1492 | ..function - 1493 | | I.Empty -> I.Empty - 1494 | | I.Dec (cG, Comp.CTypDecl (x, tau, flag)) -> - 1495 | let cG' = abstractMVarGctx cQ offset cG in - 1496 | let tau' = abstractMVarCompTyp cQ offset tau in - 1497 | I.Dec (cG', Comp.CTypDecl (x, tau', flag)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/abstract.ml", lines 1698-1700, characters 4-48: - 1698 | ....match (p, cD) with - 1699 | | (0, _) -> cD - 1700 | | (_, I.Dec (cD', decl)) -> drop (p - 1) cD' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (1, Empty) - File "src/core/abstract.ml", lines 1722-1724, characters 8-24: - 1722 | ........let I.Dec (cD1', decl) = cD1 in - 1723 | let cD = subtract cD1' cD2 in - 1724 | I.Dec (cD, decl) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Empty - File "src/core/abstract.ml", lines 1785-1789, characters 2-24: - 1785 | ..function - 1786 | | I.Null -> cPsi1 - 1787 | | I.DDec (cPsi2', dec) -> - 1788 | let cPsi1' = appDCtx cPsi1 cPsi2' in - 1789 | I.Dec (cPsi1', dec) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Unify.cmo -c -impl src/core/unify.ml) - File "src/core/unify.ml", lines 163-195, characters 30-70: - 163 | ..............................(Atom (_, a, _) as tP, s) = - 164 | dprintf - 165 | begin fun p -> - 166 | p.fmt "@[<v 6>[genMMVarstr] of type @[%a@]@,in context cPsi = @[%a@]@]" - 167 | (P.fmt_ppr_lf_typ cD cPsi P.l0) (Whnf.normTyp (tP, s)) - ... - 192 | cPsi |- s_proj : cPhi - 193 | cPsi |- comp ss' s_proj : cPhi' *) - 194 | let ss_proj = Substitution.LF.comp ss' s_proj in - 195 | Root (loc, MMVar ((u, Whnf.m_id), ss_proj), Nil, Plicity.explicit) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((PiTyp ((_, _, _), _)|Sigma _|TClo (_, _)), _) - File "src/core/unify.ml", lines 575-585, characters 6-9: - 575 | ......begin match applyMSub k ms with - 576 | | MUndef -> - 577 | (* Psi1, x:tA |- s' <= Psi2 *) - 578 | (Whnf.mcomp mt' (MShift 1), cD2) - 579 | - ... - 582 | A = [mt']([mt']^-1 A) and cPsi = [mt']([mt']^-1 cPsi *) - 583 | let mtt' = Whnf.m_invert (Whnf.cnormMSub mt') in - 584 | (Whnf.mvar_dot1 mt', Dec (cD2, Decl { name = n; typ = Whnf.cnormMTyp (ctyp, mtt'); plicity; inductivity })) - 585 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 566-590, characters 4-38: - 566 | ....match (t, cD1) with - 567 | | (MShift _, Empty) -> (Whnf.m_id, Empty) - 568 | - 569 | | (MShift k, Dec _) -> - 570 | pruneMCtx' cD (MDot (MV (k + 1), MShift (k + 1)), cD1) ms - ... - 587 | | (MDot (MUndef, mt), Dec (cD1, _)) -> - 588 | let (mt', cD2) = pruneMCtx' cD (mt, cD1) ms in - 589 | (* cD1 |- mt' <= cD2 *) - 590 | (Whnf.mcomp mt' (MShift 1), cD2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MDot (MV _, _), Dec (_, DeclOpt _)) - File "src/core/unify.ml", lines 810-819, characters 7-10: - 810 | .......begin match applyMSub u ms with - 811 | | MV v -> - 812 | Root - 813 | ( loc - 814 | , MVar (Offset v, invSub cD0 phat (t', cPsi1) ss rOccur) - 815 | , Nil - 816 | , plicity - 817 | ) - 818 | | MUndef -> raise NotInvertible - 819 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 822-830, characters 7-46: - 822 | .......let (cD_d, Decl { typ = ClTyp (_, cPsi1); _ }) = Store.FCVar.get u in - 823 | let d = Context.length cD0 - Context.length cD_d in - 824 | let cPsi1 = - 825 | if d = 0 - 826 | then cPsi1 - 827 | else Whnf.cnormDCtx (cPsi1, MShift d) - 828 | in - 829 | let s' = invSub cD0 phat (comp t s, cPsi1) ss rOccur in - 830 | Root (loc, FMVar (u, s'), Nil, plicity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp _; _ }) - File "src/core/unify.ml", lines 833-841, characters 7-46: - 833 | .......let (cD_d, Decl { typ = ClTyp (_, cPsi1); _ }) = Store.FCVar.get p in - 834 | let d = Context.length cD0 - Context.length cD_d in - 835 | let cPsi1 = - 836 | if d = 0 - 837 | then cPsi1 - 838 | else Whnf.cnormDCtx (cPsi1, MShift d) - 839 | in - 840 | let s' = invSub cD0 phat (comp t s, cPsi1) ss rOccur in - 841 | Root (loc, FPVar (p, s'), Nil, plicity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp _; _ }) - File "src/core/unify.ml", lines 846-850, characters 7-10: - 846 | .......begin match applyMSub p ms with - 847 | | MV q -> - 848 | Root (loc, PVar (q, invSub cD0 phat (t', cPsi1) ss rOccur), Nil, plicity) - 849 | | MUndef -> raise NotInvertible - 850 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 747-862, characters 4-62: - 747 | ....match sM with - 748 | | (Lam (loc, x, tM), s) -> - 749 | Lam (loc, x, invNorm cD0 ((cvar, offset + 1), (tM, dot1 s), (ms, dot1 ssubst), rOccur)) - 750 | - 751 | | (Root (loc, MVar (Inst u, t), tS, plicity), s) -> - ... - 859 | ) - 860 | - 861 | | (Tuple (loc, trec), s) -> - 862 | Tuple (loc, invTuple cD0 (phat, (trec, s), ss, rOccur)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((LFHole (_, _, _)|Clo _), _) - File "src/core/unify.ml", lines 888-891, characters 7-10: - 888 | .......begin match bvarSub k ssubst with - 889 | | Undef -> raise NotInvertible - 890 | | Head (BVar k') -> BVar k' - 891 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 894-897, characters 7-10: - 894 | .......begin match bvarSub k ssubst with - 895 | | Head (BVar _ as head) -> head - 896 | | Undef -> raise NotInvertible - 897 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 932-936, characters 7-10: - 932 | .......begin match applyMSub u ms with - 933 | | MV v -> - 934 | MVar (Offset v, invSub cD0 phat (t, cPsi1) ss rOccur) - 935 | | MUndef -> raise NotInvertible - 936 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 940-944, characters 7-10: - 940 | .......begin match applyMSub p ms with - 941 | | MV q -> - 942 | PVar (q, invSub cD0 phat (t, cPsi1) ss rOccur) - 943 | | MUndef -> raise NotInvertible - 944 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 948-952, characters 7-10: - 948 | .......begin match applyMSub p ms with - 949 | | MV q -> - 950 | Proj (PVar (q, invSub cD0 phat (t, cPsi1) ss rOccur), i) - 951 | | MUndef -> raise NotInvertible - 952 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 886-952, characters 4-10: - 886 | ....match head with - 887 | | BVar k -> - 888 | begin match bvarSub k ssubst with - 889 | | Undef -> raise NotInvertible - 890 | | Head (BVar k') -> BVar k' - ... - 949 | | MV q -> - 950 | Proj (PVar (q, invSub cD0 phat (t, cPsi1) ss rOccur), i) - 951 | | MUndef -> raise NotInvertible - 952 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Proj - ((Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)), - _) - File "src/core/unify.ml", lines 956-959, characters 4-46: - 956 | ....function - 957 | | Undefs -> raise (Failure "Variable dependency") - 958 | | Shift k -> Shift (n + k) - 959 | | Dot (ft, ss') -> shiftInvSub (n - 1) ss' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub|SVar (_, _, _)|FSVar (_, _)|MSVar (_, _)) - File "src/core/unify.ml", lines 981-985, characters 9-40: - 981 | .........match applyMSub s ms with - 982 | | MV v -> - 983 | let (_, cPhi, _, cPsi') = Whnf.mctxSDec cD0 v in - 984 | (v, cPhi, cPsi') - 985 | | MUndef -> raise NotInvertible - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 1024-1030, characters 7-10: - 1024 | .......begin match applyMSub s ms with - 1025 | | MV v -> - 1026 | let (_, cPhi, _, cPsi1) = Whnf.mctxSDec cD0 v in - 1027 | (* applyMSub to ctx_offset ? *) - 1028 | SVar (v, n, invSub cD0 phat (t, cPsi1) ss rOccur) - 1029 | | MUndef -> raise NotInvertible - 1030 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 1033-1034, characters 7-64: - 1033 | .......let (_, Decl { typ = ClTyp (STyp (LF.Subst, _), cPsi'); _ }) = Store.FCVar.get s_name in - 1034 | FSVar (n, (s_name, invSub cD0 phat (t, cPsi') ss rOccur)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp (STyp (Ren, _), _); _ }) - File "src/core/unify.ml", lines 1063-1069, characters 4-74: - 1063 | ....match (mt, cD1) with - 1064 | | (MShift n, _) -> checkDefined (Whnf.mcomp (MShift n) ms) - 1065 | | (MDot (ClObj (phat, SObj sigma), mt'), Dec (cD', Decl { typ = ClTyp (STyp (_, cPhi), _); _ })) -> - 1066 | let sigma' = invSub cD0 phat (sigma, cPhi) (ms, id) rOccur in - 1067 | MDot (ClObj (phat, SObj sigma'), invMSub cD0 (mt', cD') ms rOccur) - 1068 | | (MDot (mobj, mt'), Dec (cD', _)) -> - 1069 | MDot (invMObj cD0 mobj ms rOccur, invMSub cD0 (mt', cD') ms rOccur) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MDot (_, _), Empty) - File "src/core/unify.ml", lines 1072-1080, characters 4-90: - 1072 | ....match mobj with - 1073 | | MV n -> - 1074 | begin match applyMSub n ms with - 1075 | | MUndef -> raise NotInvertible - 1076 | | ft -> ft - 1077 | end - 1078 | | ClObj (phat, MObj tM) -> ClObj (phat, MObj (invNorm cD0 (phat, (tM, id), (ms, id), rOccur))) - 1079 | | CObj cPsi -> Error.raise_violation "Not implemented" - 1080 | | ClObj (phat, PObj h) -> ClObj (phat, PObj (invHead cD0 (phat, h, (ms, id), rOccur))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, SObj _) - File "src/core/unify.ml", lines 1152-1154, characters 7-80: - 1152 | .......let Shift 0 = s in (* Assert s is supposed to be the identity *) - 1153 | let newHead = pruneHead cD0 cPsi' (loc, head) ss rOccur in - 1154 | Root (loc, newHead, pruneSpine cD0 cPsi' phat (tS, s) ss rOccur, plicity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Shift 1 - File "src/core/unify.ml", lines 1124-1154, characters 4-80: - 1124 | ....match sM with - 1125 | | (LFHole _ as n, _) -> n - 1126 | | (Lam (loc, x, tM), s) -> - 1127 | dprintf - 1128 | begin fun p -> - ... - 1151 | | (Root (loc, head, tS, plicity), s) -> - 1152 | let Shift 0 = s in (* Assert s is supposed to be the identity *) - 1153 | let newHead = pruneHead cD0 cPsi' (loc, head) ss rOccur in - 1154 | Root (loc, newHead, pruneSpine cD0 cPsi' phat (tS, s) ss rOccur, plicity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Clo _, _) - File "src/core/unify.ml", lines 1173-1184, characters 4-9: - 1173 | ....let ClTyp (tp, cPsi1) = mmvar.typ in - 1174 | if eq_cvarRef (MMVarRef mmvar.instantiation) rOccur - 1175 | then raise (Failure "Variable occurrence") - 1176 | else - 1177 | begin - ... - 1181 | instantiateMMVarWithMMVar mmvar.instantiation loc (v, id2) tP' mmvar.constraints.contents; - 1182 | let (mr, r) = comp2 (comp2 id2 mtt) ss in - 1183 | ((v, mr), r) - 1184 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1187-1199, characters 4-37: - 1187 | ....let ClTyp (MTyp tP, cPsi1) = mmvar.typ in - 1188 | if eq_cvarRef (MMVarRef mmvar.instantiation) rOccur - 1189 | then raise (Failure "Variable occurrence") - 1190 | else - 1191 | let (idsub, cPsi2) = pruneSub cD0 cPsi' (Context.dctxToHat cPsi') (t, cPsi1) ss rOccur in - ... - 1196 | , Root (loc, MVar (v, idsub), Nil, Plicity.explicit) - 1197 | , mmvar.constraints.contents - 1198 | ); - 1199 | (v, comp (comp idsub t) ssubst) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/unify.ml", lines 1202-1211, characters 3-10: - 1202 | ...let (cD_d, Decl { typ = ClTyp (_, cPsi1); _ }) = Store.FCVar.get u in - 1203 | let d = Context.length cD0 - Context.length cD_d in - 1204 | let cPsi1 = - 1205 | if d = 0 - 1206 | then cPsi1 - 1207 | else Whnf.cnormDCtx (cPsi1, MShift d) - 1208 | in - 1209 | let t' = simplifySub cD0 cPsi t in - 1210 | let s' = invSub cD0 (Context.dctxToHat cPsi) (t', cPsi1) ss rOccur in - 1211 | (u, s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp _; _ }) - File "src/core/unify.ml", lines 1216-1219, characters 7-14: - 1216 | .......let (_, ClTyp (_, cPsi1)) = Whnf.mctxLookup cD0 v in - 1217 | let t' = simplifySub cD0 cPsi t in - 1218 | let s' = pruneSubst cD0 cPsi (t', cPsi1) ss rOccur in - 1219 | (v, s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, CTyp _) - File "src/core/unify.ml", lines 1214-1220, characters 4-63: - 1214 | ....match applyMSub u ms with - 1215 | | MV v -> - 1216 | let (_, ClTyp (_, cPsi1)) = Whnf.mctxLookup cD0 v in - 1217 | let t' = simplifySub cD0 cPsi t in - 1218 | let s' = pruneSubst cD0 cPsi (t', cPsi1) ss rOccur in - 1219 | (v, s') - 1220 | | MUndef -> raise (Failure "[Prune] Bound MVar dependency") - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 1246-1254, characters 7-10: - 1246 | .......begin match bvarSub k ssubst with - 1247 | | Undef -> - 1248 | let s = - 1249 | Format.asprintf "[Prune] Bound variable dependency : head = %a" - 1250 | (P.fmt_ppr_lf_head cD0 cPsi' P.l0) head - 1251 | in - 1252 | raise (Failure s) - 1253 | | Head (BVar _ as h') -> h' - 1254 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1223-1258, characters 4-11: - 1223 | ....match head with - 1224 | | MMVar ((i, mt), t) -> - 1225 | MMVar (pruneMMVarInst cD0 cPsi' loc i (mt, t) ss rOccur) - 1226 | | MVar (Inst i, t) -> - 1227 | MVar (pruneMVarInst cD0 cPsi' loc i (Whnf.normSub t) ss rOccur) - ... - 1255 | - 1256 | | Const _ - 1257 | | FVar _ -> - 1258 | head - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (AnnH (_, _)|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1293-1317, characters 4-57: - 1293 | ....match (s, cPsi1) with - 1294 | | (EmptySub, Null) -> EmptySub - 1295 | | (Undefs, Null) -> EmptySub - 1296 | | (Shift n, DDec _) -> - 1297 | pruneSubst cD cPsi (Dot (Head (BVar (n + 1)), Shift (n + 1)), cPsi1) ss rOccur - ... - 1314 | - 1315 | | (Dot _, _) - 1316 | | (EmptySub, _) - 1317 | -> Error.raise_violation "Badly typed substitution" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Undefs, (CtxVar _|DDec (_, _))) - File "src/core/unify.ml", lines 1321-1323, characters 4-70: - 1321 | ....match ft with - 1322 | | Obj tM -> Obj (prune cD cPsi (Context.dctxToHat cPsi) (tM, id) ss rOccur) - 1323 | | Head h -> Head (pruneHead cD cPsi (Location.ghost, h) ss rOccur) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/unify.ml", lines 1354-1357, characters 9-59: - 1354 | .........function - 1355 | | Undefs -> (EmptySub, Null) - 1356 | | Shift k -> (id, CtxVar psi) - 1357 | | Dot (ft, ssubst') -> shiftInvSub (n - 1) ssubst' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub|SVar (_, _, _)|FSVar (_, _)|MSVar (_, _)) - File "src/core/unify.ml", lines 1370-1374, characters 9-40: - 1370 | .........match applyMSub s mt with - 1371 | | MV v -> - 1372 | let (_, _, _, cPsi') = Whnf.mctxSDec cD0 v in - 1373 | cPsi' - 1374 | | MUndef -> raise NotInvertible - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 1387-1390, characters 7-18: - 1387 | .......let ClTyp (STyp (_, cPhi2), cPhi1) = mmvar.typ in - 1388 | let cPhi1' = Whnf.cnormDCtx (cPhi1, Whnf.m_id) in - 1389 | ignore (invSub cD0 phat (sigma, cPhi1') ss rOccur); - 1390 | (id, cPsi1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((MTyp _|PTyp _), _) - File "src/core/unify.ml", lines 1398-1400, characters 7-18: - 1398 | .......let (_, Decl { typ = ClTyp (STyp _, cPsi'); _ }) = Store.FCVar.get s in - 1399 | ignore (invSub cD0 phat (sigma, cPsi') ss rOccur); - 1400 | (id, cPsi1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((MTyp _|PTyp _), _); _ }) - File "src/core/unify.ml", lines 1407-1426, characters 7-10: - 1407 | .......begin match bvarSub n ssubst with - 1408 | | Undef -> - 1409 | let (s1', cPsi1') = pruneSub' cD0 cPsi phat (s', cPsi') ss rOccur in - 1410 | (comp s1' shift, cPsi1') - 1411 | - ... - 1423 | in - 1424 | (* cPsi1' |- s1_i <= cPsi' *) - 1425 | (dot1 s1', DDec (cPsi1', TypDecl (x, TClo (tA, s1_i)))) - 1426 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1431-1448, characters 7-10: - 1431 | .......begin match bvarSub n ssubst with - 1432 | | Undef -> - 1433 | let (s1', cPsi1') = pruneSub' cD0 cPsi phat (s', cPsi') ss rOccur in - 1434 | (comp s1' shift, cPsi1') - 1435 | - ... - 1445 | in - 1446 | (* cPsi1' |- s1_i <= cPsi' *) - 1447 | (dot1 s1', DDec (cPsi1', TypDecl (x, TClo (tA, s1_i)))) - 1448 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1343-1471, characters 4-31: - 1343 | ....match (s, cPsi1) with - 1344 | | (Shift n, DDec _) -> - 1345 | pruneSub' cD0 cPsi phat (Dot (Head (BVar (n + 1)), Shift (n + 1)), cPsi1) ss rOccur - 1346 | | (Shift _, Null) - 1347 | | (EmptySub, Null) - ... - 1468 | - 1469 | | (Dot (Undef, t), DDec (cPsi1, _)) -> - 1470 | let (s1', cPsi1') = pruneSub' cD0 cPsi phat (t, cPsi1) ss rOccur in - 1471 | (comp s1' shift, cPsi1') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub, (CtxVar _|DDec (_, _))) - File "src/core/unify.ml", lines 1474-1487, characters 4-21: - 1474 | ....match sA with - 1475 | | (Atom (loc, a, tS), s) -> Atom (loc, a, pruneSpine cD0 cPsi phat (tS, s) (mss, ss) rOccur) - 1476 | | (PiTyp ((TypDecl (x, tA), depend, plicity), tB), s) -> - 1477 | let tA' = pruneTyp cD0 cPsi phat (tA, s) (mss, ss) rOccur in - 1478 | let tB' = pruneTyp cD0 cPsi phat (tB, dot1 s) (mss, dot1 ss) rOccur in - ... - 1484 | - 1485 | | (Sigma typ_rec, s) -> - 1486 | let typ_rec' = pruneTypRec cD0 cPsi phat (typ_rec, s) (mss, ss) rOccur in - 1487 | Sigma typ_rec' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TClo _, _) - File "src/core/unify.ml", lines 1504-1507, characters 7-10: - 1504 | .......begin match applyMSub psi ms with - 1505 | | CObj (cPsi') -> Whnf.normDCtx cPsi' - 1506 | | MV k -> CtxVar (CtxOffset k) - 1507 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|ClObj (_, _)) - File "src/core/unify.ml", lines 1510-1514, characters 7-10: - 1510 | .......begin match mmvar.instantiation.contents with - 1511 | | None -> cPsi - 1512 | | Some (ICtx cPhi) -> - 1513 | pruneDCtx cD cPhi (Whnf.mcomp theta ms) rOccur - 1514 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/unify.ml", lines 1501-1529, characters 4-37: - 1501 | ....match cPsi with - 1502 | | Null -> Null - 1503 | | CtxVar (CtxOffset psi) -> - 1504 | begin match applyMSub psi ms with - 1505 | | CObj (cPsi') -> Whnf.normDCtx cPsi' - ... - 1526 | (ms, Substitution.LF.id) - 1527 | rOccur - 1528 | in - 1529 | DDec (cPsi', TypDecl (x, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/unify.ml", lines 1574-1583, characters 7-10: - 1574 | .......begin match bvarSub k ssubst with - 1575 | | Undef -> - 1576 | (* Psi1, x:tA |- s' <= Psi2 *) - 1577 | (comp s' shift, cPsi2) - 1578 | - 1579 | | Head (BVar _) -> - 1580 | (* Psi1, x:A |- s' <= Psi2, x:([s']^-1 A) since - 1581 | A = [s']([s']^-1 A) *) - 1582 | (dot1 s', DDec (cPsi2, TypDecl (x, TClo (tA, invert (Whnf.normSub s'))))) - 1583 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1590-1599, characters 7-10: - 1590 | .......begin match bvarSub k ssubst with - 1591 | | Undef -> - 1592 | (* Psi1, x:tA |- s' <= Psi2 *) - 1593 | (comp s' shift, cPsi2) - 1594 | - 1595 | | Head (BVar _) -> - 1596 | (* Psi1, x:A |- s' <= Psi2, x:([s']^-1 A) since - 1597 | A = [s']([s']^-1 A) *) - 1598 | (dot1 s', DDec (cPsi2, TypDecl (x, TClo (tA, invert (Whnf.normSub s'))))) - 1599 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1551-1604, characters 4-29: - 1551 | ....match (t, cPsi1) with - 1552 | | (EmptySub, Null) - 1553 | | (Undefs, Null) - 1554 | | (Shift _, Null) -> - 1555 | (id, Null) - ... - 1601 | | (Dot (Undef, t), DDec (cPsi1, _)) -> - 1602 | let (s', cPsi2) = pruneCtx' phat (t, cPsi1) ss in - 1603 | (* sP1 |- s' <= cPsi2 *) - 1604 | (comp s' shift, cPsi2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub, (CtxVar _|DDec (_, _))) - File "src/core/unify.ml", lines 1646-1651, characters 4-56: - 1646 | ....match (sTup1, sTup2) with - 1647 | | ((Last tM, s1), (Last tN, s2)) -> - 1648 | unifyTerm mflag cD0 cPsi (tM, s1) (tN, s2) - 1649 | | ((Cons (tM, tup1), s1), (Cons (tN, tup2), s2)) -> - 1650 | (unifyTerm mflag cD0 cPsi (tM, s1) (tN, s2); - 1651 | unifyTuple mflag cD0 cPsi (tup1, s1) (tup2, s2)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Last _, _), (Cons (_, _), _)) - File "src/core/unify.ml", lines 1654-1680, characters 4-9: - 1654 | ....let ClTyp (_, cPsi1) = mmvar.typ in - 1655 | if isId t1' - 1656 | then instantiateMVar (mmvar.instantiation, sM2, mmvar.constraints.contents) - 1657 | else - 1658 | begin - ... - 1677 | (* This might actually need to add a constraint, in which case - 1678 | "NotInvertible" seems the wrong kind of exception... *) - 1679 | Error.raise_violation "Unification violation" - 1680 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1694-1705, characters 9-35: - 1694 | .........match Whnf.whnfTyp sA with - 1695 | | (LF.PiTyp ((LF.TypDecl (n, tA), _, _), tB), s) -> - 1696 | (* cPsi' |- Pi x:A.B <= typ - 1697 | cPsi |- s <= cPsi' - 1698 | cPsi |- tN <= [s]tA - ... - 1702 | let tS = genSpine cD1 cPsi1 (tB, LF.Dot (LF.Obj tN, s)) in - 1703 | LF.App (tN, tS) - 1704 | - 1705 | | (LF.Atom _, _) -> LF.Nil - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/unify.ml", lines 1683-1710, characters 4-15: - 1683 | ....let ClTyp (_, cPsi1) = mmvar.typ in - 1684 | match sM2 with - 1685 | | Root (loc, Const c, _, plicity) -> - 1686 | let tA = (Store.Cid.Term.get c).Store.Cid.Term.Entry.typ in - 1687 | dprintf - ... - 1707 | let tM1 = Root (loc, Const c, genSpine mmvar.cD cPsi1 (tA, id), plicity) in - 1708 | instantiateMVar (mmvar.instantiation, tM1, mmvar.constraints.contents); - 1709 | Some tM1 - 1710 | | _ -> None - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1716-1729, characters 6-32: - 1716 | ......match Whnf.whnfTyp sA with - 1717 | | (LF.PiTyp ((LF.TypDecl (n, tA), _, _), tB), s) -> - 1718 | (* cPsi' |- Pi x:A.B <= typ - 1719 | cPsi |- s <= cPsi' - 1720 | cPsi |- tN <= [s]tA - ... - 1726 | in - 1727 | let tS = genSpine cD1 cPsi1 (tB, LF.Dot (LF.Obj tN, s)) in - 1728 | LF.App (tN, tS) - 1729 | | (LF.Atom _, _) -> LF.Nil - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/unify.ml", lines 1714-1762, characters 4-15: - 1714 | ....let ClTyp (MTyp tB, cPsi1) = mmvar.typ in - 1715 | let rec genSpine cD1 cPsi1 sA = - 1716 | match Whnf.whnfTyp sA with - 1717 | | (LF.PiTyp ((LF.TypDecl (n, tA), _, _), tB), s) -> - 1718 | (* cPsi' |- Pi x:A.B <= typ - ... - 1759 | instantiateMMVar (mmvar.instantiation, tM1, mmvar.constraints.contents); - 1760 | Some tM1 - 1761 | - 1762 | | _ -> None - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/unify.ml", lines 1766-1769, characters 4-79: - 1766 | ....match tm with - 1767 | | (INorm n, _) -> INorm (prune cD cPsi hat (n, id) ss rOccur) - 1768 | | (IHead h, _) -> IHead (pruneHead cD cPsi (Location.ghost, h) ss rOccur) - 1769 | | (ISub s, STyp (_, cPhi)) -> ISub (pruneSubst cD cPsi (s, cPhi) ss rOccur) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ISub _, (MTyp _|PTyp _)) - File "src/core/unify.ml", lines 1772-1796, characters 4-9: - 1772 | ....let ClTyp (tp, cPsi1) = mmvar.typ in - 1773 | if isId t1' && isMId mt1 - 1774 | then - 1775 | begin - 1776 | dprint (fun () -> "[unifyMMVarTerm] 200 - id/m_id"); - ... - 1793 | (* with | NotInvertible -> Error.raise_violation "Unification violation" *) - 1794 | (* This might actually need to add a constraint, in which case "NotInvertible" seems - 1795 | the wrong kind of exception... *) - 1796 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1810-1882, characters 4-76: - 1810 | ....let ClTyp (_, cPsi1) = mmvar.typ in - 1811 | let mtt1 = Whnf.m_invert (Whnf.cnormMSub mt1) in - 1812 | (* cD |- mtt1 : cD0 and cD ; cPsi |- t1' : cPsi1 *) - 1813 | let (flat_cPsi, conv_list) = ConvSigma.flattenDCtx cD0 cPsi in - 1814 | let s_tup = ConvSigma.gen_tup_sub conv_list in (* flat_cPsi |- s_tup : cPsi *) - ... - 1879 | p.fmt "[unifyMMVarTermProj]: tM2 (after pruning) = %a" - 1880 | (P.fmt_ppr_lf_normal cD0 flat_cPsi P.l0) tM2' - 1881 | end; - 1882 | instantiateMMVar (mmvar.instantiation, sM2', mmvar.constraints.contents) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1885-1918, characters 4-102: - 1885 | ....let ClTyp (tp1, cPsi1) = mmvar1.typ in - 1886 | let (s', cPsi') = intersection (Context.dctxToHat cPsi) (Whnf.normSub t1') (Whnf.normSub t2') cPsi1 in - 1887 | (* if cD ; cPsi |- t1' <= cPsi1 and cD ; cPsi |- t2' <= cPsi1 - 1888 | then cD ; cPsi1 |- s' <= cPsi' *) - 1889 | let (mt', cD') = m_intersection (Whnf.cnormMSub mt1) (Whnf.cnormMSub mt2) mmvar1.cD in - ... - 1915 | [|w[s']/u|](u[t1]) = [t1](w[s']) - 1916 | [|w[s']/u|](u[t2]) = [t2](w[s']) - 1917 | *) - 1918 | instantiateMMVarWithMMVar mmvar1.instantiation loc (w, (mt', s')) tp1' mmvar1.constraints.contents - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1934-1975, characters 7-12: - 1934 | .......let ClTyp (MTyp tP2, cPsi2) = mmvar2.typ in - 1935 | dprnt "(000) MVar-MVar"; - 1936 | (* by invariant of whnf: - 1937 | meta-variables are lowered during whnf, s1 = s2 = id or co-id - 1938 | r1 and r2 are uninstantiated (None) - ... - 1972 | begin - 1973 | let id = next_constraint_id () in - 1974 | addConstraint (mmvar1.constraints, ref (Eqn (id, cD0, cPsi, INorm sN, INorm sM))) - 1975 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/unify.ml", lines 1933-1975, characters 7-12: - 1933 | .......let ClTyp (MTyp tP1, cPsi1) = mmvar1.typ in - 1934 | let ClTyp (MTyp tP2, cPsi2) = mmvar2.typ in - 1935 | dprnt "(000) MVar-MVar"; - 1936 | (* by invariant of whnf: - 1937 | meta-variables are lowered during whnf, s1 = s2 = id or co-id - ... - 1972 | begin - 1973 | let id = next_constraint_id () in - 1974 | addConstraint (mmvar1.constraints, ref (Eqn (id, cD0, cPsi, INorm sN, INorm sM))) - 1975 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/unify.ml", lines 2439-2452, characters 4-52: - 2439 | ....match (spine1, spine2) with - 2440 | | ((Nil, _), (Nil, _)) -> () - 2441 | - 2442 | | ((SClo (tS1, s1'), s1), sS) -> - 2443 | unifySpine mflag cD0 cPsi (tS1, comp s1' s1) sS - ... - 2449 | (* dprint (fun () -> "[unifySpine] " ^ P.normalToString cD0 cPsi (tM1, s1) ^ - 2450 | " == " ^ P.normalToString cD0 cPsi (tM2, s2));*) - 2451 | unifyTerm mflag cD0 cPsi (tM1, s1) (tM2, s2); - 2452 | unifySpine mflag cD0 cPsi (tS1, s1) (tS2, s2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Nil, _), (App (_, _), _)) - File "src/core/unify.ml", lines 2659-2710, characters 7-61: - 2659 | .......let CTyp schema1, CTyp schema2 = mmvar1.typ, mmvar2.typ in - 2660 | if mmvar1.instantiation == mmvar2.instantiation - 2661 | then - 2662 | if Option.equal Id.cid_schema_equal schema1 schema2 - 2663 | then - ... - 2707 | Error.raise_violation - 2708 | "Case where both meta-substitutions associated with \ - 2709 | context variables are not pattern substitutions \ - 2710 | should not happen and is not implemented for now" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CTyp _, ClTyp (_, _)) - File "src/core/unify.ml", lines 2714-2747, characters 7-61: - 2714 | .......let CTyp s_cid = mmvar.typ in - 2715 | if isPatMSub theta - 2716 | then - 2717 | begin - 2718 | let mtt1 = Whnf.m_invert (Whnf.cnormMSub theta) in - ... - 2744 | Error.raise_violation - 2745 | "Case where both meta-substitutions associated with \ - 2746 | context variables are not pattern substitutions \ - 2747 | should not happen and is not implemented for now" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (_, _) - File "src/core/unify.ml", lines 2785-2786, characters 4-43: - 2785 | ....let Decl { typ = cT; _ } = cdecl in - 2786 | unifyMObj cD (mO, t) (mO', t') (cT, mt) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/unify.ml", lines 2820-2832, characters 7-53: - 2820 | .......let Comp.PiKind (_, cdecl, cK') = cK in - 2821 | let mOt = Whnf.cnormMetaObj (mO, t) in - 2822 | (* let mOt' = Whnf.cnormMetaObj (mO', t') in *) - 2823 | unifyMetaObj cD (mO, t) (mO', t') (cdecl, mt); - 2824 | let mt' = MDot (Comp.metaObjToMFront mOt, mt) in - ... - 2829 | P.(fmt_ppr_cmp_meta_typ cD) (Whnf.cnormMTyp (mT', t')) - 2830 | end; - 2831 | unifyMetaTyp cD (mT, t) (mT', t'); - 2832 | unifyMetaSpine cD (mS, t) (mS', t') (cK', mt') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Ctype _ - File "src/core/unify.ml", lines 2837-2840, characters 4-81: - 2837 | ....function - 2838 | | (MTyp tA1, MTyp tA2) -> unifyTyp Unification cD cPsi (tA1, id) (tA2, id) - 2839 | | (PTyp tA1, PTyp tA2) -> unifyTyp Unification cD cPsi (tA1, id) (tA2, id) - 2840 | | (STyp (_, cPhi1), STyp (_, cPhi2)) -> unifyDCtx1 Unification cD cPhi1 cPhi2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MTyp _, (PTyp _|STyp (_, _))) - File "src/core/unify.ml", lines 2836-2840, characters 17-81: - 2836 | .................Unification cD cPsi = - 2837 | function - 2838 | | (MTyp tA1, MTyp tA2) -> unifyTyp Unification cD cPsi (tA1, id) (tA2, id) - 2839 | | (PTyp tA1, PTyp tA2) -> unifyTyp Unification cD cPsi (tA1, id) (tA2, id) - 2840 | | (STyp (_, cPhi1), STyp (_, cPhi2)) -> unifyDCtx1 Unification cD cPhi1 cPhi2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Matching - File "src/core/unify.ml", lines 2842-2850, characters 18-57: - 2842 | ..................Unification cD ctyp1 ctyp2 = - 2843 | match (ctyp1, ctyp2) with - 2844 | | (ClTyp (tp1, cPsi1), ClTyp (tp2, cPsi2)) -> - 2845 | unifyDCtx1 Unification cD cPsi1 cPsi2; - 2846 | unifyClTyp Unification cD cPsi1 (tp1, tp2) - 2847 | | (CTyp schema1, CTyp schema2) -> - 2848 | if Bool.not (Option.equal Id.cid_schema_equal schema1 schema2) - 2849 | then raise (Failure "CtxPi schema clash") - 2850 | | _ -> raise (Failure "Computation-level Type Clash") - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Matching - File "src/core/unify.ml", lines 2938-2941, characters 4-62: - 2938 | ....match (itM1, itM2) with - 2939 | | (INorm tM1, INorm tM2) -> unifyTerm Unification cD cPsi (tM1, id) (tM2, id) - 2940 | | (IHead tH1, IHead tH2) -> unifyHead Unification cD cPsi tH1 tH2 - 2941 | | (ISub s1, ISub s2) -> unifySub Unification cD cPsi s1 s2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (INorm _, (IHead _|ISub _|ICtx _)) - File "src/core/unify.ml", lines 2950-2962, characters 7-10: - 2950 | .......begin match !cnstr with - 2951 | | Queued id -> - 2952 | forceCnstr mflag (nextCnstr ()) - 2953 | | Eqn (c_id, cD, cPsi, INorm tM1, INorm tM2) -> - 2954 | solveConstraint cnstr; - ... - 2959 | solveConstraint cnstr; - 2960 | unifyHead mflag cD cPsi h1 h2; - 2961 | forceCnstr mflag (nextCnstr ()) - 2962 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Eqn (_, _, _, INorm _, (IHead _|ISub _|ICtx _)) - File "src/core/unify.ml", lines 2994-3029, characters 7-100: - 2994 | .......let Eqn (_, cD, cPsi, itM1, itM2) as c' = !c in - 2995 | solveConstraint c; - 2996 | dprintf - 2997 | begin fun p -> - 2998 | p.fmt "[forceGlobalCnstr'] @[<v>processing nontrivial constraint\ - ... - 3026 | *) - 3027 | if solvedCnstrs (!globalCnstrs) - 3028 | then (resetGlobalCnstrs (); forceGlobalCnstr' cnstrs) - 3029 | else raise (GlobalCnstrFailure (Location.ghost, "[forceGlobalCnstr'] Constraints generated")) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Queued _ - File "src/core/unify.ml", lines 3197-3199, characters 8-68: - 3197 | ........match (m1, m2) with - 3198 | | (MObj tM1, MObj tM2) -> unify Empty cPsi (tM1, id) (tM2,id) - 3199 | | (PObj h, PObj h') -> unifyHead Unification Empty cPsi h h' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MObj _, (PObj _|SObj _)) - File "src/core/unify.ml", lines 3203-3212, characters 4-49: - 3203 | ....match (m1, m2) with - 3204 | | (CObj cPsi, CObj cPhi) -> - 3205 | unifyDCtx1 - 3206 | Unification - 3207 | Empty - 3208 | (Whnf.cnormDCtx (cPsi, Whnf.m_id)) - 3209 | (Whnf.cnormDCtx (cPhi, Whnf.m_id)) - 3210 | | (ClObj (phat1, m1), ClObj (phat2, m2)) -> - 3211 | (* unify_phat phat1 phat2; *) - 3212 | unifyClObj (Context.hatToDCtx phat1) m1 m2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CObj _, (MUndef|ClObj (_, _)|MV _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Interactive.cmo -c -impl src/core/interactive.ml) - File "src/core/interactive.ml", lines 202-213, characters 10-26: - 202 | ..........let Cover.CovGoal (cPsi', tR, sA') = cg in - 203 | let ms' = LF.MDot (LF.ClObj (Context.dctxToHat cPsi', LF.MObj tR), ms) in - 204 | let k = List.length cD_tail in - 205 | let (cD'', ms0) = Coverage.addToMCtx cDg' (cD_tail, ms') in - 206 | let cg' = - ... - 210 | , (Whnf.cnormTyp (Whnf.normTyp sA', LF.MShift k), S.LF.id) - 211 | ) - 212 | in - 213 | (cD'', cg', ms0) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovCtx _|CovSub (_, _, _)|CovPatt (_, _, (_, _))) - File "src/core/interactive.ml", lines 183-214, characters 18-13: - 183 | ..................(LF.Decl { name =n; typ = mtyp; plicity; inductivity }) cD_tail = - 184 | match mtyp with - 185 | | LF.CTyp _ -> - 186 | Cover.genContextGoals cD' (n, mtyp, plicity, inductivity) - 187 | |> List.map - ... - 211 | ) - 212 | in - 213 | (cD'', cg', ms0) - 214 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Opsem.cmo -c -impl src/core/opsem.ml) - File "src/core/opsem.ml", lines 80-83, characters 2-30: - 80 | ..match cM' with - 81 | | LF.ClObj (phat, LF.MObj tM) -> (loc, cM') - 82 | | LF.ClObj (phat, LF.PObj h) -> (loc, cM') - 83 | | LF.CObj cPsi -> (loc, cM') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, SObj _) - File "src/core/opsem.ml", lines 121-137, characters 7-17: - 121 | .......function - 122 | | Comp.NilValBranch -> FunBranch Comp.NilValBranch - 123 | | Comp.ConsValBranch ((Comp.PatObs(_, cid', _, Comp.PatNil), e, theta, eta), br) - 124 | when Id.cid_comp_dest_equal cid cid' -> - 125 | Value (eval_exp e (theta, eta)) (* should we append theta' and eta'? *) - ... - 134 | | Value v -> Value v - 135 | end - 136 | | Comp.ConsValBranch ((Comp.PatObs(_, cid', _, ps), e, _, _), br) -> - 137 | trim br - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ConsValBranch (((PatNil|PatApp (_, _, _)), _, _, _), _) - File "src/core/opsem.ml", lines 119-142, characters 5-8: - 119 | .....let Comp.FunValue fbr = eval_exp e (theta, eta) in - 120 | let rec trim = - 121 | function - 122 | | Comp.NilValBranch -> FunBranch Comp.NilValBranch - 123 | | Comp.ConsValBranch ((Comp.PatObs(_, cid', _, Comp.PatNil), e, theta, eta), br) - ... - 139 | begin match trim fbr with - 140 | | FunBranch fr -> Comp.FunValue fr - 141 | | Value v -> v - 142 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (FnValue (_, _, _, _)|ThmValue (_, _, _, _)|MLamValue (_, _, _, _)| - CtxValue (_, _, _, _)|BoxValue (_, _)|ConstValue _|DataValue (_, _)| - TupleValue (T (_, _, _))) - File "src/core/opsem.ml", lines 91-290, characters 2-50: - 91 | ..match i with - 92 | | Comp.Const (_, cid) -> - 93 | dprint (fun () -> "[eval_exp] Const " ^ R.render_cid_prog cid); - 94 | begin match (Store.Cid.Comp.get cid).Store.Cid.Comp.Entry.prog with - 95 | | Some (Comp.ThmValue (cid, Comp.Program e', theta', eta')) -> - ... - 287 | eval_branches loc vscrut branches (theta, eta) - 288 | - 289 | | Comp.Hole (_) -> - 290 | Error.raise_violation "Source contains holes" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MApp (_, _, (_, ClObj (_, SObj _)), _, _) - File "src/core/opsem.ml", lines 321-325, characters 2-36: - 321 | ..match (cObj, cObj') with - 322 | | (LF.MObj tM, LF.MObj tM') -> - 323 | Unify.unify LF.Empty cPsi' (tM, Substitution.LF.id) (tM', Substitution.LF.id) - 324 | | (LF.PObj h, LF.PObj h') -> - 325 | Unify.unifyH LF.Empty phat h h' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MObj _, (PObj _|SObj _)) - File "src/core/opsem.ml", lines 437-458, characters 4-10: - 437 | ....function - 438 | | Comp.NilValBranch -> FunBranch (Comp.NilValBranch) - 439 | | Comp.ConsValBranch ((Comp.PatApp (_, p, Comp.PatNil), e, theta, eta), brs) -> - 440 | begin try - 441 | let eta' = match_pattern (v, eta) (p, theta) in - ... - 455 | eval_branch brs - 456 | | Unify.Failure msg -> (dprint (fun () -> "Branch failed : " ^ msg); - 457 | eval_branch brs) - 458 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ConsValBranch (((PatNil|PatObs (_, _, _, _)), _, _, _), _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Lfcheck.cmo -c -impl src/core/lfcheck.ml) - File "src/core/lfcheck.ml", lines 225-230, characters 2-19: - 225 | ..function - 226 | | Null -> Ctxsub.ctxShift cPhi (* S.LF.id *) - 227 | | DDec (cPsi', TypDecl (n, tA)) -> - 228 | let s = (ctxToSub' cPhi cPsi' : sub) in - 229 | let u = Whnf.etaExpandMV cPhi (tA, s) n S.LF.id Plicity.implicit Inductivity.not_inductive in - 230 | Dot (Obj u, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/lfcheck.ml", lines 246-330, characters 2-55: - 246 | ..match (sM, sA) with - 247 | | ((Lam (loc, name, tM), s1), (PiTyp ((TypDecl _ as tX, _, _), tB), s2)) -> (* Offset by 1 *) - 248 | check cD - 249 | (DDec (cPsi, S.LF.decSub tX s2)) - 250 | (tM, S.LF.dot1 s1) - ... - 327 | raise (Error (loc, (CheckError (cD, cPsi, sM, sA)))) - 328 | end - 329 | | ((Root (loc, _, _, _), _ (* id *)), _ ) -> - 330 | raise (Error (loc, CheckError (cD, cPsi, sM, sA))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Clo _, _), _) - File "src/core/lfcheck.ml", lines 361-370, characters 4-23: - 361 | ....match (tS, sA) with - 362 | | ((Nil, _), sP) -> sP - 363 | - 364 | | ((SClo (tS, s'), s), sA) -> - 365 | syn (tS, S.LF.comp s' s) sA - 366 | - 367 | | ((App (tM, tS), s1), (PiTyp ((TypDecl (_, tA1), _, _), tB2), s2)) -> - 368 | check cD cPsi (tM, s1) (tA1, s2); - 369 | let tB2 = Whnf.whnfTyp (tB2, Dot (Obj (Clo (tM, s1)), s2)) in - 370 | syn (tS, s1) tB2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((App (_, _), _), (PiTyp ((TypDeclOpt _, _, _), _), _)) - File "src/core/lfcheck.ml", lines 346-377, characters 16-23: - 346 | ................(Root (loc, h, tS, _), s (* id *)) = - 347 | let rec spineLength = - 348 | function - 349 | | Nil -> 0 - 350 | | SClo (tS, _) -> spineLength tS - ... - 374 | (* Check first that we didn't supply too many arguments. *) - 375 | if typLength sA' < spineLength tS - 376 | then raise (Error (loc, SpineIllTyped (typLength sA', spineLength tS))); - 377 | syn (tS, s) (sA', s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)), _) - File "src/core/lfcheck.ml", lines 393-394, characters 5-7: - 393 | .....let TypDecl (_, tA) = ctxDec cPsi k' in - 394 | tA - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfcheck.ml", lines 400-409, characters 10-25: - 400 | ..........let TypDecl (_, Sigma recA) = ctxSigmaDec cPsi k' in - 401 | dprintf - 402 | begin fun p -> - 403 | p.fmt "[InferHead] @[<v>%a |- %a@,where %a has type %a@]" - 404 | (P.fmt_ppr_lf_dctx cD P.l0) cPsi - 405 | (P.fmt_ppr_lf_head cD cPsi P.l0) head - 406 | (P.fmt_ppr_lf_head cD cPsi P.l0) tuple_head - 407 | (P.fmt_ppr_lf_typ_rec cD cPsi P.l0) recA - 408 | end; - 409 | (recA, S.LF.id) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDecl (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _))) - File "src/core/lfcheck.ml", lines 411-413, characters 10-19: - 411 | ..........let (_, Sigma recA, cPsi') = Whnf.mctxPDec cD p in - 412 | checkSub loc cD cPsi s Subst cPsi'; - 413 | (recA, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _)), _) - File "src/core/lfcheck.ml", lines 398-414, characters 7-64: - 398 | .......match tuple_head with - 399 | | BVar k' -> - 400 | let TypDecl (_, Sigma recA) = ctxSigmaDec cPsi k' in - 401 | dprintf - 402 | begin fun p -> - ... - 411 | let (_, Sigma recA, cPsi') = Whnf.mctxPDec cD p in - 412 | checkSub loc cD cPsi s Subst cPsi'; - 413 | (recA, s) - 414 | | FPVar (name, _) -> raise (Error (loc, LeftoverFV name)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfcheck.ml", lines 446-457, characters 5-17: - 446 | .....let ClTyp (MTyp tA, cPsi') = mmvar.typ in - 447 | dprintf - 448 | begin fun p -> - 449 | let f = P.fmt_ppr_lf_dctx cD P.l0 in - 450 | p.fmt "[inferHead] @[<v>%a@,%a |- %a <= %a@]" - ... - 454 | f cPsi' - 455 | end; - 456 | checkSub loc cD cPsi s Subst cPsi' ; - 457 | TClo (tA, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/lfcheck.ml", lines 461-474, characters 5-37: - 461 | .....let ClTyp (MTyp tA, cPsi') = mmvar.typ in - 462 | dprintf - 463 | begin fun p -> - 464 | let f = P.fmt_ppr_lf_mctx P.l0 in - 465 | p.fmt "[inferHead] @[<v>MMVar %a@,cD = %a@,t' = %a@,cD' = %a@]" - ... - 471 | checkMSub loc cD t' mmvar.cD; - 472 | dprint (fun () -> "[inferHead] MMVar - msub done \n"); - 473 | checkSub loc cD cPsi r Subst (Whnf.cnormDCtx (cPsi', t')) ; - 474 | TClo (Whnf.cnormTyp (tA, t'), r) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/lfcheck.ml", lines 391-506, characters 2-41: - 391 | ..match (head, cl) with - 392 | | (BVar k', _) -> - 393 | let TypDecl (_, tA) = ctxDec cPsi k' in - 394 | tA - 395 | - ... - 503 | TClo (tA, s) - 504 | - 505 | | (FVar name, _) | (FMVar (name, _), _) | (FPVar (name, _), _) -> - 506 | raise (Error (loc, LeftoverFV name)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MVar (Inst _, _), Subst) - (However, some guarded clause may match this value.) - File "src/core/lfcheck.ml", lines 509-528, characters 2-13: - 509 | ..match cPsi with - 510 | | Null -> true (* we need to succeed because coverage should detect that - 511 | it is not inhabited *) - 512 | - 513 | | CtxVar ctx_var -> - ... - 525 | - 526 | | DDec (rest, TypDecl _) -> - 527 | canAppear cD rest head sA loc - 528 | || false........................................... - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/lfcheck.ml", lines 643-655, characters 2-23: - 643 | ..match sS1, sK with - 644 | | (Nil, _), sK -> - 645 | sK - 646 | - 647 | | (SClo (tS, s'), s), sK -> - ... - 652 | synKSpine cD cPsi (tS, s1) (kK, Dot (Obj (Clo (tM, s1)), s2)) - 653 | - 654 | | (App _, _), (Typ, _) -> - 655 | raise SpineMismatch - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((App (_, _), _), (PiKind ((TypDeclOpt _, _, _), _), _)) - File "src/core/lfcheck.ml", lines 664-681, characters 2-47: - 664 | ..match tA with - 665 | | Atom (loc, a, tS) -> - 666 | let tK = (Store.Cid.Typ.get a).Store.Cid.Typ.Entry.kind in - 667 | begin - 668 | try - ... - 678 | checkTyp cD cPsi (tA, s); - 679 | checkTyp cD (DDec (cPsi, TypDecl (x, TClo (tA, s)))) (tB, S.LF.dot1 s) - 680 | - 681 | | Sigma arec -> checkTypRec cD cPsi (arec, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/lfcheck.ml", lines 710-714, characters 2-53: - 710 | ..function - 711 | | Typ -> () - 712 | | PiKind ((TypDecl (x, tA), _, _), kind) -> - 713 | checkTyp cD cPsi (tA, S.LF.id); - 714 | checkKind cD (DDec (cPsi, TypDecl (x, tA))) kind - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiKind ((TypDeclOpt _, _, _), _) - File "src/core/lfcheck.ml", lines 724-725, characters 2-47: - 724 | ..match decl with - 725 | | TypDecl (_, tA) -> checkTyp cD cPsi (tA, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfcheck.ml", lines 734-754, characters 2-7: - 734 | ..match cPsi with - 735 | | Null -> () - 736 | | DDec (cPsi, tX) -> - 737 | checkDCtx cD cPsi; - 738 | checkDec cD cPsi (tX, S.LF.id) - ... - 751 | (P.fmt_ppr_lf_mctx P.l0) cD - 752 | end; - 753 | ignore (Whnf.mctxLookup cD k); - 754 | () - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar (CtxName _|CInst _) - File "src/core/lfcheck.ml", lines 962-963, characters 5-47: - 962 | .....let Some (ICtx cPhi) = mmvar.instantiation.contents in - 963 | checkSchema loc cD cPhi schema_name schema - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/lfcheck.ml", lines 1019-1027, characters 2-57: - 1019 | ..match (sArec, sBrec) with - 1020 | | ((SigmaLast _, _), (SigmaLast _, _)) -> - 1021 | None - 1022 | - 1023 | | ((SigmaElem (_, _, recA), s), (SigmaLast _, _)) -> - 1024 | Some (recA, s) - 1025 | - 1026 | | ((SigmaElem (_, _, recA), s), (SigmaElem (_, _, recB), s')) -> - 1027 | elemPostfix (recA, S.LF.dot1 s) (recB, S.LF.dot1 s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((SigmaLast (_, _), _), (SigmaElem (_, _, _), _)) - File "src/core/lfcheck.ml", lines 1075-1101, characters 2-69: - 1075 | ..match (cM, cTt) with - 1076 | | (CObj cPsi, (CTyp (Some w), _)) -> - 1077 | let { Store.Cid.Schema.Entry.name; schema } = Store.Cid.Schema.get w in - 1078 | checkSchema loc cD cPsi name schema - 1079 | - ... - 1098 | let mtyp1 = Whnf.cnormMTyp (mtyp1, t) in - 1099 | let (_, mtyp2) = Whnf.mctxLookup cD u in - 1100 | if Bool.not (Whnf.convMTyp mtyp1 mtyp2) - 1101 | then Error.raise_violation ("Contextual substitution ill-typed") - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CObj _, (CTyp None, _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Lfrecon.cmo -c -impl src/core/lfrecon.ml) - File "src/core/lfrecon.ml", lines 253-262, characters 2-29: - 253 | ..function - 254 | | Apx.LF.BVar _ -> "BVar" - 255 | | Apx.LF.Const _ -> "Const" - 256 | | Apx.LF.MVar _ -> "MVar" - 257 | | Apx.LF.PVar (Apx.LF.Offset _, _) -> "PVar Offset " - 258 | | Apx.LF.PVar (Apx.LF.MInst _, _) -> "PVar PInst " - 259 | | Apx.LF.Proj (head, _) -> "Proj " ^ what_head head - 260 | | Apx.LF.FVar _ -> "FVar" - 261 | | Apx.LF.FMVar _ -> "FMVar" - 262 | | Apx.LF.FPVar _ -> "FPVar" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Hole - File "src/core/lfrecon.ml", lines 275-276, characters 5-19: - 275 | .....let (None, d) = Context.dctxToHat cPsi in - 276 | Int.LF.Shift d - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Some _, _) - File "src/core/lfrecon.ml", lines 311-333, characters 8-80: - 311 | ........let CTyp s_cid = mmvar1.typ in - 312 | if d = d' - 313 | then - 314 | begin - 315 | begin match c_var with - ... - 330 | true - 331 | end - 332 | else - 333 | Error.raise_not_implemented "[unify_phat] ctx_var with a full context" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (_, _) - File "src/core/lfrecon.ml", lines 358-359, characters 9-42: - 358 | .........let (_, Int.LF.Decl { typ = Int.LF.CTyp (Some s_cid); _ }) = Store.FCVar.get n in - 359 | Store.Cid.Schema.get_schema s_cid - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp None; _ }) - File "src/core/lfrecon.ml", lines 352-366, characters 2-92: - 352 | ..match ctxvar with - 353 | | Some (Int.LF.CtxOffset _ as phi) -> - 354 | Store.Cid.Schema.get_schema (Context.lookupCtxVarSchema cD phi) - 355 | | Some (Int.LF.CtxName n) -> - 356 | begin - ... - 363 | - 364 | | Some Int.LF.(CInst ({ typ = CTyp (Some s_cid); _ }, _)) -> - 365 | Store.Cid.Schema.get_schema s_cid - 366 | | None -> Error.raise_violation "No context variable for which we could retrieve a schema" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (CInst ({typ=CTyp None; _ }, _)) - File "src/core/lfrecon.ml", lines 372-376, characters 2-44: - 372 | ..function - 373 | | Int.LF.Atom _ -> m - 374 | | Int.LF.PiTyp ((Int.LF.TypDecl (x, _), _, _), tA) -> - 375 | dprint (fun () -> "eta FMV - add Lam "); - 376 | Apx.LF.Lam (loc, x, addPrefix loc m tA) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/lfrecon.ml", lines 385-389, characters 4-62: - 385 | ....function - 386 | | Int.LF.Atom _ -> (k, s) - 387 | | Int.LF.PiTyp (_, tA) -> - 388 | let (k', s') = go (k + 1) s tA in - 389 | (k' - 1, Apx.LF.Dot (Apx.LF.Head (Apx.LF.BVar k'), s')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _|TClo _) - File "src/core/lfrecon.ml", lines 391-395, characters 2-18: - 391 | ..match tA, s with - 392 | | Int.LF.Atom _, _ -> (k, s) - 393 | | Int.LF.PiTyp _, None -> - 394 | let (k', s') = go k Apx.LF.Id tA in - 395 | (k', Some s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp (_, _), Some _) - File "src/core/lfrecon.ml", lines 399-401, characters 20-71: - 399 | ....................(Apx.LF.MVar (x, s)) tA = - 400 | let (_, s') = etaExpSub 0 s tA in - 401 | addPrefix loc (Apx.LF.Root (loc, Apx.LF.MVar (x, s'), Apx.LF.Nil)) tA - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Hole|BVar _|Const _|Proj (_, _)|PVar (_, _)|FVar _|FMVar (_, _)| - FPVar (_, _)) - File "src/core/lfrecon.ml", lines 406-410, characters 4-52: - 406 | ....function - 407 | | Int.LF.Atom _ -> (k, tS) - 408 | | Int.LF.PiTyp (_, tA') -> - 409 | let tN = Int.LF.Root (loc, Int.LF.BVar k, Int.LF.Nil, Plicity.explicit) in - 410 | etaExpSpine (k + 1) (Int.LF.App (tN, tS)) tA' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _|TClo _) - File "src/core/lfrecon.ml", lines 414-417, characters 4-54: - 414 | ....match tA with - 415 | | Int.LF.Atom _ -> tM - 416 | | Int.LF.PiTyp ((Int.LF.TypDecl (x, _), _, _), tA') -> - 417 | Int.LF.Lam (loc, x, etaExpPrefix loc (tM, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/lfrecon.ml", lines 422-424, characters 4-24: - 422 | ....match h with - 423 | | Int.LF.BVar x -> Int.LF.BVar (x + k - 1) - 424 | | Int.LF.FVar _ -> h - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfrecon.ml", lines 457-461, characters 4-55: - 457 | ....function - 458 | | Int.LF.Atom _ -> (k, tS) - 459 | | Int.LF.PiTyp (_, tA') -> - 460 | let tN = Apx.LF.Root (loc, Apx.LF.BVar k, Apx.LF.Nil) in - 461 | etaExpApxSpine (k + 1) (Apx.LF.App (tN, tS)) tA' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _|TClo _) - File "src/core/lfrecon.ml", lines 464-468, characters 4-57: - 464 | ....match tA with - 465 | | Int.LF.Atom _ -> tM - 466 | | Int.LF.PiTyp ((Int.LF.TypDecl (x, _), _, _), tA') -> - 467 | dprint (fun () -> "eta - add Lam "); - 468 | Apx.LF.Lam (loc, x, etaExpApxPrefix loc (tM, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/lfrecon.ml", lines 613-614, characters 2-33: - 613 | ..let Int.LF.TypDecl (_, Int.LF.Sigma recA) = tp in - 614 | getProjIndex loc cD cPsi recA k - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDecl (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _))) - File "src/core/lfrecon.ml", lines 617-630, characters 2-19: - 617 | ..match h with - 618 | | Apx.LF.BVar k -> Apx.LF.BVar (ConvSigma.map conv_list k) - 619 | - 620 | | Apx.LF.Proj (Apx.LF.BVar k, p) -> - 621 | let tp = - ... - 627 | let j = getProjIndexFromType loc cD cPsi tp p in - 628 | dprintf (fun p -> p.fmt "flattenProjPat Proj Case: k = %d j = %d@\n" k j); - 629 | let k' = ConvSigma.map conv_list k - j + 1 in - 630 | Apx.LF.BVar k' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Proj - ((Hole|Const _|MVar (_, _)|Proj (_, _)|PVar (_, _)|FVar _|FMVar (_, _)| - FPVar (_, _)), - _) - File "src/core/lfrecon.ml", lines 637-643, characters 7-41: - 637 | .......function - 638 | | Apx.LF.Id -> Apx.LF.Id - 639 | | Apx.LF.EmptySub -> Apx.LF.EmptySub - 640 | | Apx.LF.Dot (Apx.LF.Head h, s) -> - 641 | let s' = go s in - 642 | let h' = flattenProjPatHead loc cD h conv_list cPsi in - 643 | Apx.LF.Dot (Apx.LF.Head h', s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dot (Obj _, _) - File "src/core/lfrecon.ml", lines 679-691, characters 2-38: - 679 | ..match s with - 680 | | Apx.LF.Id -> s - 681 | - 682 | | Apx.LF.EmptySub -> s - 683 | - ... - 688 | Apx.LF.Dot (Apx.LF.Head h, flattenSub s) - 689 | - 690 | | Apx.LF.Dot (Apx.LF.Obj (Apx.LF.Tuple (_, tM)), s) -> - 691 | flattenVarTuple tM (flattenSub s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dot (Obj (Lam (_, _, _)|Root (_, _, _)|LFHole (_, _)|Ann (_, _, _)), _) - File "src/core/lfrecon.ml", lines 697-698, characters 2-77: - 697 | ..function - 698 | | Apx.LF.Root (_, Apx.LF.BVar k, Apx.LF.Nil) -> Apx.LF.Head (Apx.LF.BVar k) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Root (_, BVar _, App (_, _)) - File "src/core/lfrecon.ml", lines 827-829, characters 5-60: - 827 | .....let Int.LF.TypDecl (x, Int.LF.Sigma typRec) = tp in - 828 | let sQ = Int.LF.getType h' (typRec, S.LF.id) j in - 829 | Int.LF.TypDecl (x, Int.LF.TClo sQ), Int.LF.Proj (h', j) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDecl (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _))) - File "src/core/lfrecon.ml", lines 822-829, characters 2-60: - 822 | ..function - 823 | | Apx.LF.BVar k -> Context.ctxDec cPsi k, Int.LF.BVar k - 824 | | Apx.LF.Proj (h, nj) -> - 825 | let (tp, h') = synHead cD loc cPsi h in - 826 | let j = getProjIndexFromType loc cD cPsi tp nj in - 827 | let Int.LF.TypDecl (x, Int.LF.Sigma typRec) = tp in - 828 | let sQ = Int.LF.getType h' (typRec, S.LF.id) j in - 829 | Int.LF.TypDecl (x, Int.LF.TClo sQ), Int.LF.Proj (h', j) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Hole|Const _|MVar (_, _)|PVar (_, _)|FVar _|FMVar (_, _)|FPVar (_, _)) - File "src/core/lfrecon.ml", lines 858-867, characters 5-8: - 858 | .....begin match synHead cD loc cPsi h with - 859 | | (Int.LF.TypDecl (x, tA), h') -> - 860 | let tA' = - 861 | pruningTyp loc cD cPsi (Context.dctxToHat cPsi) - 862 | (tA, S.LF.id) (Int.LF.MShift 0, ss) - 863 | in - 864 | ( Int.LF.DDec (cPhi, Int.LF.TypDecl (x, tA')) - 865 | , Int.LF.Dot (Int.LF.Head h', s') - 866 | ) - 867 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypDeclOpt _, _) - File "src/core/lfrecon.ml", lines 884-890, characters 2-66: - 884 | ..function - 885 | | Apx.LF.Typ -> Int.LF.Typ - 886 | | Apx.LF.PiKind ((Apx.LF.TypDecl (x, a), depend, plicity), k) -> - 887 | let tA = elTyp Pi (*cD=*)Int.LF.Empty cPsi a in - 888 | let cPsi' = Int.LF.DDec (cPsi, Int.LF.TypDecl (x, tA)) in - 889 | let tK = elKind cD cPsi' k in - 890 | Int.LF.PiKind ((Int.LF.TypDecl (x, tA), depend, plicity), tK) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiKind ((TypDeclOpt _, _, _), _) - File "src/core/lfrecon.ml", lines 909-925, characters 2-25: - 909 | ..function - 910 | | Apx.LF.Atom (loc, a, s) -> - 911 | let { Store.Cid.Typ.Entry.kind = tK; implicit_arguments = i; _ } = Store.Cid.Typ.get a in - 912 | let s' = mkShift recT cPsi in - 913 | (* let s' = S.LF.id in *) - ... - 922 | - 923 | | Apx.LF.Sigma typRec -> - 924 | let typRec' = elTypRec recT cD cPsi typRec in - 925 | Int.LF.Sigma typRec' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/lfrecon.ml", lines 977-1023, characters 2-34: - 977 | ..match (m, sA) with - 978 | | (Apx.LF.Lam (loc, x, m), (Int.LF.PiTyp ((Int.LF.TypDecl _ as decl, _, _), tB), s)) -> - 979 | (* cPsi' = cPsi, x:tA *) - 980 | let cPsi' = Int.LF.DDec (cPsi, S.LF.decSub decl s) in - 981 | let tM = elTerm recT cD cPsi' m (tB, S.LF.dot1 s) in - ... - 1020 | | (Apx.LF.LFHole (loc, m_name), tA) -> - 1021 | let id = Holes.allocate () in - 1022 | let name = HoleId.name_of_option m_name in - 1023 | Int.LF.LFHole (loc, id, name) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _), (PiTyp ((TypDeclOpt _, _, _), _), _)) - File "src/core/lfrecon.ml", lines 1081-1091, characters 9-12: - 1081 | .........let Int.LF.TypDecl (_, tA) = Context.ctxDec cPsi x in - 1082 | let (tS, sQ) = elSpine loc recT cD cPsi spine (tA, S.LF.id) in - 1083 | begin - 1084 | try - 1085 | Unify.unifyTyp cD cPsi sQ sP; - ... - 1088 | | Unify.Failure msg -> - 1089 | throw loc (TypMismatchElab (cD, cPsi, sP, sQ)) - 1090 | | _ -> throw loc (TypMismatchElab (cD, cPsi, sP, sQ)) - 1091 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfrecon.ml", lines 1213-1280, characters 9-12: - 1213 | .........let (cD_d, Int.LF.Decl { typ = Int.LF.ClTyp (Int.LF.MTyp tQ, cPhi); _ }) = Store.FCVar.get u in - 1214 | dprintf - 1215 | begin fun p -> - 1216 | p.fmt "[elTerm'] @[<v>FMV %a of type %a[%a]@,in cD_d = %a@,and cD = %a@]" - 1217 | Name.pp u - ... - 1277 | raise (Check.LF.Error (loc, Check.LF.TypMismatch (cD, cPsi, (tR, S.LF.id), (tQ', s''), sP))) - 1278 | |_ -> - 1279 | raise (Check.LF.Error (loc, Check.LF.TypMismatch (cD, cPsi, (tR, S.LF.id), (tQ', s''), sP))) - 1280 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((PTyp _|STyp (_, _)), _); _ }) - File "src/core/lfrecon.ml", lines 1476-1500, characters 9-12: - 1476 | .........let (cD_d, Int.LF.Decl { typ = Int.LF.ClTyp (Int.LF.PTyp tA, cPhi); _ }) = Store.FCVar.get p in - 1477 | let d = Context.length cD - Context.length cD_d in - 1478 | let (tA, cPhi) = - 1479 | if d = 0 - 1480 | then (tA, cPhi) - ... - 1497 | raise (Check.LF.Error (loc, Check.LF.TypMismatch (cD, cPsi, (tR, S.LF.id), sQ, sP))) - 1498 | | _ -> - 1499 | raise (Check.LF.Error (loc, Check.LF.TypMismatch (cD, cPsi, (tR, S.LF.id), sQ, sP))) - 1500 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((MTyp _|STyp (_, _)), _); _ }) - File "src/core/lfrecon.ml", lines 1571-1607, characters 9-12: - 1571 | .........let (cD_d, Int.LF.Decl { typ = Int.LF.ClTyp (Int.LF.PTyp ((Int.LF.Sigma typRec) as tA), cPhi); _ }) = - 1572 | Store.FCVar.get p - 1573 | in - 1574 | let d = Context.length cD - Context.length cD_d in - 1575 | let (tA, cPhi) = - ... - 1604 | throw loc (TypMismatchElab (cD, cPsi, sP, sQ)) - 1605 | | _ -> - 1606 | throw loc (TypMismatchElab (cD, cPsi, sP, sQ)) - 1607 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, - Decl - {typ=ClTyp (PTyp (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _)), _); _ }) - File "src/core/lfrecon.ml", lines 1808-1813, characters 10-13: - 1808 | ..........begin match S.LF.bvarSub k s'' with - 1809 | | Int.LF.Head (Int.LF.BVar j) -> - 1810 | Int.LF.Root (loc, Int.LF.BVar j, tS, Plicity.explicit) - 1811 | | Int.LF.Head (Int.LF.PVar (p, r')) -> - 1812 | Int.LF.Root (loc, Int.LF.PVar (p, S.LF.comp r' s''), tS, Plicity.explicit) - 1813 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfrecon.ml", lines 1806-1817, characters 7-10: - 1806 | .......begin match h with - 1807 | | Int.LF.BVar k -> - 1808 | begin match S.LF.bvarSub k s'' with - 1809 | | Int.LF.Head (Int.LF.BVar j) -> - 1810 | Int.LF.Root (loc, Int.LF.BVar j, tS, Plicity.explicit) - ... - 1814 | | Int.LF.PVar (p, r) -> - 1815 | Int.LF.Root (loc, Int.LF.PVar (p, S.LF.comp r s''), tS, Plicity.explicit) - 1816 | (* | Int.LF.Proj (Int.LF.PVar (p, r), i) -> Int.LF.Root (loc, Int.LF) *) - 1817 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfrecon.ml", lines 1857-1879, characters 5-8: - 1857 | .....let Int.LF.TypDecl (_, Int.LF.Sigma recA) = - 1858 | try - 1859 | Context.ctxSigmaDec cPsi x - 1860 | with - 1861 | | _ -> - ... - 1876 | with - 1877 | | Unify.Failure msg -> - 1878 | throw loc (TypMismatchElab (cD, cPsi, sP, sQ)) - 1879 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDecl (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _))) - File "src/core/lfrecon.ml", lines 1882-1910, characters 5-8: - 1882 | .....begin - 1883 | match Whnf.mctxPDec cD p with - 1884 | | (_, Int.LF.Sigma recA, cPsi') -> - 1885 | let t' = elSub loc recT cD cPsi t Int.LF.Subst cPsi' in - 1886 | let k = getProjIndex loc cD cPsi recA proj in - ... - 1907 | end - 1908 | | (_, Int.LF.PiTyp _, _) -> throw loc (IllTypedElab (cD, cPsi, sP, VariantPi)) - 1909 | | (_, Int.LF.Atom _, _) -> throw loc (IllTypedElab (cD, cPsi, sP, VariantAtom)) - 1910 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, TClo _, _) - File "src/core/lfrecon.ml", lines 1941-1951, characters 12-15: - 1941 | ............begin match S.LF.bvarSub y s'' with - 1942 | | Int.LF.Head (Int.LF.BVar x) -> - 1943 | Int.LF.Root (loc, Int.LF.Proj (Int.LF.BVar x, k), tS, Plicity.explicit) - 1944 | | Int.LF.Head (Int.LF.PVar (p, r')) -> - 1945 | Int.LF.Root - ... - 1948 | , tS - 1949 | , Plicity.explicit - 1950 | ) - 1951 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfrecon.ml", lines 1939-1959, characters 9-12: - 1939 | .........begin match h with - 1940 | | Int.LF.BVar y -> - 1941 | begin match S.LF.bvarSub y s'' with - 1942 | | Int.LF.Head (Int.LF.BVar x) -> - 1943 | Int.LF.Root (loc, Int.LF.Proj (Int.LF.BVar x, k), tS, Plicity.explicit) - ... - 1956 | , tS - 1957 | , Plicity.explicit - 1958 | ) - 1959 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfrecon.ml", lines 1044-1980, characters 2-25: - 1044 | ..match r with - 1045 | | Apx.LF.Ann (_loc, m, a) -> - 1046 | elTerm' recT cD cPsi m sP - 1047 | - 1048 | | Apx.LF.LFHole (location, m_name) -> - ... - 1977 | - 1978 | | Apx.LF.Root (loc, h, _) -> - 1979 | dprintf (fun p -> p.fmt "[elTerm' **] h = %s@\n" (what_head h)); - 1980 | throw loc CompTypAnn - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _)|Tuple (_, _)) - File "src/core/lfrecon.ml", lines 2102-2104, characters 5-65: - 2102 | .....let Int.LF.TypDecl (_, tA) = Context.ctxDec cPsi x in - 2103 | let (tS, sQ) = elSpine loc recT cD cPsi spine (tA, S.LF.id) in - 2104 | (Int.LF.Root (loc, Int.LF.BVar x, tS, Plicity.explicit), sQ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfrecon.ml", lines 2159-2169, characters 5-82: - 2159 | .....let Int.LF.TypDecl (_, Int.LF.Sigma recA) = Context.ctxSigmaDec cPsi x in - 2160 | let k = getProjIndex loc cD cPsi recA proj in - 2161 | let sA = - 2162 | try - 2163 | Int.LF.getType (Int.LF.BVar x) (recA, S.LF.id) k - ... - 2166 | throw loc (ProjNotValid (cD, cPsi, k, (Int.LF.Sigma recA, S.LF.id))) - 2167 | in - 2168 | let (tS, sQ) = elSpine loc recT cD cPsi spine sA in - 2169 | (Int.LF.Root (loc, Int.LF.Proj (Int.LF.BVar x, k), tS, Plicity.explicit), sQ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDecl (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _))) - File "src/core/lfrecon.ml", lines 2276-2310, characters 11-14: - 2276 | ...........let (cD_d, Int.LF.Decl { typ = Int.LF.ClTyp (Int.LF.STyp (cl0, cPhi0), cPsi0); _ }) = - 2277 | Store.FCVar.get s_name - 2278 | in - 2279 | svar_le (cl0, cl); - 2280 | let d = Context.length cD - Context.length cD_d in - ... - 2307 | with - 2308 | | Unify.Failure msg -> - 2309 | throw loc (IllTypedSubVar (cD, cPsi, cPhi)) - 2310 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((MTyp _|PTyp _), _); _ }) - File "src/core/lfrecon.ml", lines 2514-2516, characters 9-40: - 2514 | .........let Int.LF.TypDecl (_, tA') = Context.ctxDec (Whnf.cnormDCtx (cPsi, Whnf.m_id)) x in - 2515 | dprint (fun () -> "[elHead] done"); - 2516 | (Int.LF.BVar x, (tA', S.LF.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfrecon.ml", lines 2574-2576, characters 9-59: - 2574 | .........let (offset, Int.LF.ClTyp (Int.LF.MTyp tP, cPhi)) = Whnf.mctxMVarPos cD u in - 2575 | let s' = elSub loc recT cD cPsi s Int.LF.Subst cPhi in - 2576 | (Int.LF.MVar (Int.LF.Offset offset, s'), (tP, s')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, ClTyp ((PTyp _|STyp (_, _)), _)) - File "src/core/lfrecon.ml", lines 2583-2585, characters 5-41: - 2583 | .....let (offset, Int.LF.ClTyp (Int.LF.PTyp tA, cPhi)) = Whnf.mctxMVarPos cD p in - 2584 | let s' = elSub loc recT cD cPsi s cl cPhi in - 2585 | (Int.LF.PVar (offset, s'), (tA, s')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, ClTyp ((MTyp _|STyp (_, _)), _)) - File "src/core/lfrecon.ml", lines 2643-2674, characters 4-36: - 2643 | ....match (sA, recT) with - 2644 | | ((Int.LF.PiTyp ((Int.LF.TypDecl (n, tA), _, _), tB), s), Pi) -> - 2645 | (* cPsi' |- tA <= typ - 2646 | * cPsi |- s <= cPsi' cPsi |- tN <= [s]A - 2647 | * - ... - 2671 | in - 2672 | - 2673 | let (spine', sP) = elSpineI loc recT cD cPsi spine (i - 1) (tB, Int.LF.Dot (Int.LF.Obj tN, s)) in - 2674 | (Int.LF.App (tN, spine'), sP) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((PiTyp ((TypDeclOpt _, _, _), _), _), _) - File "src/core/lfrecon.ml", lines 2705-2708, characters 4-25: - 2705 | ....function - 2706 | | Int.LF.Atom _ -> 0 - 2707 | | Int.LF.PiTyp (_, tB2) -> 1 + typLength tB2 - 2708 | | Int.LF.Sigma _ -> 0........................................................ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TClo _ - File "src/core/lfrecon.ml", lines 2725-2732, characters 4-32: - 2725 | ....match (spine, Whnf.whnfTyp sA) with - 2726 | | (Apx.LF.Nil, sP) -> - 2727 | (Int.LF.Nil, sP) (* errors are postponed to reconstruction phase *) - 2728 | - 2729 | | (Apx.LF.App (m, spine), (Int.LF.PiTyp ((Int.LF.TypDecl (_, tA), _, _), tB), s)) -> - 2730 | let tM = elTerm recT cD cPsi m (tA, s) in - 2731 | let (tS, sP) = elSpine loc recT cD cPsi spine (tB, Int.LF.Dot (Int.LF.Obj tM, s)) in - 2732 | (Int.LF.App (tM, tS), sP) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (App (_, _), (PiTyp ((TypDeclOpt _, _, _), _), _)) - File "src/core/lfrecon.ml", lines 2741-2760, characters 4-30: - 2741 | ....match (sK, recT) with - 2742 | | ((Int.LF.PiKind ((Int.LF.TypDecl (n, tA), _, _), tK), s), Pi) -> - 2743 | (* let sshift = mkShift recT cPsi in *) - 2744 | (* let tN = Whnf.etaExpandMV Int.LF.Null (tA, s) sshift in *) - 2745 | let tN = Whnf.etaExpandMV cPsi (tA, s) n S.LF.id Plicity.implicit Inductivity.not_inductive in - ... - 2757 | Whnf.etaExpandMMV Location.ghost cD cPsi (tA, s) n S.LF.id Plicity.implicit Inductivity.not_inductive - 2758 | in - 2759 | let spine' = elKSpineI loc recT cD cPsi spine (i - 1) (tK, Int.LF.Dot (Int.LF.Obj tN, s)) in - 2760 | Int.LF.App (tN, spine') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((PiKind ((TypDeclOpt _, _, _), _), _), _) - File "src/core/lfrecon.ml", lines 2834-2863, characters 5-32: - 2834 | .....let Int.LF.TypDecl (_, tA) = Context.ctxDec cPsi x in - 2835 | (* cPsi |- tA : type - 2836 | * cPsi |- s' : cPsi' - 2837 | *) - 2838 | let ss = S.LF.invert s' in - ... - 2860 | in - 2861 | - 2862 | let tN' = etaExpandHead loc (Int.LF.BVar x) tA' in - 2863 | (Int.LF.App (tN', tS), tB') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfrecon.ml", lines 2824-2863, characters 2-32: - 2824 | ..match (spine, sP) with - 2825 | | (Apx.LF.Nil, _) -> - 2826 | let ss = S.LF.invert s' in - 2827 | let tQ = pruningTyp Location.ghost cD cPsi (Context.dctxToHat cPsi) sP (Int.LF.MShift 0, ss) in - 2828 | (* PROBLEM: [s'][ss] [s]P is not really P; in fact [ss][s]P may not exist; - ... - 2860 | in - 2861 | - 2862 | let tN' = etaExpandHead loc (Int.LF.BVar x) tA' in - 2863 | (Int.LF.App (tN', tS), tB') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (App (Root (_, BVar _, App (_, _)), _), _) - File "src/core/lfrecon.ml", lines 2943-2998, characters 5-8: - 2943 | .....begin match instantiation.contents with - 2944 | | None -> - 2945 | begin - 2946 | try - 2947 | let tA = Store.FVar.get x in - ... - 2995 | | _ -> - 2996 | throw loc (UnboundName x) - 2997 | end - 2998 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (IHead _|ISub _|ICtx _) - File "src/core/lfrecon.ml", lines 2939-2998, characters 2-8: - 2939 | ..function - 2940 | | [] -> () - 2941 | | ((_, Apx.LF.(Root (loc, FVar x, spine)), - 2942 | Int.LF.(Inst {instantiation; typ = ClTyp (MTyp tP, cPsi); _})) :: cnstrs) -> - 2943 | begin match instantiation.contents with - ... - 2995 | | _ -> - 2996 | throw loc (UnboundName x) - 2997 | end - 2998 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Root (_, FVar _, _), Inst {typ=ClTyp ((PTyp _|STyp (_, _)), _); _ })::_ - File "src/core/lfrecon.ml", lines 3020-3025, characters 7-99: - 3020 | .......let (cD_d, Int.LF.(Decl { typ = ClTyp (MTyp _tP, cPhi); _ })) = - 3021 | lookup_fcvar loc u - 3022 | in - 3023 | let cPhi = weakenAppropriately cD_d cPhi in - 3024 | let s'' = elSub loc cPsi s cPhi in - 3025 | Int.LF.(v.instantiation := Some (INorm (Root (loc, FMVar (u, s''), Nil, Plicity.explicit)))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((PTyp _|STyp (_, _)), _); _ }) - File "src/core/lfrecon.ml", lines 3027-3033, characters 7-98: - 3027 | .......let (cD_d, Int.LF.(Decl { typ = ClTyp (PTyp tA, cPhi); _ })) = - 3028 | lookup_fcvar loc x - 3029 | in - 3030 | let cPhi = weakenAppropriately cD_d cPhi in - 3031 | let s'' = elSub loc cPsi s cPhi in - 3032 | let (tS, _) = elSpine loc Pibox Int.LF.(v.cD) cPsi spine (tA, s'') in - 3033 | Int.LF.(v.instantiation := Some (INorm (Root (loc, FPVar (x, s''), tS, Plicity.explicit)))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((MTyp _|STyp (_, _)), _); _ }) - File "src/core/lfrecon.ml", lines 3017-3033, characters 4-98: - 3017 | ....match tM, Int.LF.(v.typ) with - 3018 | | Apx.LF.(Root (loc, FMVar (u, s), _nil_spine)), Int.LF.(ClTyp (MTyp _, cPsi)) -> - 3019 | assert (match _nil_spine with Apx.LF.Nil -> true | _ -> false); - 3020 | let (cD_d, Int.LF.(Decl { typ = ClTyp (MTyp _tP, cPhi); _ })) = - 3021 | lookup_fcvar loc u - ... - 3030 | let cPhi = weakenAppropriately cD_d cPhi in - 3031 | let s'' = elSub loc cPsi s cPhi in - 3032 | let (tS, _) = elSpine loc Pibox Int.LF.(v.cD) cPsi spine (tA, s'') in - 3033 | Int.LF.(v.instantiation := Some (INorm (Root (loc, FPVar (x, s''), tS, Plicity.explicit)))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Root (_, FMVar (_, _), _), ClTyp ((PTyp _|STyp (_, _)), _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Total.cmo -c -impl src/core/total.ml) - File "src/core/total.ml", lines 31-45, characters 6-9: - 31 | ......begin match (x, args) with - 32 | | (_, []) -> - 33 | Format.dprintf "Recursive call is incompatible with valid automatically generated recursive calls. \n Report as a bug." - 34 | | (Comp.M (cM, _ ), (Comp.M (cM', _ ) :: _)) -> - 35 | Format.dprintf "Recursive call is incompatible with valid automatically generated recursive calls. \nBeluga cannot establish that the given recursive call is a size-preserving variant of it.\nArgument found: %a@\nArgument expected: %a@" - ... - 42 | - 43 | | (Comp.V _, _) -> - 44 | Format.dprintf "Recursive call is incompatible with valid automatically generated recursive calls. \n\n Found computation-level variable while generated recursive call expected a meta-object.\n\nCheck specified totality declaration." - 45 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (M (_, _), (E|DC)::_) - File "src/core/total.ml", lines 138-141, characters 2-56: - 138 | ..function - 139 | | LF.Empty -> LF.Empty - 140 | | LF.Dec (cG, Comp.CTypDecl (x, tau, _)) -> - 141 | LF.Dec (mark_gctx cG, Comp.CTypDecl (x, tau, true)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/total.ml", lines 155-157, characters 2-40: - 155 | ..function - 156 | | None -> " _ " - 157 | | Some (Comp.Arg x) -> string_of_int x - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (Lex _|Simul _) - File "src/core/total.ml", line 249, characters 25-43: - 249 | let xs = List.map (fun (Arg x) -> x) xs in - ^^^^^^^^^^^^^^^^^^ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lex _|Simul _) - File "src/core/total.ml", lines 245-258, characters 4-41: - 245 | ....match dec.order with - 246 | | `inductive (Arg x) -> - 247 | (dec.name, Some [x], (tau, Whnf.m_id)) - 248 | | `inductive (Lex xs) -> - 249 | let xs = List.map (fun (Arg x) -> x) xs in - ... - 255 | | `not_recursive - 256 | | `trust - 257 | | `partial -> - 258 | (dec.name, None, (tau, Whnf.m_id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - `inductive (Simul _) - File "src/core/total.ml", lines 331-332, characters 19-32: - 331 | ...................(LF.Decl { name = x; typ = cU; _ }) = - 332 | (gen_var' loc cD (x, cU) , cU) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/total.ml", lines 404-413, characters 2-31: - 404 | ..function - 405 | | [] -> [] - 406 | | Comp.M (cM, cU) :: args -> - 407 | if uninstantiated_arg cM - 408 | then Comp.DC :: generalize args - 409 | else Comp.M (cM, cU) :: generalize args - 410 | | Comp.V x :: args -> - 411 | Comp.V x :: generalize args - 412 | | Comp.DC :: args -> - 413 | Comp.DC :: generalize args - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - E::_ - File "src/core/total.ml", lines 445-455, characters 19-34: - 445 | ...................(1, n) (LF.SchElem (some_part, block_part)) = - 446 | let sArec = - 447 | match Whnf.whnfTyp (tA, Substitution.LF.id) with - 448 | | (LF.Sigma tArec, s') -> (tArec, s') - 449 | | (tA', s') -> (LF.SigmaLast (None, tA'), s') in - ... - 452 | try - 453 | Unify.unifyTypRec cD cPsi (block_part, dctxSub) sArec; - 454 | Some (b, tA) - 455 | with Unify.Failure _ -> None.................................................................. - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (0, _) - File "src/core/total.ml", lines 509-511, characters 6-47: - 509 | ......let LF.ClTyp (LF.MTyp tA, cPsi) = cU in - 510 | (Unify.unifyMetaTyp cD (cU , Whnf.m_id) (cU0, Whnf.m_id); - 511 | gen_meta_obj (k, Substitution.LF.id) cU) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/total.ml", lines 544-592, characters 2-30: - 544 | ..function - 545 | | (0, ttau) -> ([], Whnf.cnormCTyp ttau) - 546 | | (1, (Comp.TypPiBox (_, LF.Decl { typ = cU'; _ }, tau), theta)) -> - 547 | let cU0 = Whnf.cnormMTyp (cU', theta) in - 548 | begin - ... - 589 | - 590 | | (n, (Comp.TypArr (_, _, tau2), theta)) -> - 591 | let (spine, tau_r) = rec_spine cD (k, cU) (n - 1, (tau2, theta)) in - 592 | (Comp.DC :: spine, tau_r) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (2, - ((TypBase (_, _, _)|TypCobase (_, _, _)|TypDef (_, _, _)|TypBox (_, _)| - TypCross (_, _)|TypClo (_, _)|TypInd _), - _)) - File "src/core/total.ml", lines 595-619, characters 2-30: - 595 | ..function - 596 | | (0, ttau) -> ([], Whnf.cnormCTyp ttau) - 597 | - 598 | | (1, (Comp.TypPiBox _, _)) -> - 599 | raise Not_compatible (* Error *) - ... - 616 | - 617 | | (n, (Comp.TypArr (_, _, tau2), theta)) -> - 618 | let (spine, tau_r) = rec_spine' cD (x, ttau0) (n - 1, (tau2, theta)) in - 619 | (Comp.DC :: spine, tau_r) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (1, - ((TypBase (_, _, _)|TypCobase (_, _, _)|TypDef (_, _, _)|TypBox (_, _)| - TypCross (_, _)|TypClo (_, _)|TypInd _), - _)) - File "src/core/total.ml", lines 622-713, characters 2-43: - 622 | ..match cD' with - 623 | | LF.Empty -> cIH - 624 | - 625 | | LF.Dec (cD', LF.Decl { name = u; typ = cU; inductivity = Inductivity.Not_inductive; _ }) -> - 626 | dprintf - ... - 710 | dprintf (fun p -> p.fmt "[gen_rec_calls] for j = %d@\n" j); - 711 | let cIH' = mk_all (cIH, j) mf_list in - 712 | dprintf (fun p -> p.fmt "[gen_rec_calls] for j = %d" (j + 1)); - 713 | gen_rec_calls cD cIH' (cD', j + 1) mfs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/total.ml", lines 725-791, characters 2-47: - 725 | ..match cG0 with - 726 | | LF.Empty -> cIH - 727 | | LF.Dec (cG', Comp.CTypDecl (x, tau0, false)) -> - 728 | gen_rec_calls' cD cG cIH (cG', j + 1) mfs - 729 | - ... - 788 | mk_all cIH' mf_list - 789 | in - 790 | let cIH' = mk_all cIH mf_list in - 791 | gen_rec_calls' cD cG cIH' (cG', j + 1) mfs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/total.ml", lines 860-868, characters 2-69: - 860 | ..match cPsi with - 861 | (* cPsi |- tA *) - 862 | | LF.Null -> None - 863 | | LF.CtxVar _ -> None - 864 | | LF.DDec (cPsi, LF.TypDecl (_, tB)) -> - 865 | if Whnf.convTyp (tA, Substitution.LF.invShift) (tB, Substitution.LF.id) - 866 | then Some k - 867 | else - 868 | pos cPsi (Whnf.normTyp (tA, Substitution.LF.invShift)) (k + 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/total.ml", lines 1087-1111, characters 5-8: - 1087 | .....begin - 1088 | match prefixDCtx cD cPsi cPsi0 (* cPsi0 = cPsi, cPsi1 *) , - 1089 | prefix_hat - 1090 | (Whnf.cnorm_psihat phat Whnf.m_id) - 1091 | (Whnf.cnorm_psihat phat' Whnf.m_id) - ... - 1108 | end ; - 1109 | (l, LF.ClObj (Context.extend_hatctx k phat0, LF.MObj (Whnf.norm (tM, dot_k s_proj k)))) , LF.ClTyp (Whnf.normClTyp (tA , dot_k s_proj k), padctx cPsi' k) - 1110 | end - 1111 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Some _, None) - File "src/core/total.ml", lines 1121-1124, characters 5-87: - 1121 | .....let LF.Root (_, tH', _, _) = - 1122 | Whnf.norm (LF.Root (l, tH, LF.Nil, Plicity.explicit), s_proj) - 1123 | in - 1124 | (l, LF.ClObj (phat0, LF.PObj tH')) , LF.ClTyp (Whnf.normClTyp (tA, s_proj), cPsi') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)) - File "src/core/total.ml", lines 1134-1140, characters 2-65: - 1134 | ..match args with - 1135 | | [] -> [] - 1136 | | Comp.DC :: args -> Comp.DC :: shiftArgs cD args (cPsi', s_proj, cPsi) - 1137 | | Comp.V x :: args -> Comp.V x :: shiftArgs cD args (cPsi', s_proj, cPsi) - 1138 | | Comp.M (cM, cU ) :: args -> - 1139 | let cM' , cU'= shiftMetaObj cD (cM , cU) (cPsi', s_proj, cPsi) in - 1140 | Comp.M (cM', cU') :: shiftArgs cD args (cPsi', s_proj, cPsi) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - E::_ - File "src/core/total.ml", lines 1316-1337, characters 2-40: - 1316 | ..function - 1317 | | Comp.TypBase (loc, c, _) -> - 1318 | Bool.not (Id.cid_comp_typ_equal a c) - 1319 | && begin match (Store.Cid.CompTyp.get c).Store.Cid.CompTyp.Entry.positivity with - 1320 | | Sgn.Positivity -> true - ... - 1334 | | Comp.TypArr (_, tau1, tau2) -> no_occurs a tau1 && no_occurs a tau2 - 1335 | | Comp.TypCross (_, taus) -> List2.for_all (no_occurs a) taus - 1336 | | Comp.TypPiBox (_, _, tau') -> no_occurs a tau' - 1337 | | Comp.TypClo _ -> raise Unimplemented - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypInd _ - File "src/core/total.ml", lines 1340-1360, characters 2-40: - 1340 | ..function - 1341 | | Comp.TypBase (loc, c, _) -> - 1342 | Id.cid_comp_typ_equal a c - 1343 | || begin match (Store.Cid.CompTyp.get c).Store.Cid.CompTyp.Entry.positivity with - 1344 | | Sgn.Positivity -> true - ... - 1357 | | Comp.TypArr (_, tau1, tau2) -> no_occurs a tau1 && check_positive a tau2 - 1358 | | Comp.TypCross (_, taus) -> List2.for_all (check_positive a) taus - 1359 | | Comp.TypPiBox (_, _, tau') -> check_positive a tau' - 1360 | | Comp.TypClo _ -> raise Unimplemented - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypInd _ - File "src/core/total.ml", lines 1364-1372, characters 2-40: - 1364 | ..function - 1365 | | Comp.TypBase _ -> true - 1366 | | Comp.TypCobase _ -> true - 1367 | | Comp.TypDef _ -> raise Unimplemented - 1368 | | Comp.TypBox _ -> true - 1369 | | Comp.TypArr (_, tau1, tau2) -> check_positive a tau1 && positive a tau2 - 1370 | | Comp.TypCross (_, taus) -> List2.for_all (positive a) taus - 1371 | | Comp.TypPiBox (_, _, tau') -> positive a tau' - 1372 | | Comp.TypClo _ -> raise Unimplemented - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypInd _ - File "src/core/total.ml", lines 1492-1531, characters 2-27: - 1492 | ..match tau1 with - 1493 | | Comp.TypBase (loc, c, mS1) -> - 1494 | if Id.cid_comp_typ_equal a c - 1495 | then - 1496 | begin - ... - 1528 | | Comp.TypBox _ - 1529 | | Comp.TypClo _ - 1530 | | Comp.TypCobase _ - 1531 | | Comp.TypDef _ -> true - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypInd _ - File "src/core/total.ml", lines 1555-1580, characters 8-48: - 1555 | ........function - 1556 | | Comp.TypBase _ - 1557 | | Comp.TypCobase _ - 1558 | | Comp.TypBox _ -> true - 1559 | - ... - 1577 | | Comp.TypPiBox (_, dec, tau') -> strat (LF.Dec (cD0, dec)) tau' - 1578 | - 1579 | | Comp.TypDef _ - 1580 | | Comp.TypClo _ -> raise Unimplemented - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypInd _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Check.cmo -c -impl src/core/check.ml) - File "src/core/check.ml", lines 471-475, characters 4-46: - 471 | ....function - 472 | | I.Root (_, h, tS, _) -> fmv_spine (fmv_head cD h) tS - 473 | | I.Lam (_, _, tM) -> fmv_normal cD tM - 474 | | I.LFHole _ -> cD - 475 | | I.Tuple (_, tuple) -> fmv_tuple cD tuple - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Clo _ - File "src/core/check.ml", lines 490-492, characters 4-55: - 490 | ....function - 491 | | I.Nil -> cD - 492 | | I.App (tM, tS) -> fmv_spine (fmv_normal cD tM) tS - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - SClo _ - File "src/core/check.ml", lines 500-503, characters 4-61: - 500 | ....function - 501 | | I.Null -> cD - 502 | | I.CtxVar (I.CtxOffset k) -> mark_ind cD k - 503 | | I.DDec (cPsi, decl) -> fmv_decl (fmv_dctx cD cPsi) decl - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar (CtxName _|CInst _) - File "src/core/check.ml", lines 511-514, characters 4-38: - 511 | ....function - 512 | | I.Atom (_, _, tS) -> fmv_spine cD tS - 513 | | I.PiTyp ((decl, _, _), tA) -> fmv_typ (fmv_decl cD decl) tA - 514 | | I.Sigma trec -> fmv_trec cD trec - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TClo _ - File "src/core/check.ml", lines 534-538, characters 4-68: - 534 | ....function - 535 | | (_, I.CObj (cPsi)) -> fmv_dctx cD cPsi - 536 | | (_, I.ClObj (phat, I.MObj tM)) -> fmv_normal cD tM - 537 | | (_, I.ClObj (phat, I.PObj h)) -> fmv_head (fmv_hat cD phat) h - 538 | | (_, I.ClObj (phat, I.SObj s)) -> fmv_subst (fmv_hat cD phat) s - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, (MUndef|MV _)) - File "src/core/check.ml", lines 553-556, characters 4-43: - 553 | ....function - 554 | | PatNil -> cD - 555 | | PatApp (_, pat, pat_spine) -> - 556 | fmv_pat_spine (fmv cD pat) pat_spine - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PatObs (_, _, _, _) - File "src/core/check.ml", lines 561-595, characters 4-10: - 561 | ....match (t, cD) with - 562 | | (I.MShift k, I.Empty) -> cD1' - 563 | | (I.MShift k, cD) - 564 | when k < 0 -> - 565 | Error.raise_violation "Contextual substitution ill-formed" - ... - 592 | else - 593 | id_map_ind cD1' ms cD - 594 | | _ -> id_map_ind cD1' ms cD - 595 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MDot (_, _), Dec (_, DeclOpt _)) - File "src/core/check.ml", lines 618-619, characters 7-23: - 618 | .......fun (CTypDecl (u, tau, wf_tag)) -> - 619 | (u, tau, wf_tag) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/check.ml", lines 747-771, characters 6-12: - 747 | ......match cPsi0 with - 748 | | Int.LF.Null -> () (* raise (Error (Location.ghost, IllegalParamTyp (cD, cPsi, tA))) *) - 749 | | Int.LF.CtxVar psi -> - 750 | (* tA is an instance of a schema block *) - 751 | let { Store.Cid.Schema.Entry.name; schema = Int.LF.Schema elems } = - ... - 768 | Unify.unifyTyp cD cPsi (tA, Substitution.LF.id) (tB0, Substitution.LF.id) - 769 | with - 770 | | _ -> checkParamTypeValid' (cPsi0', n + 1) - 771 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/check.ml", lines 776-796, characters 4-68: - 776 | ....match (mS, cKt) with - 777 | | (MetaNil, (Ctype _, _)) -> () - 778 | | (MetaApp (mO, mT, mS, plicity_app), (PiKind (_, I.Decl { typ = ctyp; plicity = plicity_pi; inductivity; _ }, cK), t)) -> - 779 | if Plicity.(plicity_app <> plicity_pi) - 780 | then Error.raise_violation "[checkMetaSpine] plicity mismatch"; - ... - 793 | Location.print_short loc - 794 | ) - 795 | end; - 796 | checkMetaSpine loc cD mS (cK, I.MDot (metaObjToMFront mO, t)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MetaNil, (PiKind (_, _, _), _)) - File "src/core/check.ml", lines 822-824, characters 20-32: - 822 | ....................(I.Decl { name = x; typ = ctyp; _ }) = - 823 | let location = Name.location x in - 824 | checkCLFTyp location cD ctyp - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/check.ml", lines 834-868, characters 4-35: - 834 | ....function - 835 | | TypBase (loc, c, mS) -> - 836 | let { Store.Cid.CompTyp.Entry.kind = cK; _ } = Store.Cid.CompTyp.get c in - 837 | checkMetaSpine loc cD mS (cK, C.m_id) - 838 | - ... - 865 | end; - 866 | checkTyp (I.Dec (cD, cdecl)) tau' - 867 | - 868 | | TypInd tau -> checkTyp cD tau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypDef (_, _, _)|TypClo (_, _)) - File "src/core/check.ml", lines 880-882, characters 21-54: - 880 | .....................(x, (I.Decl d), t) = - 881 | let typ' = C.cnormMTyp (d.typ, t) in - 882 | I.Dec (cD, I.Decl { d with name = x; typ = typ' }) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, DeclOpt _, _) - File "src/core/check.ml", lines 899-916, characters 12-15: - 899 | ............begin match e2 with - 900 | | Box (_, cM, cU) | AnnBox (_, cM, cU) -> - 901 | dprintf - 902 | begin fun p -> - 903 | p.fmt "[useIH] @[<v>check whether compatible IH exists@,\ - ... - 913 | | Option.None -> Total.filter cD cG cIH (loc, E) - 914 | end - 915 | | Hole _ -> Total.drop_arg cIH - 916 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Fn (_, _, _)|Fun (_, _)|MLam (_, _, _, _)|Tuple (_, _)|LetTuple (_, _, _)| - Let (_, _, _)|Case (_, _, _, _)|Impossible (_, _)) - File "src/core/check.ml", lines 1114-1276, characters 4-45: - 1114 | ....function - 1115 | | Var (loc, x) as e -> - 1116 | let (f,tau', _) = lookup cG x in - 1117 | Typeinfo.Comp.add loc (Typeinfo.Comp.mk_entry cD (tau', C.m_id)) - 1118 | (Format.asprintf "Var %a" (P.fmt_ppr_cmp_exp cD cG P.l0) e); - ... - 1273 | - 1274 | | AnnBox (_, cM, cT) -> - 1275 | checkMetaObj cD cM cT C.m_id; - 1276 | (None, TypBox (getLoc cM, cT), C.m_id) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Fn (_, _, _)|Fun (_, _)|MLam (_, _, _, _)|LetTuple (_, _, _)|Let (_, _, _)| - Box (_, _, _)|Case (_, _, _, _)|Impossible (_, _)|Hole (_, _, _)) - File "src/core/check.ml", lines 1350-1357, characters 7-10: - 1350 | .......begin match (tau, theta) with - 1351 | | (TypArr (_, tau1, tau2), theta) -> - 1352 | checkPattern cD cG pat (tau1, theta); - 1353 | synPatSpine cD cG pat_spine (tau2, theta) - 1354 | | (TypPiBox (_, cdecl, tau), theta) -> - 1355 | let theta' = checkPatAgainstCDecl cD pat (cdecl, theta) in - 1356 | synPatSpine cD cG pat_spine (tau, theta') - 1357 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((TypBase (_, _, _)|TypCobase (_, _, _)|TypDef (_, _, _)|TypBox (_, _)| - TypCross (_, _)|TypClo (_, _)|TypInd _), - _) - File "src/core/check.ml", lines 1373-1375, characters 53-38: - 1373 | .....................................................(I.Decl { typ = ctyp; _ }, theta) = - 1374 | LF.checkMetaObj cD mO (ctyp, theta); - 1375 | I.MDot (metaObjToMFront mO, theta) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (DeclOpt _, _) - File "src/core/check.ml", lines 1373-1375, characters 30-38: - 1373 | ..............................(PatMetaObj (loc, mO)) (I.Decl { typ = ctyp; _ }, theta) = - 1374 | LF.checkMetaObj cD mO (ctyp, theta); - 1375 | I.MDot (metaObjToMFront mO, theta) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/check.ml", lines 1665-1667, characters 4-42: - 1665 | ....let { cD = cD'; cG = cG'; cIH = I.Empty } = h in - 1666 | let (cD, cG) = validate_contexts loc (cD, cD') (cG, cG') in - 1667 | proof mcid cD cG cIH total_decs p ttau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - {cIH=Dec (_, WfRec (_, _, _)); _ } - File "src/core/check.ml", lines 1678-1743, characters 4-13: - 1678 | ....match d with - 1679 | | Intros hyp -> - 1680 | let tau = Whnf.cnormCTyp ttau in - 1681 | let (cD', cG', cIH', tau', t) = unroll cD cG cIH tau in - 1682 | dprintf - ... - 1740 | end; - 1741 | proof mcid cD cG cIH total_decs p (tau, Whnf.m_id) - 1742 | end - 1743 | args - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ImpossibleSplit _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Coverage.cmo -c -impl src/core/coverage.ml) - File "src/core/coverage.ml", line 76, characters 21-63: - 76 | Context.find' cG (fun (CTypDecl (y, _, _)) -> Name.(x = y)) - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/coverage.ml", lines 75-78, characters 2-5: - 75 | ..let Some (CTypDecl (_, tau, _)) = - 76 | Context.find' cG (fun (CTypDecl (y, _, _)) -> Name.(x = y)) - 77 | in - 78 | tau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (CTypDeclOpt _) - File "src/core/coverage.ml", lines 189-204, characters 20-37: - 189 | ....................(LF.Atom (_, a, _) as tP) = - 190 | let (cPhi, lazy s_proj, lazy s_tup) = ConvSigma.gen_flattening cD cPsi in - 191 | (* cPsi |- s_proj : cPhi - 192 | cPhi |- s_tup : cPsi - 193 | cPhi |- tQ where cPsi |- tP !! tQ = [s_tup]tP !! *) - ... - 201 | cPsi |- s_proj : cPhi - 202 | cPsi |- comp ss' s_proj : cPhi' *) - 203 | let ss_proj = S.LF.comp ss' s_proj in - 204 | (ss_proj, (cPhi', LF.tclo tQ ssi')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((_, _, _), _)|Sigma _|TClo (_, _)) - File "src/core/coverage.ml", lines 208-212, characters 4-74: - 208 | ....match tA with - 209 | | LF.Atom _ -> LF.Root (Location.ghost, tH, tS, Plicity.explicit) - 210 | | LF.PiTyp ((LF.TypDecl (x, tB0), _, _), tB) -> - 211 | let tM = eta (tB0, s) LF.Nil in - 212 | LF.Lam (Location.ghost, x, eta (tB, S.LF.dot1 s) (LF.App (tM, tS))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/coverage.ml", lines 265-275, characters 4-58: - 265 | ....function - 266 | | MetaSub (cPsi, s, LF.STyp (_, cPhi)) -> - 267 | fprintf ppf "%a |- %a : %a" - 268 | (P.fmt_ppr_lf_dctx cD P.l0) cPsi - 269 | (P.fmt_ppr_lf_sub cD cPsi P.l0) s - ... - 272 | fprintf ppf "%a |- %a : %a" - 273 | (P.fmt_ppr_lf_dctx cD P.l0) cPsi - 274 | (P.fmt_ppr_lf_normal cD cPsi P.l0) tR - 275 | (P.fmt_ppr_lf_typ cD cPsi P.l0) (Whnf.normTyp sA) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MetaSub (_, _, (MTyp _|PTyp _)) - File "src/core/coverage.ml", lines 298-302, characters 4-73: - 298 | ....function - 299 | | CovCtx cPsi -> fmt_ppr_covctx cD ppf cPsi - 300 | | CovSub (cPsi, s, LF.STyp (_, cPhi)) -> fmt_ppr_covsub cD ppf (cPsi, s, cPhi) - 301 | | CovGoal (cPsi, tR, sA) -> fmt_ppr_covgoal cD ppf (cPsi, tR, sA) - 302 | | CovPatt (cG, patt, ttau) -> fmt_ppr_covpatt cD ppf (cG, patt, ttau) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CovSub (_, _, (MTyp _|PTyp _)) - File "src/core/coverage.ml", lines 477-478, characters 7-73: - 477 | .......let Comp.TypBox (_, mT) = tau_sc in - 478 | check_meta_obj cD_p mO (Whnf.cnormMTyp (mT, t)) && is_id cD_p t cD - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypBase (_, _, _)|TypCobase (_, _, _)|TypDef (_, _, _)|TypArr (_, _, _)| - TypCross (_, T (_, _, _))|TypPiBox (_, _, _)|TypClo (_, _)|TypInd _) - File "src/core/coverage.ml", lines 539-540, characters 9-44: - 539 | .........let LF.TypDecl (_, tA') = Context.ctxDec cPsi' k' in - 540 | Yes ((tA, S.LF.id), (tA', S.LF.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 537-541, characters 7-10: - 537 | .......begin - 538 | let LF.TypDecl (_, tA) = Context.ctxDec cPsi k in - 539 | let LF.TypDecl (_, tA') = Context.ctxDec cPsi' k' in - 540 | Yes ((tA, S.LF.id), (tA', S.LF.id)) - 541 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 574-613, characters 5-8: - 574 | .....let LF.MPVar (_, s') as tH' = Whnf.cnormHead (tH', t) in - 575 | dprintf - 576 | begin fun p -> - 577 | p.fmt "[pre_match_head] @[<v>pvar - case\ - 578 | @,pattern: @[@[%a@]@ |- @[%a@]@]\ - ... - 610 | end; - 611 | SplitCand - 612 | (* CtxSplitCand (pre_match_dctx cD cD_p cPsi cPsi_p [] []) *) - 613 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (BVar _|Const _|MMVar (({instantiation=_; constraints=_; _ }, _), _)| - MVar (_, _)|PVar (_, _)|AnnH (_, _)|Proj (_, _)|FVar _|FMVar (_, _)| - FPVar (_, _)|HClo (_, _, _)| - HMClo (_, (({instantiation=_; constraints=_; _ }, _), _))) - File "src/core/coverage.ml", lines 632-633, characters 9-44: - 632 | .........let LF.TypDecl (_, tA') = Context.ctxDec cPsi' k' in - 633 | Yes ((tA, S.LF.id), (tA', S.LF.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 630-634, characters 7-10: - 630 | .......begin - 631 | let LF.TypDecl (_, tA) = Context.ctxDec cPsi k in - 632 | let LF.TypDecl (_, tA') = Context.ctxDec cPsi' k' in - 633 | Yes ((tA, S.LF.id), (tA', S.LF.id)) - 634 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 689-702, characters 5-59: - 689 | .....let LF.PiTyp ((tdecl', _, _), tB'), s' = Whnf.whnfTyp sA' in - 690 | let covGoal' = - 691 | CovGoal - 692 | ( LF.DDec (cPsi, S.LF.decSub tdecl s) - 693 | , tM, (tB, S.LF.dot1 s) - ... - 699 | , tN, (tB', S.LF.dot1 s') - 700 | ) - 701 | in - 702 | pre_match cD cD_p covGoal' patt' matchCands splitCands - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Atom (_, _, _)|Sigma _|TClo (_, _)), _) - File "src/core/coverage.ml", lines 688-702, characters 5-59: - 688 | .....let LF.PiTyp ((tdecl, _, _), tB), s = Whnf.whnfTyp sA in - 689 | let LF.PiTyp ((tdecl', _, _), tB'), s' = Whnf.whnfTyp sA' in - 690 | let covGoal' = - 691 | CovGoal - 692 | ( LF.DDec (cPsi, S.LF.decSub tdecl s) - ... - 699 | , tN, (tB', S.LF.dot1 s') - 700 | ) - 701 | in - 702 | pre_match cD cD_p covGoal' patt' matchCands splitCands - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Atom (_, _, _)|Sigma _|TClo (_, _)), _) - File "src/core/coverage.ml", lines 686-731, characters 2-8: - 686 | ..match (tM, tN) with - 687 | | (LF.Lam (_, x, tM), LF.Lam (_, _, tN)) -> - 688 | let LF.PiTyp ((tdecl, _, _), tB), s = Whnf.whnfTyp sA in - 689 | let LF.PiTyp ((tdecl', _, _), tB'), s' = Whnf.whnfTyp sA' in - 690 | let covGoal' = - ... - 728 | (Eqn (covGoal, patt) :: matchCands, splitCands) - 729 | - 730 | | SplitCand -> (matchCands, Split (covGoal, patt) :: splitCands) - 731 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _), (Root (_, _, _, _)|LFHole (_, _, _)|Clo _|Tuple (_, _))) - File "src/core/coverage.ml", lines 678-731, characters 2-8: - 678 | ..let MetaPatt (cPhi, tN, sA') = patt in - 679 | dprintf - 680 | begin fun p -> - 681 | p.fmt "[pre_match] @[<v>cov goal: @[%a@]\ - 682 | @,pattern: @[%a@]@]" - ... - 728 | (Eqn (covGoal, patt) :: matchCands, splitCands) - 729 | - 730 | | SplitCand -> (matchCands, Split (covGoal, patt) :: splitCands) - 731 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MetaSub (_, _, _)|GenPatt (_, _, (_, _))) - File "src/core/coverage.ml", lines 677-731, characters 2-8: - 677 | ..let CovGoal (cPsi, tM, sA) = covGoal in - 678 | let MetaPatt (cPhi, tN, sA') = patt in - 679 | dprintf - 680 | begin fun p -> - 681 | p.fmt "[pre_match] @[<v>cov goal: @[%a@]\ - ... - 728 | (Eqn (covGoal, patt) :: matchCands, splitCands) - 729 | - 730 | | SplitCand -> (matchCands, Split (covGoal, patt) :: splitCands) - 731 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovCtx _|CovSub (_, _, _)|CovPatt (_, _, (_, _))) - File "src/core/coverage.ml", lines 738-752, characters 5-18: - 738 | .....let LF.PiTyp ((LF.TypDecl (_, tC1), _, _), tC2), s' = Whnf.whnfTyp sA' in - 739 | let covGoal1 = CovGoal (cPsi, tM, (tB1, s)) in - 740 | let patt1 = MetaPatt (cPsi', tM', (tC1, s')) in - 741 | let sB2' = (tB2, LF.Dot (LF.Obj (tM), s)) in - 742 | let sC2' = (tC2, LF.Dot (LF.Obj (tM'), s')) in - ... - 749 | (cPsi, tS, sB2') - 750 | (cPsi', tS', sC2') - 751 | matchCands' - 752 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/coverage.ml", lines 737-752, characters 5-18: - 737 | .....let LF.PiTyp ((LF.TypDecl (_, tB1), _, _), tB2), s = Whnf.whnfTyp sA in - 738 | let LF.PiTyp ((LF.TypDecl (_, tC1), _, _), tC2), s' = Whnf.whnfTyp sA' in - 739 | let covGoal1 = CovGoal (cPsi, tM, (tB1, s)) in - 740 | let patt1 = MetaPatt (cPsi', tM', (tC1, s')) in - 741 | let sB2' = (tB2, LF.Dot (LF.Obj (tM), s)) in - ... - 749 | (cPsi, tS, sB2') - 750 | (cPsi', tS', sC2') - 751 | matchCands' - 752 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/coverage.ml", lines 734-752, characters 2-18: - 734 | ..match (tS, tS') with - 735 | | (LF.Nil, LF.Nil) -> (matchCands, splitCands) - 736 | | (LF.App (tM, tS), LF.App (tM', tS')) -> - 737 | let LF.PiTyp ((LF.TypDecl (_, tB1), _, _), tB2), s = Whnf.whnfTyp sA in - 738 | let LF.PiTyp ((LF.TypDecl (_, tC1), _, _), tC2), s' = Whnf.whnfTyp sA' in - ... - 749 | (cPsi, tS, sB2') - 750 | (cPsi', tS', sC2') - 751 | matchCands' - 752 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Nil, (App (_, _)|SClo _)) - File "src/core/coverage.ml", lines 787-791, characters 5-63: - 787 | .....let LF.TypDecl (_, tA1) = tdecl1 in - 788 | let covGoal = CovSub (cPsi0, s0, LF.STyp (r0, cPhi0)) in - 789 | let patt = MetaSub (cPsi1, s1, LF.STyp (r1, cPhi1)) in - 790 | let (matchCands', splitCands') = pre_match_front cD cD_p (cPhi0, f0, tA0) (cPhi1, f1, tA1) matchCands splitCands in - 791 | pre_match_sub cD cD_p covGoal patt matchCands' splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 786-791, characters 5-63: - 786 | .....let LF.TypDecl (_, tA0) = tdecl0 in - 787 | let LF.TypDecl (_, tA1) = tdecl1 in - 788 | let covGoal = CovSub (cPsi0, s0, LF.STyp (r0, cPhi0)) in - 789 | let patt = MetaSub (cPsi1, s1, LF.STyp (r1, cPhi1)) in - 790 | let (matchCands', splitCands') = pre_match_front cD cD_p (cPhi0, f0, tA0) (cPhi1, f1, tA1) matchCands splitCands in - 791 | pre_match_sub cD cD_p covGoal patt matchCands' splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 757-810, characters 2-74: - 757 | ..match ((s0, cPhi0), (s1, cPhi1)) with - 758 | | ((LF.EmptySub, LF.Null), (LF.EmptySub, LF.Null)) -> (matchCands, splitCands) - 759 | | ((LF.Shift k, _), (LF.Shift n, _)) -> - 760 | if n = k - 761 | then (matchCands, splitCands) - ... - 807 | - 808 | | ((LF.SVar _, _), _) -> (matchCands, Split (covGoal, patt) :: splitCands) - 809 | - 810 | | (_, (LF.SVar _, _)) -> (Eqn (covGoal, patt) :: matchCands, splitCands) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Shift _, _), - (Dot - (Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)| - FVar _|FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)), - _), - _)) - File "src/core/coverage.ml", lines 756-810, characters 2-74: - 756 | ..let MetaSub (cPsi1, s1, (LF.STyp (r1, cPhi1) as sT1)) = patt in - 757 | match ((s0, cPhi0), (s1, cPhi1)) with - 758 | | ((LF.EmptySub, LF.Null), (LF.EmptySub, LF.Null)) -> (matchCands, splitCands) - 759 | | ((LF.Shift k, _), (LF.Shift n, _)) -> - 760 | if n = k - ... - 807 | - 808 | | ((LF.SVar _, _), _) -> (matchCands, Split (covGoal, patt) :: splitCands) - 809 | - 810 | | (_, (LF.SVar _, _)) -> (Eqn (covGoal, patt) :: matchCands, splitCands) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MetaSub (_, _, (MTyp _|PTyp _)) - File "src/core/coverage.ml", lines 755-810, characters 2-74: - 755 | ..let CovSub (cPsi0, s0, (LF.STyp (r0, cPhi0) as sT0)) = covGoal in - 756 | let MetaSub (cPsi1, s1, (LF.STyp (r1, cPhi1) as sT1)) = patt in - 757 | match ((s0, cPhi0), (s1, cPhi1)) with - 758 | | ((LF.EmptySub, LF.Null), (LF.EmptySub, LF.Null)) -> (matchCands, splitCands) - 759 | | ((LF.Shift k, _), (LF.Shift n, _)) -> - ... - 807 | - 808 | | ((LF.SVar _, _), _) -> (matchCands, Split (covGoal, patt) :: splitCands) - 809 | - 810 | | (_, (LF.SVar _, _)) -> (Eqn (covGoal, patt) :: matchCands, splitCands) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CovSub (_, _, (MTyp _|PTyp _)) - File "src/core/coverage.ml", lines 813-824, characters 2-57: - 813 | ..match (f0, f1) with - 814 | | (LF.Head h0, LF.Head h1) -> - 815 | let tM0 = eta_expand (h0, tA0) in - 816 | let tM1 = eta_expand (h1, tA1) in - 817 | let covGoal = CovGoal (cPhi0, tM0, (tA0, S.LF.id)) in - ... - 821 | | (LF.Obj tM0, LF.Obj tM1) -> - 822 | let covGoal = CovGoal (cPhi0, tM0, (tA0, S.LF.id)) in - 823 | let patt = MetaPatt (cPhi1, tM1, (tA1, S.LF.id)) in - 824 | pre_match cD cD_p covGoal patt matchCands splitCands - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Head _, (Undef|Obj _)) - File "src/core/coverage.ml", lines 833-845, characters 5-18: - 833 | .....let LF.PiKind ((LF.TypDecl (_, tC), _, _), tK2), s' = sK' in - 834 | let covGoal1 = CovGoal (cPsi, tM, (tB, s)) in - 835 | let patt1 = MetaPatt (cPsi', tM', (tC, s')) in - 836 | let sK1' = (tK1, LF.Dot (LF.Obj tM, s)) in - 837 | let sK2' = (tK2, LF.Dot (LF.Obj tM', s')) in - ... - 842 | (cPsi, tS, sK1') - 843 | (cPsi', tS', sK2') - 844 | matchCands' - 845 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind ((TypDeclOpt _, _, _), _), _) - File "src/core/coverage.ml", lines 832-845, characters 5-18: - 832 | .....let LF.PiKind ((LF.TypDecl (_, tB), _, _), tK1), s = sK in - 833 | let LF.PiKind ((LF.TypDecl (_, tC), _, _), tK2), s' = sK' in - 834 | let covGoal1 = CovGoal (cPsi, tM, (tB, s)) in - 835 | let patt1 = MetaPatt (cPsi', tM', (tC, s')) in - 836 | let sK1' = (tK1, LF.Dot (LF.Obj tM, s)) in - ... - 842 | (cPsi, tS, sK1') - 843 | (cPsi', tS', sK2') - 844 | matchCands' - 845 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind ((TypDeclOpt _, _, _), _), _) - File "src/core/coverage.ml", lines 828-845, characters 2-18: - 828 | ..match ((tS1, sK1), (tS2, sK2)) with - 829 | | ((LF.Nil, (LF.Typ, _)), (LF.Nil, (LF.Typ, _))) -> - 830 | (matchCands, splitCands) - 831 | | ((LF.App (tM, tS), sK), (LF.App (tM', tS'), sK')) -> - 832 | let LF.PiKind ((LF.TypDecl (_, tB), _, _), tK1), s = sK in - ... - 842 | (cPsi, tS, sK1') - 843 | (cPsi', tS', sK2') - 844 | matchCands' - 845 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Nil, (Typ, _)), (Nil, (PiKind (_, _), _))) - File "src/core/coverage.ml", lines 854-897, characters 2-17: - 854 | ..match (Whnf.whnfTyp sA, Whnf.whnfTyp sB) with - 855 | | ((LF.Atom (_, a, tS1), s1), (LF.Atom (loc, b, tS2), s2)) -> - 856 | let tK1 = (Store.Cid.Typ.get a).Store.Cid.Typ.Entry.kind in - 857 | let tK2 = (Store.Cid.Typ.get b).Store.Cid.Typ.Entry.kind in - 858 | let tS1' = Whnf.normSpine (tS1, s1) in - ... - 894 | (trec1, s1) - 895 | (trec2, s2) - 896 | matchCands - 897 | splitCands - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Atom (_, _, _), _), ((PiTyp (_, _)|Sigma _|TClo _), _)) - File "src/core/coverage.ml", lines 901-921, characters 2-12: - 901 | ..match (srec1, srec2) with - 902 | | ((LF.SigmaLast (_, tA1), s1), (LF.SigmaLast (_, tA2), s2)) -> - 903 | pre_match_typ cD cD_p (cPsi, (tA1, s1)) (cPhi, (tA2, s2)) matchCands splitCands - 904 | - 905 | | ((LF.SigmaElem (x1, tA1, trec1), s1), (LF.SigmaElem (x2, tA2, trec2), s2)) -> - ... - 918 | (LF.DDec (cPsi, LF.TypDecl (x1, LF.TClo (tA1, s1)))) - 919 | (LF.DDec (cPhi, LF.TypDecl (x2, LF.TClo (tA2, s2)))) - 920 | (trec1, S.LF.dot1 s1) (trec2, S.LF.dot1 s2) - 921 | mC sC - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((SigmaLast (_, _), _), (SigmaElem (_, _, _), _)) - File "src/core/coverage.ml", lines 946-998, characters 2-31: - 946 | ..match ((mO, mt), (mO_p, mtp)) with - 947 | | LF.((CObj cPsi, _), (CObj cPsi', _)) -> - 948 | pre_match_dctx cD cD_p cPsi cPsi' mC sC - 949 | | LF.((ClObj (_, clobj), ClTyp (cltyp, cPsi)), (ClObj (_, clobj'), ClTyp (cltyp', cPsi'))) -> - 950 | match ((clobj, cltyp), (clobj', cltyp')) with - ... - 995 | (mobj cD_p) (loc', mO_p) - 996 | (mtyp cD_p) mtp - 997 | in - 998 | Error.raise_violation s - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((CObj _, _), ((MUndef|ClObj (_, _)|MV _), _)) - File "src/core/coverage.ml", lines 1086-1098, characters 5-10: - 1086 | .....let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1087 | let tau1 = LF.ClTyp (LF.MTyp (Whnf.cnormTyp (tA, t)), Whnf.cnormDCtx (cPsi, t)) in - 1088 | let tau1' = LF.ClTyp (LF.MTyp (Whnf.cnormTyp (tA', t')), Whnf.cnormDCtx (cPsi', t')) in - 1089 | let t2 = LF.MDot (mO, t) in - 1090 | let t2' = LF.MDot (mO', t') in - ... - 1095 | (pS, (tau2, t2)) - 1096 | (pS', (tau2', t2')) - 1097 | mC1 - 1098 | sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1085-1098, characters 5-10: - 1085 | .....let Comp.PatMetaObj (_, (loc, mO)) = pat in - 1086 | let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1087 | let tau1 = LF.ClTyp (LF.MTyp (Whnf.cnormTyp (tA, t)), Whnf.cnormDCtx (cPsi, t)) in - 1088 | let tau1' = LF.ClTyp (LF.MTyp (Whnf.cnormTyp (tA', t')), Whnf.cnormDCtx (cPsi', t')) in - 1089 | let t2 = LF.MDot (mO, t) in - ... - 1095 | (pS, (tau2, t2)) - 1096 | (pS', (tau2', t2')) - 1097 | mC1 - 1098 | sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1104-1116, characters 5-10: - 1104 | .....let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1105 | let tau1 = LF.ClTyp (LF.PTyp (Whnf.cnormTyp (tA, t)), Whnf.cnormDCtx (cPsi, t)) in - 1106 | let tau1' = LF.ClTyp (LF.PTyp (Whnf.cnormTyp (tA', t')), Whnf.cnormDCtx (cPsi', t')) in - 1107 | let t2 = LF.MDot (mO, t) in - 1108 | let t2' = LF.MDot (mO', t') in - ... - 1113 | (pS, (tau2, t2)) - 1114 | (pS', (tau2', t2')) - 1115 | mC1 - 1116 | sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1103-1116, characters 5-10: - 1103 | .....let Comp.PatMetaObj (_, (loc, mO)) = pat in - 1104 | let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1105 | let tau1 = LF.ClTyp (LF.PTyp (Whnf.cnormTyp (tA, t)), Whnf.cnormDCtx (cPsi, t)) in - 1106 | let tau1' = LF.ClTyp (LF.PTyp (Whnf.cnormTyp (tA', t')), Whnf.cnormDCtx (cPsi', t')) in - 1107 | let t2 = LF.MDot (mO, t) in - ... - 1113 | (pS, (tau2, t2)) - 1114 | (pS', (tau2', t2')) - 1115 | mC1 - 1116 | sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1122-1128, characters 5-84: - 1122 | .....let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1123 | let tau1 = LF.CTyp w in - 1124 | let tau1' = LF.CTyp w' in - 1125 | let t2 = LF.MDot (mO, t) in - 1126 | let t2' = LF.MDot (mO', t')in - 1127 | let (mC1, sC1) = match_metaobj cD cD_p ((loc, mO), tau1) ((loc', mO'), tau1') mC sC in - 1128 | match_spines (cD, cG) (cD_p, cG_p) (pS, (tau2, t2)) (pS', (tau2', t2')) mC1 sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1121-1128, characters 5-84: - 1121 | .....let Comp.PatMetaObj (_, (loc, mO)) = pat in - 1122 | let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1123 | let tau1 = LF.CTyp w in - 1124 | let tau1' = LF.CTyp w' in - 1125 | let t2 = LF.MDot (mO, t) in - 1126 | let t2' = LF.MDot (mO', t')in - 1127 | let (mC1, sC1) = match_metaobj cD cD_p ((loc, mO), tau1) ((loc', mO'), tau1') mC sC in - 1128 | match_spines (cD, cG) (cD_p, cG_p) (pS, (tau2, t2)) (pS', (tau2', t2')) mC1 sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1133-1141, characters 5-51: - 1133 | .....let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1134 | let mk_cltyp cl cPhi cPsi t = LF.(ClTyp (STyp (cl, Whnf.cnormDCtx (cPhi, t)), Whnf.cnormDCtx (cPsi, t))) in - 1135 | let mT1 = mk_cltyp cl cPhi cPsi t in - 1136 | let mT2 = mk_cltyp cl' cPhi' cPsi' t' in - 1137 | let t2 = LF.MDot (mO, t) in - 1138 | let t2' = LF.MDot (mO', t') in - 1139 | let (mC1, sC1) = match_metaobj cD cD_p ((loc, mO), mT1) ((loc', mO'), mT2) mC sC in - 1140 | match_spines (cD, cG) (cD_p, cG_p) - 1141 | (pS, (tau2, t2)) (pS', (tau2', t2')) mC1 sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1132-1141, characters 5-51: - 1132 | .....let Comp.PatMetaObj (_, (loc, mO)) = pat in - 1133 | let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1134 | let mk_cltyp cl cPhi cPsi t = LF.(ClTyp (STyp (cl, Whnf.cnormDCtx (cPhi, t)), Whnf.cnormDCtx (cPsi, t))) in - 1135 | let mT1 = mk_cltyp cl cPhi cPsi t in - 1136 | let mT2 = mk_cltyp cl' cPhi' cPsi' t' in - 1137 | let t2 = LF.MDot (mO, t) in - 1138 | let t2' = LF.MDot (mO', t') in - 1139 | let (mC1, sC1) = match_metaobj cD cD_p ((loc, mO), mT1) ((loc', mO'), mT2) mC sC in - 1140 | match_spines (cD, cG) (cD_p, cG_p) - 1141 | (pS, (tau2, t2)) (pS', (tau2', t2')) mC1 sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1180-1218, characters 2-8: - 1180 | ..match Whnf.whnfTyp sA with - 1181 | | (LF.PiTyp ((LF.TypDecl (u, tA), _, _), tB), s) -> - 1182 | (* cPsi' |- Pi x:A.B <= typ - 1183 | cPsi |- s <= cPsi' - 1184 | cPsi |- tN <= [s]tA - ... - 1215 | Some LF.Nil - 1216 | with - 1217 | | U.Failure _ -> None - 1218 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/coverage.ml", lines 1337-1343, characters 2-29: - 1337 | ..let LF.TypDecl (_, tA) = Context.ctxDec cPsi i in (* x_i : tA in cPsi *) - 1338 | (* We call expand_head_sigma here because it might be *projections* - 1339 | of the bound variable that are relevant to the matching. - 1340 | *) - 1341 | expand_head_sigma (LF.BVar i, tA) - 1342 | |> List.map (fun (tH, tA) -> (tH, tA, 0)) - 1343 | |> genAllObj (cD, cPsi, tP) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 1478-1486, characters 7-10: - 1478 | .......begin fun (cD', (LF.DDec (cPsi', tdecl'), tM, sA), ms) -> - 1479 | let cg' = - 1480 | ( cPsi' - 1481 | , LF.Lam (Location.ghost, x, tM) - 1482 | , (LF.PiTyp ((tdecl', depend, plicity), LF.TClo (sA)), S.LF.id) - 1483 | ) - 1484 | in - 1485 | (cD', cg', ms) - 1486 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, ((Null|CtxVar _), _, (_, _)), _) - File "src/core/coverage.ml", lines 1462-1487, characters 2-14: - 1462 | ..match tA with - 1463 | | LF.Atom _ -> - 1464 | genPVar cov_problem @ genBVars cov_problem - 1465 | | LF.Sigma trec -> - 1466 | Error.raise_not_implemented "[genBCovGoals] not implemented for Sigma types" - ... - 1484 | in - 1485 | (cD', cg', ms) - 1486 | end - 1487 | cg_list - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TClo _ - File "src/core/coverage.ml", lines 1538-1545, characters 7-10: - 1538 | .......begin fun (cD', (LF.DDec (cPsi', tdecl'), tM, sA), t) -> - 1539 | ( cD' - 1540 | , ( cPsi' - 1541 | , LF.Lam (Location.ghost, x, tM) - 1542 | , (LF.PiTyp ((tdecl', depend, plicity), LF.TClo (sA)), S.LF.id)) - 1543 | , t - 1544 | ) - 1545 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, ((Null|CtxVar _), _, (_, _)), _) - File "src/core/coverage.ml", lines 1535-1546, characters 5-16: - 1535 | .....let LF.TypDecl (x, _) = tdecl in - 1536 | let cov_goals = genCovGoals (cD, LF.DDec (cPsi, tdecl), tB) in - 1537 | List.map - 1538 | begin fun (cD', (LF.DDec (cPsi', tdecl'), tM, sA), t) -> - 1539 | ( cD' - ... - 1543 | , t - 1544 | ) - 1545 | end - 1546 | cov_goals - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 1506-1546, characters 2-16: - 1506 | ..match tA with - 1507 | | LF.Atom (_, a, tS) -> - 1508 | let g_pv = genPVar cov_problem in (* (cD', cg, ms) list *) - 1509 | dprintf - 1510 | begin fun p -> - ... - 1543 | , t - 1544 | ) - 1545 | end - 1546 | cov_goals - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _|TClo _) - File "src/core/coverage.ml", lines 1576-1694, characters 5-8: - 1576 | .....begin match mc with - 1577 | | Eqn (CovSub (cPsi, s, sT), MetaSub (cPsi_p, s_p, sT_p)) -> - 1578 | let cT = LF.ClTyp (sT, cPsi) in - 1579 | let cT_p = LF.ClTyp (sT_p, cPsi_p) in - 1580 | let cM = (Location.ghost, LF.ClObj (Context.dctxToHat cPsi, LF.SObj s)) in - ... - 1691 | NotSolvable - 1692 | end - 1693 | end - 1694 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Eqn (CovSub (_, _, _), (MetaPatt (_, _, _)|GenPatt (_, _, _))) - File "src/core/coverage.ml", lines 1719-1724, characters 5-11: - 1719 | .....let CovGoal (cPsi', tR', sA') as covG = CovGoal (cPsi, tR, (tA, S.LF.id)) in - 1720 | (* let MetaPatt (cPhi, _, sB') = patt in *) - 1721 | (* let (mL', sL') = pre_match_typ cD cD_p (cPsi, sA') (cPhi, sB') matchL' splitL' in *) - 1722 | (* let (mL', sL') = pre_match_dctx cD cD_p cPsi cPhi matchL' splitL' in *) - 1723 | let result = pre_match cD cD_p covG patt matchL' splitL' in - 1724 | result - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovCtx _|CovSub (_, _, _)|CovPatt (_, _, (_, _))) - File "src/core/coverage.ml", lines 1713-1735, characters 2-94: - 1713 | ..match splitL with - 1714 | | [] -> (matchL, []) - 1715 | | Split (CovGoal (cPsi, tR, sA), patt) :: splits -> - 1716 | let (matchL', splitL') = refineSplits cD cD_p matchL splits ms in - 1717 | let tA = Whnf.normTyp sA in - ... - 1732 | pre_match_dctx cD cD_p cPsi' cPsi_patt matchL' splitL' - 1733 | | SplitPat ((Comp.PatFVar (loc, x), (tau, t)), pPatt_p) :: splits -> - 1734 | let (matchL', splitL') = refineSplits cD cD_p matchL splits ms in - 1735 | (matchL', SplitPat ((Comp.PatFVar (loc, x), (tau, Whnf.mcomp t ms)), pPatt_p) :: splitL') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Split ((CovCtx _|CovPatt (_, _, _)), _)::_ - File "src/core/coverage.ml", lines 1967-1994, characters 5-6: - 1967 | .....let (cPsi, (LF.Atom (_, a, _) as tP, s)) = - 1968 | Whnf.lowerTyp (LF.CtxVar (LF.CtxOffset (k + d))) (tA, s') - 1969 | in - 1970 | (* bp : Context substitution associated with declaration is off by 1 *) - 1971 | let (ss', cPsi') = Subord.thin' cD'' a cPsi in - ... - 1991 | in - 1992 | ( LF.Dec (cD'', mdec) - 1993 | , LF.Dot (LF.Obj mv, Whnf.cnormSub (s', LF.MShift 1)) - 1994 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, ((PiTyp ((_, _, _), _)|Sigma _|TClo (_, _)), _)) - File "src/core/coverage.ml", lines 1958-1994, characters 2-6: - 1958 | ..match decls with - 1959 | | LF.Empty -> (cD', S.LF.id) - 1960 | | LF.(Dec (decls, TypDecl (x, tA))) -> - 1961 | let x = NameGen.renumber names x in - 1962 | let names = x :: names in - ... - 1991 | in - 1992 | ( LF.Dec (cD'', mdec) - 1993 | , LF.Dot (LF.Obj mv, Whnf.cnormSub (s', LF.MShift 1)) - 1994 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, TypDeclOpt _) - File "src/core/coverage.ml", lines 1957-1994, characters 28-6: - 1957 | ............................(LF.CtxOffset k as cpsi) (d, decls) = - 1958 | match decls with - 1959 | | LF.Empty -> (cD', S.LF.id) - 1960 | | LF.(Dec (decls, TypDecl (x, tA))) -> - 1961 | let x = NameGen.renumber names x in - ... - 1991 | in - 1992 | ( LF.Dec (cD'', mdec) - 1993 | , LF.Dot (LF.Obj mv, Whnf.cnormSub (s', LF.MShift 1)) - 1994 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CtxName _|CInst ({instantiation=_; constraints=_; _ }, _)) - File "src/core/coverage.ml", lines 2090-2093, characters 17-34: - 2090 | .................(LF.Dec (cD', LF.Decl _) as cD) cpsi = - 2091 | let nonempty_cases = List.map (genSchemaElemGoal names cD cpsi) in - 2092 | let empty_case = List.cons (cD', LF.Null, LF.MShift 0) in - 2093 | F.(empty_case ++ nonempty_cases) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/coverage.ml", lines 2117-2130, characters 23-38: - 2117 | .......................(x, LF.CTyp (Option.Some schema_cid), plicity, inductivity) = - 2118 | let LF.Schema elems = Store.Cid.Schema.get_schema schema_cid in - 2119 | let cD' = - 2120 | LF.Dec - 2121 | (cD - ... - 2127 | } - 2128 | ) - 2129 | in - 2130 | genCtx [] cD' (LF.CtxOffset 1) elems - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, CTyp None, _, _) - File "src/core/coverage.ml", lines 2138-2172, characters 5-87: - 2138 | .....let LF.TypDecl (x, tA) = decl in - 2139 | let s = LF.SVar (2, 0, S.LF.id) in - 2140 | let mT = LF.ClTyp (LF.STyp (r0, cPhi'), cPsi) in - 2141 | let name = Whnf.newMTypName mT in - 2142 | let cD' = - ... - 2169 | in - 2170 | let cPsi' = Whnf.cnormDCtx (cPsi, LF.MShift 2) in - 2171 | let cPhi'' = Whnf.cnormDCtx (cPhi, LF.MShift 2) in - 2172 | [(cD'', CovSub (cPsi', LF.Dot (LF.Obj tM, s), LF.STyp (r0, cPhi'')), LF.MShift 2)] - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 2180-2233, characters 2-8: - 2180 | ..match cT with - 2181 | | LF.ClTyp (clTyp, cPsi) -> - 2182 | begin match clTyp with - 2183 | | LF.MTyp tA -> - 2184 | dprintf - ... - 2230 | , Atomic - 2231 | ) - 2232 | end - 2233 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/coverage.ml", lines 2243-2244, characters 11-60: - 2243 | ...........let LF.Decl { name = x; typ = cU; plicity; inductivity } = d in - 2244 | genContextGoals cD' (x, cU, plicity, inductivity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/coverage.ml", lines 2236-2272, characters 2-58: - 2236 | ..match (cv_list, cD) with - 2237 | | ([], _) -> NoCandidate - 2238 | | ([LF.CtxOffset j], LF.Dec (cD', d)) -> - 2239 | if j = k - 2240 | then - ... - 2269 | SomeCtxCands ctx_goals' - 2270 | end - 2271 | else - 2272 | best_ctx_cand (cD', cv_list) (k + 1) (d :: cD_tail) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CtxOffset _::[], Empty) - File "src/core/coverage.ml", lines 2302-2303, characters 25-35: - 2302 | .........................let LF.Root (_, tH, _, _) = tR in - 2303 | LF.PObj tH - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)) - File "src/core/coverage.ml", lines 2296-2303, characters 22-35: - 2296 | ......................match cT with - 2297 | (* gonna be a ClTyp because we're in the CovGoal branch *) - 2298 | | LF.ClTyp (LF.MTyp _, _) -> LF.MObj tR - 2299 | | LF.ClTyp (LF.PTyp _, _) -> - 2300 | (* ensure that PTyp is added as a PObj to the - 2301 | msub; otherwise normalization WILL crash. *) - 2302 | let LF.Root (_, tH, _, _) = tR in - 2303 | LF.PObj tH - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (STyp (_, _), _) - File "src/core/coverage.ml", lines 2288-2325, characters 17-50: - 2288 | .................match cg with - 2289 | | CovGoal (cPsi', tR, sA') -> - 2290 | dprintf - 2291 | begin fun p -> - 2292 | p.fmt "[best_cand] generated covgoal @[%a@]" - ... - 2322 | , Whnf.cnormClTyp (sT, LF.MShift k) - 2323 | ) - 2324 | in - 2325 | TermCandidate (cD'', cg', ms0). - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovCtx _|CovPatt (_, _, _)) - File "src/core/coverage.ml", lines 2329-2342, characters 11-17: - 2329 | ...........match best_cand (cD', mvlist') (k + 1) (md :: cD_tail) with - 2330 | | NoCandidate -> SomeTermCands (dep0, cov_goals0) - 2331 | | SomeTermCands (dep, cov_goals) -> - 2332 | begin match dep, dep0 with - 2333 | | Dependent, Atomic -> SomeTermCands (dep, cov_goals) - ... - 2339 | then SomeTermCands (dep, cov_goals) - 2340 | else SomeTermCands (dep0, cov_goals0) - 2341 | *) - 2342 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - SomeCtxCands _ - File "src/core/coverage.ml", lines 2276-2350, characters 2-55: - 2276 | ..match (mv_list, cD) with - 2277 | | ([], _) -> NoCandidate - 2278 | | (LF.Offset j :: mvlist', LF.(Dec (cD', (Decl { typ = cT; _ } as md)))) -> - 2279 | if k = j - 2280 | then - ... - 2347 | best_cand (cD', mvlist') (k + 1) (md :: cD_tail) - 2348 | end - 2349 | else - 2350 | best_cand (cD', mv_list) (k + 1) (md :: cD_tail) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Offset _::_, Dec (_, DeclOpt _)) - File "src/core/coverage.ml", lines 2424-2432, characters 7-13: - 2424 | .......match cl with - 2425 | | LF.PTyp _ -> - 2426 | let v = Whnf.newMPVar (Some u) (LF.Empty, cPsi', tP') plicity inductivity in - 2427 | LF.(PObj (mpvar ((v, Whnf.m_id), S.LF.id))) - 2428 | | LF.MTyp _ -> - 2429 | LF.MObj - 2430 | (ConvSigma.etaExpandMMVstr - 2431 | Location.ghost LF.Empty cPsi' (tP', S.LF.id) plicity (Some u) (u :: names) - 2432 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/coverage.ml", lines 2575-2588, characters 6-9: - 2575 | ......begin fun (CovGoal (cPsi', tR, sA')) -> - 2576 | let m_obj = - 2577 | ( Location.ghost - 2578 | , LF.ClObj (Context.dctxToHat cPsi', LF.MObj tR) - 2579 | ) - ... - 2585 | ) - 2586 | in - 2587 | (LF.Empty, pat_r, tau_r) - 2588 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovCtx _|CovSub (_, _, _)|CovPatt (_, _, (_, _))) - File "src/core/coverage.ml", lines 2624-2626, characters 10-46: - 2624 | ..........match tC with - 2625 | | MTyp _ -> fun sA -> MTyp (TClo sA) - 2626 | | PTyp _ -> fun sA -> PTyp (TClo sA) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/coverage.ml", lines 2620-2661, characters 5-8: - 2620 | .....begin match mT with - 2621 | | LF.(ClTyp (tC, cPsi)) -> - 2622 | let f = - 2623 | let open LF in - 2624 | match tC with - ... - 2658 | , t - 2659 | ) - 2660 | end - 2661 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp None - File "src/core/coverage.ml", lines 2708-2756, characters 2-55: - 2708 | ..function - 2709 | | [] -> vlist - 2710 | | Split (CovGoal (_, LF.Root (_, LF.MVar (u, _), _, _), _), _) :: sl -> - 2711 | let (pvlist, cvlist, mvlist) = vlist in - 2712 | if List.mem u mvlist - ... - 2753 | let (pvlist, cvlist, mvlist) = vlist in - 2754 | if List.mem x pvlist - 2755 | then mvInSplit cD vlist sl - 2756 | else mvInSplit cD (x :: pvlist, cvlist, mvlist) sl - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - SplitCtx ((Null|DDec (_, _)), _)::_ - File "src/core/coverage.ml", lines 2767-2772, characters 30-13: - 2767 | ..............................(LF.Offset k') -> - 2768 | if k' < k - 2769 | then 1 - 2770 | else if k' = k - 2771 | then 0 - 2772 | else -1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Inst {instantiation=_; constraints=_; _ } - File "src/core/coverage.ml", lines 2767-2773, characters 6-9: - 2767 | ......begin fun (LF.Offset k) (LF.Offset k') -> - 2768 | if k' < k - 2769 | then 1 - 2770 | else if k' = k - 2771 | then 0 - 2772 | else -1 - 2773 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Inst {instantiation=_; constraints=_; _ } - File "src/core/coverage.ml", lines 2778-2783, characters 33-13: - 2778 | .................................(LF.CtxOffset k') -> - 2779 | if k' < k - 2780 | then 1 - 2781 | else if k' = k - 2782 | then 0 - 2783 | else -1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CtxName _|CInst ({instantiation=_; constraints=_; _ }, _)) - File "src/core/coverage.ml", lines 2778-2784, characters 6-9: - 2778 | ......begin fun (LF.CtxOffset k) (LF.CtxOffset k') -> - 2779 | if k' < k - 2780 | then 1 - 2781 | else if k' = k - 2782 | then 0 - 2783 | else -1 - 2784 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CtxName _|CInst ({instantiation=_; constraints=_; _ }, _)) - File "src/core/coverage.ml", line 2861, characters 50-80: - 2861 | Prettycov.fmt_ppr_cov_goals (List.map (fun (TermCandidate cg) -> cg) cgoals) - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxCandidate (_, _, _) - File "src/core/coverage.ml", lines 2897-2902, characters 2-33: - 2897 | ..function - 2898 | | Comp.PatNil -> Comp.PatNil - 2899 | | Comp.PatApp (loc, pat, pS) -> - 2900 | let pat' = subst_pattern (pat_r, pv) pat in - 2901 | let pS' = subst_pattern_spine (pat_r, pv) pS in - 2902 | Comp.PatApp (loc, pat', pS') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PatObs (_, _, _, _) - File "src/core/coverage.ml", lines 2973-2989, characters 32-52: - 2973 | ................................(x :: pvlist) = - 2974 | let cov_goals' = - 2975 | List.map - 2976 | begin fun (cD', (cG', pat, tau_p), t) -> - 2977 | (cD', (Context.append (Whnf.cnormGCtx (cG, t)) cG', pat, tau_p), t) - ... - 2986 | cov_goals' - 2987 | end; - 2988 | let l = List.length cov_goals' in - 2989 | best_pv_cand' (cD, cG) pvlist (l, (cov_goals', x)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/coverage.ml", lines 2996-3007, characters 2-40: - 2996 | ..match sl with - 2997 | | [] -> pvlist - 2998 | | Split (CovGoal _, _) :: sl -> pvInSplitCand sl pvlist - 2999 | | Split (CovSub _, _) :: sl -> pvInSplitCand sl pvlist - 3000 | | SplitCtx _ :: sl -> pvInSplitCand sl pvlist - ... - 3004 | ); - 3005 | if List.mem x pvlist - 3006 | then pvInSplitCand sl pvlist - 3007 | else pvInSplitCand sl (x :: pvlist) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Split ((CovCtx _|CovPatt (_, _, _)), _)::_ - File "src/core/coverage.ml", lines 3217-3225, characters 2-27: - 3217 | ..let CovPatt (cG', pat', ttau') = covGoal in - 3218 | dprintf - 3219 | begin fun p -> - 3220 | p.fmt "[gen_candidates] @[<v>pat = @[%a@]@,pat' = @[%a@]@]" - 3221 | (P.fmt_ppr_cmp_pattern cD_p cG_p P.l0) pat - 3222 | (P.fmt_ppr_cmp_pattern cD_p cG' P.l0) pat' - 3223 | end; - 3224 | let (ml, sl) = match_pattern (cD, cG') (cD_p, cG_p) (pat', ttau') (pat, ttau) [] [] in - 3225 | Cand (cD_p, cG_p, ml, sl) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovGoal (_, _, (_, _))|CovCtx _|CovSub (_, _, _)) - File "src/core/coverage.ml", lines 3216-3225, characters 33-27: - 3216 | .................................(cD_p, GenPatt (cG_p, pat, ttau)) = - 3217 | let CovPatt (cG', pat', ttau') = covGoal in - 3218 | dprintf - 3219 | begin fun p -> - 3220 | p.fmt "[gen_candidates] @[<v>pat = @[%a@]@,pat' = @[%a@]@]" - 3221 | (P.fmt_ppr_cmp_pattern cD_p cG_p P.l0) pat - 3222 | (P.fmt_ppr_cmp_pattern cD_p cG' P.l0) pat' - 3223 | end; - 3224 | let (ml, sl) = match_pattern (cD, cG') (cD_p, cG_p) (pat', ttau') (pat, ttau) [] [] in - 3225 | Cand (cD_p, cG_p, ml, sl) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, (MetaPatt (_, _, (_, _))|MetaSub (_, _, _))) - File "src/core/coverage.ml", lines 3393-3428, characters 2-50: - 3393 | ..function - 3394 | | LF.Empty -> false - 3395 | | LF.Dec (cD', (LF.Decl { typ = LF.ClTyp (LF.MTyp tA, cPsi); _} as cdecl)) -> - 3396 | begin - 3397 | try - ... - 3425 | print_string "Unable to prove given type is empty\n"; check_emptiness cD' - 3426 | end - 3427 | - 3428 | | LF.Dec (cD', LF.Decl _) -> check_emptiness cD' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/coverage.ml", lines 3431-3441, characters 2-8: - 3431 | ..function - 3432 | | LF.Empty -> false - 3433 | | LF.Dec (cG, Comp.CTypDecl (_, tau, _)) -> - 3434 | begin - 3435 | try - ... - 3438 | | _ -> check_empty_comp names cD cG - 3439 | with - 3440 | | _ -> check_empty_comp names cD cG - 3441 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Reconstruct.cmo -c -impl src/core/reconstruct.ml) - File "src/core/reconstruct.ml", lines 55-179, characters 20-41: - 55 | ....................function - 56 | | NotImplemented f -> - 57 | Format.dprintf "@[<v 2>Not implemented:@,@[%a@]@]" - 58 | f () - 59 | | MCtxIllformed cD -> - ... - 176 | @, @[%a@]\ - 177 | @]" - 178 | P.(fmt_ppr_cmp_meta_obj cD l0) mC_p - 179 | P.(fmt_ppr_cmp_meta_obj cD l0) mC - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - IllegalSubstMatch - File "src/core/reconstruct.ml", lines 217-218, characters 2-45: - 217 | ..function - 218 | | Int.LF.Decl d -> Name.mk_some_name d.name - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/reconstruct.ml", lines 258-267, characters 4-26: - 258 | ....match tau, n with - 259 | | _, 0 -> 0 - 260 | | I.TypPiBox (_, Int.LF.Decl { name = u; typ = cU; inductivity = Inductivity.Inductive; _ }, tau), n -> - 261 | Error.raise_violation (Format.asprintf "[%s] impossible LF.Inductive" __FUNCTION__) - 262 | | I.TypPiBox (_, Int.LF.Decl { name = u; typ = cU; plicity = Plicity.Implicit; _ }, tau), n -> - 263 | 1 + skip tau n (* implicits are free *) - 264 | | I.TypPiBox (_, Int.LF.Decl { name = u; typ = cU; plicity = Plicity.Explicit; _ }, tau), n -> - 265 | 1 + skip tau (n - 1) (* explicits pi-types cost 1 *) - 266 | | I.TypArr (_, _, tau), n -> - 267 | 1 + skip tau (n - 1).............................. - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypPiBox (_, DeclOpt _, _), 1) - File "src/core/reconstruct.ml", lines 292-298, characters 9-92: - 292 | .........let (_, Int.LF.Decl { typ = Int.LF.CTyp (Some s_cid'); _ }) = Store.FCVar.get psi in - 293 | if Id.cid_schema_equal s_cid s_cid' - 294 | then Int.LF.CtxVar (Int.LF.CtxName psi) - 295 | else - 296 | let { Store.Cid.Schema.Entry.name; schema } = Store.Cid.Schema.get s_cid in - 297 | let c_var' = Int.LF.CtxName psi in - 298 | Check.LF.(CtxVarMismatch (cD, c_var', name, schema) |> throw (Name.location psi)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp None; _ }) - File "src/core/reconstruct.ml", lines 343-361, characters 7-10: - 343 | .......let Int.LF.CTyp (Some s_cid) = Int.LF.(v.typ) in - 344 | begin - 345 | let cPsi = elDCtxAgainstSchema loc Lfrecon.Pibox cD cPsi s_cid in - 346 | Unify.instantiateCtxVar (Int.LF.(v.instantiation), cPsi); - 347 | match Context.ctxVar cPsi with - ... - 358 | } - 359 | ) - 360 | | _ -> () - 361 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp None - File "src/core/reconstruct.ml", lines 396-400, characters 2-23: - 396 | ..match cG, k with - 397 | | Int.LF.Dec (_cG', Int.Comp.CTypDecl (_, tau, _)), 1 -> - 398 | Whnf.cnormCTyp (tau, Whnf.m_id) - 399 | | Int.LF.Dec (cG', Int.Comp.CTypDecl (_, _tau, _)), k -> - 400 | lookup cG' (k - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Dec (_, CTypDeclOpt _), _) - File "src/core/reconstruct.ml", lines 410-416, characters 2-32: - 410 | ..function - 411 | | Apx.LF.Empty -> Int.LF.Empty - 412 | | Apx.LF.Dec (ctx, Apx.LF.TypDecl (name, typ)) -> - 413 | let ctx' = elTypDeclCtx cD ctx in - 414 | let tA = Lfrecon.elTyp Lfrecon.Pi cD (Context.projectCtxIntoDctx ctx') typ in - 415 | let typDecl' = Int.LF.TypDecl (name, tA) in - 416 | Int.LF.Dec (ctx', typDecl') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, TypDeclOpt _) - File "src/core/reconstruct.ml", lines 459-466, characters 20-5: - 459 | ....................(Apx.LF.Decl (u, ctyp, plicity)) = - 460 | let ctyp' = elCTyp recT cD ctyp in - 461 | Int.LF.Decl - 462 | { name = u - 463 | ; typ = ctyp' - 464 | ; plicity - 465 | ; inductivity = Inductivity.not_inductive - 466 | } - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/reconstruct.ml", lines 519-557, characters 4-26: - 519 | ....function - 520 | | (Int.LF.Typ, _s) -> - 521 | Int.LF.Nil - 522 | - 523 | | (Int.LF.(PiKind ((TypDecl (u, tA1), depend, plicity), kK), s)) -> - ... - 554 | (P.fmt_ppr_lf_typ cD cPsi P.l0) (Whnf.normTyp (tA1, s)) - 555 | end; - 556 | let tS = genSpine (kK, Int.LF.Dot (Int.LF.Obj tR, s)) in - 557 | Int.LF.App (tR, tS) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind ((TypDeclOpt _, _, _), _), _) - File "src/core/reconstruct.ml", lines 563-575, characters 2-8: - 563 | ..function - 564 | | Int.LF.Atom (_, a, _) -> - 565 | mgAtomicTyp cD cPsi a (Store.Cid.Typ.get a).Store.Cid.Typ.Entry.kind - 566 | - 567 | | Int.LF.Sigma trec -> - ... - 572 | Int.LF.PiTyp - 573 | ( (tdecl', depend, plicity) - 574 | , mgTyp cD (Int.LF.DDec (cPsi, tdecl')) tA - 575 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TClo _ - File "src/core/reconstruct.ml", lines 578-580, characters 2-41: - 578 | ..function - 579 | | Int.LF.TypDecl (x, tA) -> - 580 | Int.LF.TypDecl (x, mgTyp cD cPsi tA) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/reconstruct.ml", lines 637-640, characters 5-18: - 637 | .....let Int.LF.Root (_, h, Int.LF.Nil, _) = - 638 | Lfrecon.elTerm Lfrecon.Pibox cD cPsi' tM (tA', LF.id) - 639 | in - 640 | Int.LF.PObj h - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Root (_, _, (App (_, _)|SClo (_, _)), _) - File "src/core/reconstruct.ml", lines 647-650, characters 5-18: - 647 | .....let Int.LF.Root (_, h, Int.LF.Nil, _) = - 648 | Lfrecon.elTerm Lfrecon.Pibox cD cPsi' tM (tA', LF.id) - 649 | in - 650 | Int.LF.PObj h - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Root (_, _, (App (_, _)|SClo (_, _)), _) - File "src/core/reconstruct.ml", lines 711-727, characters 2-104: - 711 | ..match (s, cKt) with - 712 | | (Apx.Comp.MetaNil, (Int.Comp.Ctype _, _)) -> - 713 | Int.Comp.MetaNil - 714 | - 715 | | (Apx.Comp.MetaNil, (Int.Comp.PiKind (_, cdecl, _cK), theta)) -> - ... - 724 | - 725 | | (Apx.Comp.MetaApp (m, s), (Int.Comp.PiKind (_, Int.LF.Decl { typ = ctyp; _ }, cK), theta)) -> - 726 | let (mO, t') = elMetaObjCTyp loc cD m theta ctyp in - 727 | Int.Comp.MetaApp(mO, Whnf.cnormMTyp (ctyp, theta), elMetaSpine loc cD s (cK, t'), Plicity.explicit) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MetaApp (_, _), (PiKind (_, DeclOpt _, _), _)) - File "src/core/reconstruct.ml", lines 798-803, characters 4-65: - 798 | ....function - 799 | | (Int.Comp.Ctype _, _t) -> Int.Comp.MetaNil - 800 | | (Int.Comp.PiKind (loc', Int.LF.Decl { name = u; typ = cU; plicity; inductivity }, cK), t) -> - 801 | let (mO, t') = Whnf.dotMMVar loc cD t (u, cU, plicity, inductivity) in - 802 | let mS = genMetaSpine (cK, t') in - 803 | Int.Comp.MetaApp (mO, Whnf.cnormMTyp (cU, t), mS, plicity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind (_, DeclOpt _, _), _) - File "src/core/reconstruct.ml", lines 830-842, characters 2-49: - 830 | ..match cPsi with - 831 | | Int.LF.CtxVar (Int.LF.CtxOffset psi_var) -> - 832 | let (n, sW) = Whnf.mctxCDec cD psi_var in - 833 | let v = - 834 | let open Int.LF in - ... - 839 | | Int.LF.DDec (cPsi, Int.LF.TypDecl (x, tA)) -> - 840 | let cPsi' = mgCtx cD' (cD, cPsi) in - 841 | let tA' = mgTyp cD' cPsi' tA in - 842 | Int.LF.DDec (cPsi', Int.LF.TypDecl (x, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar (CtxName _|CInst _) - File "src/core/reconstruct.ml", lines 921-939, characters 7-54: - 921 | .......let Int.Comp.TypBox (_, mT) = tau_p' in - 922 | dprintf - 923 | begin fun p -> - 924 | p.fmt "[synPatRefine] @[<v>unifying scrutinee and pattern:\ - 925 | @,mC = @[%a@]\ - ... - 936 | (mT, Whnf.m_id) - 937 | with - 938 | | Unify.Failure msg -> - 939 | throw loc (ImpossiblePattern (cD, mC_p, mC)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypBase (_, _, _)|TypCobase (_, _, _)|TypDef (_, _, _)|TypArr (_, _, _)| - TypCross (_, T (_, _, _))|TypPiBox (_, _, _)|TypClo (_, _)|TypInd _) - File "src/core/reconstruct.ml", lines 916-939, characters 4-54: - 916 | ....match caseT with - 917 | | DataObj -> () (* not dependent pattern matching; nothing to do *) - 918 | | IndexObj (Int.Comp.(PatMetaObj (_, mC_p) | PatAnn (_, PatMetaObj (_, mC_p), _, _)), mC) -> - 919 | let mC_p = Whnf.cnormMetaObj (mC_p, Whnf.m_id) in - 920 | (* tau_p' _has_ to be a box type if caseT is an IndexObj *) - ... - 936 | (mT, Whnf.m_id) - 937 | with - 938 | | Unify.Failure msg -> - 939 | throw loc (ImpossiblePattern (cD, mC_p, mC)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - IndexObj - (PatAnn - (_, - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, _)| - PatAnn (_, _, _, _)), _, _), - _) - File "src/core/reconstruct.ml", lines 1369-1376, characters 7-22: - 1369 | .......match id with - 1370 | | None -> true - 1371 | | Some Apx.LF.Id -> true - 1372 | | Some Apx.LF.EmptySub -> - 1373 | let (_, cPsi, _, cPhi) = Whnf.mctxSDec cD k in - 1374 | match cPhi, cPsi with - 1375 | | Int.LF.Null, Int.LF.Null -> true - 1376 | | _ -> false - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (Dot (_, _)|SVar (_, _)|FSVar (_, _)) - File "src/core/reconstruct.ml", lines 1393-1416, characters 6-9: - 1393 | ......let Apx.LF.MInst (Int.LF.SObj s0, Int.LF.ClTyp (Int.LF.STyp (cl, cPsi), cPhi)) = s in - 1394 | let cPhi2 = Lfrecon.elDCtx Lfrecon.Pibox cD phi2 in - 1395 | let s' = Lfrecon.elSub loc Lfrecon.Pibox cD cPhi2 s' cl cPhi in - 1396 | let s0' = Substitution.LF.comp s0 s' in - 1397 | begin match s0' with - ... - 1413 | else - 1414 | throw loc IllegalSubstMatch - 1415 | | _ -> throw loc IllegalSubstMatch - 1416 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MInst (SObj _, ClTyp ((MTyp _|PTyp _), _)) - File "src/core/reconstruct.ml", lines 1421-1442, characters 5-8: - 1421 | .....begin - 1422 | match cpsi with - 1423 | | Apx.LF.CtxVar (ctxvar) -> - 1424 | let c_var = Lfrecon.elCtxVar ctxvar in - 1425 | let cM = (loc', Int.LF.CObj (Int.LF.CtxVar c_var)) in - ... - 1439 | end - 1440 | |> throw loc - 1441 | end - 1442 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Null|CtxHole|DDec (_, _)) - File "src/core/reconstruct.ml", lines 1194-1458, characters 2-6: - 1194 | ..match i with - 1195 | | Apx.Comp.Var (loc, offset) -> - 1196 | let tau = lookup cG offset in - 1197 | dprintf - 1198 | begin fun p -> - ... - 1455 | , ( Int.Comp.TypCross (loc, ttaus') - 1456 | , C.m_id - 1457 | ) - 1458 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Box - (_, (_, ClObj (_, Dot (Head _, (Id|Dot (_, _)|SVar (_, _)|FSVar (_, _)))))) - File "src/core/reconstruct.ml", lines 1524-1600, characters 2-8: - 1524 | ..match (pat, ttau) with - 1525 | | (Apx.Comp.PatVar (loc, name, x), (tau, theta)) -> - 1526 | let tau' = Whnf.cnormCTyp (tau, theta) in - 1527 | dprintf - 1528 | begin fun p -> - ... - 1597 | | Unify.Failure msg -> - 1598 | dprint (fun () -> "Unify Error: " ^ msg); - 1599 | raise (Check.Comp.Error (loc, Check.Comp.SynMismatch (cD, ttau, ttau'))) - 1600 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatFVar (_, _), _) - File "src/core/reconstruct.ml", lines 1603-1613, characters 2-57: - 1603 | ..function - 1604 | | Apx.Comp.PatAnn (loc, pat, tau) -> - 1605 | let tau' = elCompTyp cD tau in - 1606 | let (cG', pat') = elPatChk cD cG pat (tau', Whnf.m_id) in - 1607 | (cG', Int.Comp.PatAnn (loc, pat', tau', Plicity.explicit), (tau', Whnf.m_id)) - ... - 1610 | let { Store.Cid.CompConst.Entry.typ = tau; _ } = Store.Cid.CompConst.get c in - 1611 | dprintf (fun p -> p.fmt "[elPat] PatConst = %s@\n" (R.render_cid_comp_const c)); - 1612 | let (cG1, pat_spine', ttau') = elPatSpine cD cG pat_spine (tau, Whnf.m_id) in - 1613 | (cG1, Int.Comp.PatConst (loc, c, pat_spine'), ttau') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatMetaObj (_, _)|PatFVar (_, _)|PatVar (_, _, _)|PatTuple (_, _)) - File "src/core/reconstruct.ml", lines 1690-1733, characters 5-8: - 1690 | .....begin match ttau with - 1691 | | (Int.Comp.TypCobase (_, _, _), _) -> - 1692 | let { Store.Cid.CompDest.Entry.name - 1693 | ; mctx = cD' - 1694 | ; obs_type = tau0 - ... - 1730 | let (cG', pat_spine', ttau2) = elPatSpine cD cG pat_spine ttau' in - 1731 | (cG', Int.Comp.PatApp (loc, pat', pat_spine'), ttau2) - 1732 | (* | _ -> raise (Error (loc, TypMismatch (cD, ttau, (tau1, Whnf.m_id)))) *) - 1733 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypPiBox (_, Decl {plicity=Explicit; _ }, _), _) - File "src/core/reconstruct.ml", lines 1749-1756, characters 5-68: - 1749 | .....let Int.Comp.TypBox (_, Int.LF.ClTyp (Int.LF.MTyp _tQ, cPsi_s)) = tau_s in - 1750 | let cPsi = inferCtxSchema loc (cD_s, cPsi_s) (cD, psi) in - 1751 | let tP = Lfrecon.elTyp (Lfrecon.Pibox) cD cPsi a in - 1752 | let tau' = Int.Comp.TypBox(loc', Int.LF.ClTyp (Int.LF.MTyp tP, cPsi)) in - 1753 | let ttau' = (tau', Whnf.m_id) in - 1754 | let (cG', pat') = elPatChk cD Int.LF.Empty pat' ttau' in - 1755 | (* Return annotated pattern? Int.Comp.PatAnn (l, pat', tau') *) - 1756 | (cG', Int.Comp.PatAnn (l, pat', tau', Plicity.explicit), ttau') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypBox (_, ClTyp ((PTyp _|STyp (_, _)), _)) - File "src/core/reconstruct.ml", lines 1784-1801, characters 10-13: - 1784 | ..........begin match mT with - 1785 | | Int.LF.(MTyp (Atom _ | Sigma _ as tA))-> - 1786 | let cPsi' = inferCtxSchema loc (cD_s, cPsi) (cD, psi) in - 1787 | let tP' = mgTyp cD cPsi' tA in - 1788 | (loc', Int.LF.ClTyp (Int.LF.MTyp tP', cPsi')) - ... - 1798 | fixParamTyp in check.ml, and it is only used for - 1799 | coverage checking. *) - 1800 | Error.raise_violation "[recPatObj'] scrutinee PTyp should be impossible" - 1801 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MTyp (TClo _) - File "src/core/reconstruct.ml", lines 2084-2106, characters 2-5: - 2084 | ..let { I.cD = cD'; cG = cG'; cIH = Int.LF.Empty } as h' = - 2085 | elHypotheses h - 2086 | in - 2087 | dprintf - 2088 | begin fun p -> - ... - 2103 | ( loc - 2104 | , h' - 2105 | , elProof cD cG label p ttau - 2106 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - {cIH=Dec (_, WfRec (_, _, _)); _ } - File "src/core/reconstruct.ml", lines 2288-2301, characters 11-29: - 2288 | ...........match k, tA' with - 2289 | | Some k, Int.LF.Sigma tRec -> - 2290 | (* Compute the type of the kth projection of tRec. *) - 2291 | Int.LF.getType h (tRec, LF.id) k - 2292 | |> Whnf.normTyp - ... - 2298 | A projected case #n.k is required. - 2299 | *) - 2300 | assert false - 2301 | | None, tA' -> tA' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Some _, (Atom (_, _, _)|PiTyp (_, _)|TClo _)) - File "src/core/reconstruct.ml", lines 2339-2420, characters 7-56: - 2339 | .......let Int.LF.MTyp tP = cU in - 2340 | let (cD', (cPsi', tR_p, tA_p), t) = - 2341 | match Coverage.genObj (cD, cPsi, tP) (Int.LF.Const cid, tA, k) with - 2342 | | None -> assert false - 2343 | (* FIXME: throw an appropriate error - ... - 2417 | cD_b |- [t o t']tau <= type - 2418 | *) - 2419 | in - 2420 | I.SplitBranch (l', (Int.LF.Empty, pat), t', hyp') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PTyp _|STyp (_, _)) - File "src/core/reconstruct.ml", lines 2428-2463, characters 7-57: - 2428 | .......let Int.LF.MTyp tA = cU in - 2429 | let (cD', (cPsi', tM, sA), t) = - 2430 | match Coverage.genBVar (cD, cPsi, tA) 1 with - 2431 | | [x] -> x - 2432 | | _ -> - ... - 2460 | let l' = `bvar in - 2461 | let pb' = I.SubgoalPath.(append pb (build_meta_split i l')) in - 2462 | let hyp' = elHypothetical cD_b cG_b pb' hyp ttau_b in - 2463 | I.SplitBranch (l', (Int.LF.Empty, pat'), t', hyp') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PTyp _|STyp (_, _)) - File "src/core/reconstruct.ml", lines 2545-2547, characters 5-44: - 2545 | .....let Some w = w in - 2546 | let ctx_branches = List.map (make_ctx_branch w) bs in - 2547 | I.ContextSplit (i, tau_i, ctx_branches) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/reconstruct.ml", lines 2562-2568, characters 5-17: - 2562 | .....let (cD', cG', Int.LF.Empty, tau', _) = - 2563 | Check.Comp.unroll cD cG Int.LF.Empty (Whnf.cnormCTyp ttau) - 2564 | in - 2565 | let hyp = - 2566 | elHypothetical cD' cG' I.SubgoalPath.(append pb build_intros) hyp (tau', Whnf.m_id) - 2567 | in - 2568 | I.Intros hyp - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, _, Dec (_, WfRec (_, _, _)), _, _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/core/.beluga.objs/byte -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/byte/beluga__Logic.cmo -c -impl src/core/logic.ml) - File "src/core/logic.ml", lines 190-203, characters 4-36: - 190 | ....match tN with - 191 | | LF.Lam (l, n, tN') -> - 192 | begin - 193 | incr lR; - 194 | let tM = LF.Lam (l, n, shiftNormal tN' k) in - ... - 200 | | LF.Clo (tN, s) -> - 201 | LF.Clo (shiftNormal tN k, s) - 202 | | LF.Tuple (l, tP) -> - 203 | LF.Tuple (l, shiftTuple tP k) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - LFHole (_, _, _) - File "src/core/logic.ml", lines 241-251, characters 4-8: - 241 | ....match tA with - 242 | | LF.PiTyp ((tD, _, Plicity.Implicit), tA') -> - 243 | typToClause' (LF.DDec (eV, tD)) cG tA' (cS, dS, dR) - 244 | | LF.PiTyp ((LF.TypDecl (_, tA), _, Plicity.Explicit), tB) -> - 245 | typToClause' eV (Conjunct (cG, typToGoal tA (cS, dS, dR))) - ... - 248 | { tHead = (Shift.shiftAtom tA (-cS, -dS, dR)) - 249 | ; eVars = eV - 250 | ; subGoals = cG - 251 | } - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, Explicit), _) - File "src/core/logic.ml", lines 297-306, characters 4-30: - 297 | ....match tA with - 298 | | LF.PiTyp ((tdec, _, Plicity.Implicit), tA') -> - 299 | All (tdec, typToGoal tA' (cS, dS, dR + 1)) - 300 | | LF.PiTyp ((LF.TypDecl (x, tA) as tdec, _, Plicity.Explicit), tB) -> - 301 | Impl ((typToRes tA (cS, dS, dR), tdec), typToGoal tB (cS, dS, dR + 1)) - 302 | | LF.Atom _ -> - 303 | Atom (Shift.shiftAtom tA (-cS, -dS, dR)) - 304 | | LF.TClo (tA, s) -> - 305 | dprintf begin fun p -> p.fmt "[typToGoal] TClo" end; - 306 | raise NotImplementedYet - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, Explicit), _) - File "src/core/logic.ml", lines 309-315, characters 4-47: - 309 | ....match tM with - 310 | | LF.PiTyp ((tD, _, Plicity.Implicit), tM') -> - 311 | Exists (tD, typToRes tM' (cS, dS, dR + 1)) - 312 | | LF.PiTyp ((LF.TypDecl (_, tA), _, Plicity.Explicit), tB) -> - 313 | And (typToGoal tA (cS, dS, dR), typToRes tB (cS + 1, dS + 1, dR + 1)) - 314 | | LF.Atom _ -> - 315 | Head (Shift.shiftAtom tM (-cS, -dS, dR)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, Explicit), _) - File "src/core/logic.ml", lines 326-348, characters 4-34: - 326 | ....match tau with - 327 | | Comp.TypBox (_loc, LF.ClTyp (LF.MTyp tA, cPsi)) -> - 328 | (* Invariant: tA will always be atomic in our implementation *) - 329 | Box (cPsi, Atom tA, Some M) - 330 | (* possibly needs to have PiBox variables shifted; - ... - 345 | let typ_dec = Comp.CTypDecl (name, tau1 , true) in - 346 | Implies ((cr1, typ_dec), cg2) - 347 | | Comp.TypBase (_, comp_cid, s) -> - 348 | Atomic (comp_cid, msToAs s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypBox (_, CTyp _) - File "src/core/logic.ml", lines 351-358, characters 4-47: - 351 | ....match tau with - 352 | | Comp.TypBox (_) | Comp.TypBase(_) -> - 353 | Base tau - 354 | | Comp.TypArr (_, tau1, tau2) -> - 355 | CAnd (comptypToCompGoal tau1, comptypToCompRes tau2) - 356 | | Comp.TypPiBox (_, typ_dec, tau') -> - 357 | CExists (typ_dec, comptypToCompRes tau') - 358 | | Comp.TypInd tau' -> comptypToCompRes tau' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypCobase (_, _, _)|TypDef (_, _, _)|TypCross (_, _)|TypClo (_, _)) - File "src/core/logic.ml", lines 394-402, characters 4-30: - 394 | ....match box with - 395 | | Box (cPsi, Atom tA, Some M) -> - 396 | let loc = Location.ghost in - 397 | let ctyp = LF.ClTyp (LF.MTyp tA, cPsi) in - 398 | Comp.TypBox (loc, ctyp) - 399 | | Box (cPsi, Atom tA, Some P) -> - 400 | let loc = Location.ghost in - 401 | let ctyp = LF.ClTyp (LF.PTyp tA, cPsi) in - 402 | Comp.TypBox (loc, ctyp) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Box (_, Atom _, None) - File "src/core/logic.ml", lines 412-416, characters 4-34: - 412 | ....match atomic with - 413 | | Atomic (cid, aS) -> - 414 | let loc = Location.ghost in - 415 | let mS = asToMs aS in - 416 | Comp.TypBase (loc, cid, mS) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Box (_, _, _)|Implies ((_, _), _)|Forall (_, _)) - File "src/core/logic.ml", lines 434-443, characters 4-10: - 434 | ....match tA with - 435 | | LF.Atom _ -> - 436 | let u = LF.Inst (Whnf.newMMVar None (cD, cPsi, LF.TClo (tA, s)) Plicity.implicit Inductivity.not_inductive) in - 437 | LF.Root (Location.ghost, LF.MVar (u, S.id), LF.Nil, Plicity.explicit) - 438 | | LF.PiTyp ((LF.TypDecl (x, tA) as tD, _, _), tB) -> - 439 | LF.Lam - 440 | ( Location.ghost - 441 | , x - 442 | , etaExpand cD (LF.DDec (cPsi, S.decSub tD s)) (tB, S.dot1 s) - 443 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/logic.ml", lines 462-470, characters 4-68: - 462 | ....match eV with - 463 | | LF.DDec (eV', LF.TypDecl (_, tA)) -> - 464 | let (s', fS') = dctxToSub cD cPsi (eV', s) fS in - 465 | let tM' = etaExpand cD cPsi (tA, s') in - 466 | (LF.Dot (LF.Obj tM', s'), (fun tS -> fS' (LF.App (tM', tS)))) - 467 | | LF.Null -> (s, fS) - 468 | | LF.CtxVar _ -> - 469 | invalid_arg - 470 | "Logic.Convert.dctxToSub: Match conflict with LF.CtxVar _." - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/logic.ml", lines 475-481, characters 4-28: - 475 | ....match eV with - 476 | | LF.DDec (eV', LF.TypDecl (_, tA)) -> - 477 | let (s', fS') = dctxToSub' cD cPsi (eV', s) fS in - 478 | let tM' = etaExpand cD cPsi (tA, s') in - 479 | (LF.Dot (LF.Obj tM', s'), (fun tS -> fS' (LF.App (tM', tS)))) - 480 | | LF.Null -> (s, fS) - 481 | | LF.CtxVar _ -> (s, fS) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/logic.ml", lines 500-501, characters 6-52: - 500 | ......match lst with - 501 | | (cPsi, k) :: lst' -> (shift lst' (-1), cPsi) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 510-513, characters 6-20: - 510 | ......match dctx with - 511 | | LF.DDec (dctx', _) -> find_ctxvar_offset dctx' - 512 | | LF.CtxVar (LF.CtxOffset k) -> k - 513 | | LF.Null -> 0 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar (CtxName _|CInst _) - File "src/core/logic.ml", lines 697-709, characters 9-47: - 697 | .........(match mtyp with - 698 | | LF.ClTyp (LF.MTyp _, _) -> - 699 | let mmV = Whnf.newMMVar' (Some x) (LF.Empty, mtyp) plicity inductivity in - 700 | let mfront = Whnf.mmVarToMFront loc mmV mtyp in - 701 | comptypToMQuery' (tau', i-1) (LF.MDot (mfront, ms)) - ... - 706 | comptypToMQuery' (tau', i-1) (LF.MDot (mfront, ms)) - 707 | ((x, (loc, mfront)) :: xs) - 708 | | LF.CTyp cid_opt -> - 709 | comptypToMQuery' (tau', i-1) ms xs) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (STyp (_, _), _) - File "src/core/logic.ml", lines 696-709, characters 9-47: - 696 | .........let LF.Decl { name = x; typ = mtyp; plicity; inductivity } = mdecl in - 697 | (match mtyp with - 698 | | LF.ClTyp (LF.MTyp _, _) -> - 699 | let mmV = Whnf.newMMVar' (Some x) (LF.Empty, mtyp) plicity inductivity in - 700 | let mfront = Whnf.mmVarToMFront loc mmV mtyp in - ... - 706 | comptypToMQuery' (tau', i-1) (LF.MDot (mfront, ms)) - 707 | ((x, (loc, mfront)) :: xs) - 708 | | LF.CTyp cid_opt -> - 709 | comptypToMQuery' (tau', i-1) ms xs) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/logic.ml", lines 1084-1094, characters 4-72: - 1084 | ....match r with - 1085 | | Head tH -> - 1086 | fmt_ppr_typ cD cPsi ppf (tH, s) - 1087 | | And (g, r') -> - 1088 | fprintf ppf "%a -> %a" - ... - 1091 | | Exists (LF.TypDecl (_, _tA) as tD, r') -> - 1092 | fprintf ppf "(∃%a. %a)" - 1093 | (fmt_ppr_decl cD cPsi) (tD, s) - 1094 | (fmt_ppr_res cD (LF.DDec (cPsi, S.decSub tD s))) (r', S.dot1 s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Exists (TypDeclOpt _, _) - File "src/core/logic.ml", lines 1305-1332, characters 4-19: - 1305 | ....match s with - 1306 | | LF.Shift _ -> true - 1307 | | LF.Dot (LF.Head (((LF.MMVar ((mmvar, ms'), s)) as hd)), s') -> - 1308 | if uninstantiated hd then false - 1309 | else check_sub s' - ... - 1329 | if uninstantiated hd then false - 1330 | else check_sub s' - 1331 | | LF.Dot (_, s') -> - 1332 | check_sub s' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub|Undefs|SVar (_, _, _)|FSVar (_, _)|MSVar (_, _)) - File "src/core/logic.ml", lines 1337-1339, characters 6-48: - 1337 | ......match cD with - 1338 | | LF.Dec (_, LF.Decl d) when k = 1 -> d.plicity - 1339 | | LF.Dec (cD', _) -> get_plicity cD' (k-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Empty - File "src/core/logic.ml", lines 1394-1412, characters 4-30: - 1394 | ....match g with - 1395 | | Atom tA -> - 1396 | matchAtom dPool cD (cPsi, k) (tA, s) sc (currDepth, maxDepth) - 1397 | - 1398 | | Impl ((r, (LF.TypDecl (x, _) as tD)), g') -> - ... - 1409 | So we just prove the conclusion in an extended context. *) - 1410 | gSolve dPool cD (LF.DDec (cPsi, S.decSub tD s), k + 1) (g', S.dot1 s) - 1411 | (fun (u, tM) -> sc (u, LF.Lam (Location.ghost, x, tM))) - 1412 | (currDepth, maxDepth) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Impl ((_, TypDeclOpt _), _) - File "src/core/logic.ml", lines 1444-1446, characters 17-29: - 1444 | .................match cltyp with - 1445 | | LF.MTyp tau -> tau - 1446 | | LF.PTyp tau -> tau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 1439-1483, characters 4-96: - 1439 | ....match cD with - 1440 | | LF.Empty -> raise NoSolution - 1441 | | LF.Dec (cD', LF.Decl { typ = LF.CTyp _ ; _}) -> - 1442 | solve_sub_delta (cD_all, cD', k+1, cPhi, dPool) (tA, s, curr_sub) (u, s_all) (goal, s_goal) - 1443 | | LF.Dec (cD', LF.Decl { typ = LF.ClTyp (cltyp, cPsi); plicity; _ }) -> - ... - 1480 | end - 1481 | with - 1482 | | U.Failure _ -> - 1483 | solve_sub_delta (cD_all, cD', k+1, cPhi, dPool) (tA, s, curr_sub) (u, s_all) (goal, s_goal) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/logic.ml", lines 1496-1600, characters 4-76: - 1496 | ....match s with - 1497 | | LF.Shift _ -> - 1498 | dprintf begin fun p -> - 1499 | p.fmt "[trivially_prove] s_all = %a" - 1500 | (P.fmt_ppr_lf_sub cD cPhi P.l0) s_all - ... - 1597 | with - 1598 | | U.Failure _ | NoSolution -> raise NoSolution) - 1599 | | LF.Dot (_, s') -> - 1600 | trivially_prove s' s_all cD (goal, cPhi, s_goal) dPool u (curr_sub+1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub|Undefs|SVar (_, _, _)|FSVar (_, _)|MSVar (_, _)) - File "src/core/logic.ml", lines 2260-2263, characters 4-25: - 2260 | ....match cG with - 2261 | | LF.Dec (cG', Comp.CTypDecl (name, _, _)) when k = 1 -> name - 2262 | | LF.Dec (cG', Comp.CTypDecl (name, _, _)) -> - 2263 | get_name (k-1) cG' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/logic.ml", lines 2337-2340, characters 4-21: - 2337 | ....match cdecl with - 2338 | | Comp.CTypDecl (_, tau, _) -> - 2339 | let cc = {cHead = tau; cMVars = LF.Empty; cSubGoals = Proved} in - 2340 | (cc, k, Boxed) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/logic.ml", lines 2416-2417, characters 9-57: - 2416 | .........let (Full (Emp, cc')) = cnormCPool (Full (Emp, cc), ms) in - 2417 | update cP' cG' (prependToCPool cc' cP_ret) (k+1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Full (Full (_, (_, _, _)), (_, _, _)) - File "src/core/logic.ml", lines 2407-2418, characters 6-33: - 2407 | ......match (cP, cG) with - 2408 | | (Emp, LF.Dec(cG', cdecl)) -> - 2409 | let cc = decToCC cdecl 1 in - 2410 | let cP_ret' = shift_cPool cP_ret 1 in - 2411 | update cP cG' (prependToCPool cc cP_ret') (k+1) - ... - 2415 | if pos' = k then unbox cc else cc in - 2416 | let (Full (Emp, cc')) = cnormCPool (Full (Emp, cc), ms) in - 2417 | update cP' cG' (prependToCPool cc' cP_ret) (k+1) - 2418 | | (Emp, LF.Empty) -> cP_ret - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Full (_, _), Empty) - File "src/core/logic.ml", lines 2470-2476, characters 6-36: - 2470 | ......match tA with - 2471 | | LF.Atom (l, cid, sp) -> - 2472 | LF.Atom (l, cid, remove_sp sp) - 2473 | | LF.PiTyp ((td, depend, plicity), tA') -> - 2474 | LF.PiTyp ((td, depend, plicity), remove_typ tA) - 2475 | | LF.TClo (tA', s) -> - 2476 | LF.TClo (remove_typ tA', s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Sigma _ - File "src/core/logic.ml", lines 2495-2508, characters 6-49: - 2495 | ......match tau with - 2496 | | Comp.TypBase (l, cid, mS) -> - 2497 | Comp.TypBase (l, cid, remove_mS mS) - 2498 | | Comp.TypBox (l, mT) -> - 2499 | (match mT with - ... - 2505 | | Comp.TypArr (l, tau1, tau2) -> - 2506 | Comp.TypArr (l, remove_tau tau1, remove_tau tau2) - 2507 | | Comp.TypPiBox (l, cdec, tau') -> - 2508 | Comp.TypPiBox (l, cdec, remove_tau tau') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypCobase (_, _, _)|TypDef (_, _, _)|TypCross (_, _)|TypClo (_, _)|TypInd _) - File "src/core/logic.ml", lines 2731-2741, characters 9-52: - 2731 | .........let LF.ClTyp (LF.MTyp tA, cPsi) = mmvar.LF.typ in - 2732 | let mmvar' = - 2733 | Whnf.newMMVar None (mmvar.LF.cD, cPsi, tA) mmvar.LF.plicity - 2734 | mmvar.LF.inductivity in - 2735 | let norm = LF.Root (noLoc, - ... - 2738 | let mf = LF.ClObj (dctx_hat, LF.MObj norm) in - 2739 | let x = Comp.M ((noLoc, mf), mT) in - 2740 | let (xs, sub) = gen_new_ih_args lst' ys in - 2741 | (x :: xs, (mmvar.LF.mmvar_id, norm) :: sub) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/logic.ml", lines 2752-2762, characters 9-52: - 2752 | .........let LF.ClTyp (LF.MTyp tA, cPsi) = mmvar.LF.typ in - 2753 | let mmvar' = - 2754 | Whnf.newMMVar None (mmvar.LF.cD, cPsi, tA) mmvar.LF.plicity - 2755 | mmvar.LF.inductivity in - 2756 | let norm = LF.Root (noLoc, LF.MMVar - ... - 2759 | let mf = LF.ClObj (dctx_hat, LF.MObj norm) in - 2760 | let x = Comp.M ((noLoc, mf), mT) in - 2761 | let (xs, sub) = gen_new_ih_args lst' ys in - 2762 | (x :: xs, (mmvar.LF.mmvar_id, norm) :: sub) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/logic.ml", lines 2771-2779, characters 9-58: - 2771 | .........let LF.ClTyp (LF.PTyp tA, cPsi) = mmvar.LF.typ in - 2772 | let mmvar' = - 2773 | Whnf.newMPVar None (mmvar.LF.cD, cPsi, tA) mmvar.LF.plicity - 2774 | mmvar.LF.inductivity in - 2775 | let hd = LF.MPVar ((mmvar', LF.MShift 0), LF.Shift 0) in - 2776 | let mf = LF.ClObj (dctx_hat, LF.PObj hd) in - 2777 | let x = Comp.M ((noLoc, mf), mT) in - 2778 | let (xs, sub) = gen_new_ih_args lst' ys in - 2779 | (x :: xs, (mmvar.LF.mmvar_id, LF.head hd) :: sub) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((MTyp _|STyp (_, _)), _) - File "src/core/logic.ml", lines 2842-2843, characters 11-44: - 2842 | ...........let (LF.Root(_, hd',_,_)) = sub_norm (LF.head hd) sub in - 2843 | (loc, LF.ClObj (dh, LF.PObj hd')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)) - File "src/core/logic.ml", lines 2920-2921, characters 6-42: - 2920 | ......match i with - 2921 | | Comp.Var(l, k) -> Comp.Var(l, k+1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Fn (_, _, _)|Fun (_, _)|MLam (_, _, _, _)|Tuple (_, T (_, _, _))| - LetTuple (_, _, (T (_, _, _), _))|Let (_, _, (_, _))|Box (_, (_, _), _)| - Case (_, _, _, _)|Impossible (_, _)|Hole (_, _, _)|DataConst (_, _)| - Obs (_, _, _, _)|Const (_, _)|Apply (_, _, _)|MApp (_, _, (_, _), _, _)| - AnnBox (_, (_, _), _)) - File "src/core/logic.ml", lines 2977-2978, characters 6-37: - 2977 | ......match cltyp with - 2978 | | LF.MTyp tA | LF.PTyp tA -> tA - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 2998-3001, characters 6-58: - 2998 | ......match cG_a with - 2999 | | [] -> false - 3000 | | (Comp.CTypDecl (name2, _ ,_), _, _, _, _, _) :: cG_a' -> - 3001 | (Name.equal name name2) || (old_split name cG_a') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CTypDeclOpt _, _, _, _, _, _)::_ - File "src/core/logic.ml", lines 3005-3009, characters 6-37: - 3005 | ......match cG_a with - 3006 | | (Comp.CTypDecl (name2, _ ,_), _, con, _, thm, bool) :: cG_a' - 3007 | when Name.equal name name2 -> - 3008 | (con, thm, bool) - 3009 | | x :: xs -> find_split name xs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 3013-3065, characters 6-30: - 3013 | ......match (cG, cPool) with - 3014 | | (LF.Dec(cG', - 3015 | ((Comp.CTypDecl (name, Comp.TypBox - 3016 | (_, LF.ClTyp (cltyp, cPsi)), _wf)) - 3017 | as cdecl)), - ... - 3062 | | (LF.Dec (cG', _), Full (cPool', _)) -> - 3063 | update (cG', cPool', ret) - 3064 | - 3065 | | (LF.Empty, Emp) -> ret - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Dec (_, _), Emp) - File "src/core/logic.ml", lines 3084-3087, characters 6-38: - 3084 | ......match cD_a with - 3085 | | (LF.Decl d, Option.Some _, _, _, _, _) as x :: cD_a' - 3086 | when Name.equal d.name n -> x - 3087 | | _ :: cD_a' -> retrieve n cD_a' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 3103-3108, characters 21-41: - 3103 | .....................match cltyp with - 3104 | | LF.MTyp tA -> - 3105 | LF.MObj (LF.Root (noLoc, LF.MVar (LF.Offset 1, S.id), - 3106 | LF.Nil, Plicity.explicit)) - 3107 | | LF.PTyp tA -> - 3108 | LF.PObj (LF.PVar (1, S.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 3094-3118, characters 9-31: - 3094 | .........let (LF.Decl { typ = tau2; _ }, _, con, pos, thm, bool) = - 3095 | retrieve name cD_a in - 3096 | let (con', bool') = - 3097 | if bool then - 3098 | try - ... - 3115 | let tdecl' = Whnf.cnormCDecl (tdecl, LF.MShift 1) in - 3116 | let x = (tdecl', Some i, con', 1, thm, bool') in - 3117 | let ret' = shift_cD_a ret in - 3118 | update cD' (x :: ret') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (DeclOpt _, _, _, _, _, _) - File "src/core/logic.ml", lines 3126-3131, characters 21-41: - 3126 | .....................match cltyp with - 3127 | | LF.MTyp tA -> - 3128 | LF.MObj (LF.Root (noLoc, LF.MVar (LF.Offset 1, S.id), - 3129 | LF.Nil, Plicity.explicit)) - 3130 | | LF.PTyp tA -> - 3131 | LF.PObj (LF.PVar (1, S.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 3090-3157, characters 6-23: - 3090 | ......match cD with - 3091 | | LF.Dec (cD', ((LF.Decl { name; typ = ((LF.ClTyp (cltyp, cPsi)) as ctyp) - 3092 | ; plicity = Plicity.Explicit; _ }) as tdecl)) - 3093 | when is_in name cD_a -> - 3094 | let (LF.Decl { typ = tau2; _ }, _, con, pos, thm, bool) = - ... - 3154 | let x = (tdecl', None, con, 1, None, bool) in - 3155 | let ret' = shift_cD_a ret in - 3156 | update cD' (x :: ret') - 3157 | | LF.Empty -> ret - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/logic.ml", lines 3243-3251, characters 6-44: - 3243 | ......match cG_a with - 3244 | | (Comp.CTypDecl (n, tau, _wf), Some i, no, k, thm_var, true) :: cG_a' - 3245 | when Name.equal name n -> - 3246 | (tau, i, thm_var, - 3247 | (Comp.CTypDecl (n, tau, _wf), Some i, no, k, thm_var, false) - 3248 | :: cG_a', k) - 3249 | | x :: cG_a' -> - 3250 | let (tau, i, thm_var, cG_a'', pos) = remove_var name cG_a' in - 3251 | (tau, i, thm_var, x :: cG_a'', pos) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 3256-3264, characters 6-39: - 3256 | ......match cD_a with - 3257 | | (LF.Decl d, Option.Some i, no, k, thm_var, true) - 3258 | :: cD_a' when Name.equal name d.name -> - 3259 | let tau = Comp.TypBox(noLoc, d.typ) in - 3260 | (tau, i, thm_var, (LF.Decl d, Option.some i, no, k, thm_var, false) - 3261 | :: cD_a') - 3262 | | x :: cD_a' -> - 3263 | let (tau, i, thm_var, cD_a'') = remove_mvar name cD_a' in - 3264 | (tau, i, thm_var, x :: cD_a'') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 3330-3332, characters 9-42: - 3330 | .........let (Some n) = find_mvar k cD_a in - 3331 | let (tau, i, thm_var, cD_a') = remove_mvar n cD_a in - 3332 | (tau, i, thm_var, cD_a', cG_a, 0). - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 3358-3365, characters 8-50: - 3358 | ........match cG_a with - 3359 | | (((Comp.CTypDecl (name2, _ ,_)) as cdecl), _, con, _, thm, bool) - 3360 | :: cG_a' when Name.equal name name2 -> - 3361 | (cdecl, con, thm, bool, cG_a') - 3362 | | x :: xs -> - 3363 | let (tdecl, num, thm_var, bool, cG_a') = - 3364 | remove xs in - 3365 | (tdecl, num, thm_var, bool, x :: cG_a') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 3374-3399, characters 7-25: - 3374 | .......(match cltyp with - 3375 | | LF.MTyp tA -> - 3376 | let tdecl' = LF.Decl { name; typ = ctyp; plicity = Plicity.explicit; inductivity = Inductivity.not_inductive } in - 3377 | let norm = - 3378 | LF.Root (noLoc, LF.MVar (LF.Offset 1, S.id), LF.Nil, Plicity.explicit) in - ... - 3396 | let i = Comp.AnnBox(noLoc, mobj, ctyp) in - 3397 | let cD_a' = (tdecl', Some i, num_con, 1, thm_var, bool) - 3398 | :: (shift_cD_a cD_a) in - 3399 | (cD_a', cG_a')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 3403-3428, characters 7-25: - 3403 | .......(match cltyp with - 3404 | | LF.MTyp _ -> - 3405 | let tdecl' = LF.Decl { name; typ = ctyp; plicity = Plicity.explicit; inductivity = Inductivity.inductive } in - 3406 | let norm = - 3407 | LF.Root (noLoc, LF.MVar (LF.Offset 1, S.id), LF.Nil, Plicity.explicit) in - ... - 3425 | let i = Comp.AnnBox(noLoc, mobj, ctyp) in - 3426 | let cD_a' = (tdecl', Some i, num_con, 1, thm_var, bool) - 3427 | :: (shift_cD_a cD_a) in - 3428 | (cD_a', cG_a')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 3489-3525, characters 7-31: - 3489 | .......(match cltyp with - 3490 | | LF.MTyp _ -> - 3491 | let norm = - 3492 | LF.Root (noLoc, LF.MVar (LF.Offset 1, S.id), - 3493 | LF.Nil, plicity) in - ... - 3522 | | false -> None - 3523 | in - 3524 | (tdecl', Some i, consOfLFTyp cltyp, 1, thm_var, true) - 3525 | :: (shift_cD_a cD_a)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 3646-3651, characters 4-46: - 3646 | ....match cG with - 3647 | | LF.Empty -> cPool - 3648 | | LF.Dec (cG', Comp.CTypDecl (_, tau, _)) -> - 3649 | let clause = {cHead = tau; cMVars = LF.Empty; cSubGoals = Proved} in - 3650 | let cc = (clause, (lengthCPool cPool) + 1, Boxed) in - 3651 | gen_cPool cG' (prependToCPool cc cPool) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/logic.ml", lines 3898-3900, characters 6-46: - 3898 | ......match cD with - 3899 | | LF.Dec (_, LF.Decl { name; _ }) when k = 1 -> name - 3900 | | LF.Dec (cD', _) -> find_name cD' (k-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Empty - File "src/core/logic.ml", lines 4037-4047, characters 22-64: - 4037 | ......................match mobj with - 4038 | | LF.MObj (LF.Root (_, LF.MMVar ((mmvar, _), _), _, _)) - 4039 | | LF.MObj (LF.Root (_, LF.MPVar ((mmvar, _), _), _, _)) -> - 4040 | mmvar.LF.instantiation := - 4041 | Some (LF.INorm (LF.Root (noLoc, - ... - 4044 | | LF.PObj LF.MPVar ((mmvar, _), _) - 4045 | | LF.PObj LF.MMVar ((mmvar, _), _) -> - 4046 | mmvar.LF.instantiation := - 4047 | Some (LF.IHead (LF.MVar (LF.Offset k, LF.Shift 0))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MObj - (Root - (_, - (BVar _|Const _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)), _, _)) - File "src/core/logic.ml", lines 4051-4057, characters 6-26: - 4051 | ......match ih_args with - 4052 | | (Comp.M ((_, LF.ClObj (_, ((LF.PObj hd) as mobj))), _)) :: xs -> - 4053 | if Solver.uninstantiated hd then mobj else grab xs - 4054 | | (Comp.M ((_, LF.ClObj (_, ((LF.MObj (LF.Root (_,hd,_,_))) as mobj))), _)) - 4055 | :: xs-> - 4056 | if Solver.uninstantiated hd then mobj else grab xs - 4057 | | _ :: xs -> grab xs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 4060-4064, characters 14-56: - 4060 | ..............match mobj with - 4061 | | LF.MObj (LF.Root (_, LF.MMVar ((mmvar, _), _), _, _)) - 4062 | | LF.MObj (LF.Root (_, LF.MPVar ((mmvar, _), _), _, _)) - 4063 | | LF.PObj LF.MPVar ((mmvar, _), _) - 4064 | | LF.PObj LF.MMVar ((mmvar, _), _) -> mmvar.LF.typ... - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MObj - (Root - (_, - (BVar _|Const _|MVar (_, _)|PVar (_, _)|AnnH (_, _)|Proj (_, _)| - FVar _|FMVar (_, _)|FPVar (_, _)|HClo (_, _, _)| - HMClo (_, (({instantiation=_; constraints=_; _ }, _), _))), _, _)) - File "src/core/logic.ml", lines 4079-4090, characters 6-88: - 4079 | ......let Some cid = thm_cid in - 4080 | let i = Comp.Const(noLoc, cid) in - 4081 | let sc' = (fun e -> sc (Comp.Case (noLoc, - 4082 | Comp.PragmaNotCase, - 4083 | Whnf.cnormExp (fS i, LF.MShift 0), - ... - 4087 | pattern, - 4088 | LF.MShift 0, - 4089 | e)]))) in - 4090 | find_all_occurances dec (cG', cPool', cG_a') sc' cD thm_cid thm lst' cIH' cIH_all' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 4126-4128, characters 21-40: - 4126 | .....................match (currDepth, maxDepth) with - 4127 | | (Some k, None) -> (k, 0) - 4128 | | (Some k1, Some k2) -> (k1, k2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (None, _) - File "src/core/logic.ml", lines 4290-4311, characters 9-83: - 4290 | .........let Some cid = thm_cid in - 4291 | let i = arg_builder (Comp.Const(noLoc, cid)) in - 4292 | let (ms', fS) = - 4293 | C.mctxToMSub cD (cMVars, LF.MShift 0) (fun s -> s) in - 4294 | let ms'' = rev_ms ms' 0 in - ... - 4308 | with - 4309 | | U.Failure _ | DepthReached _ | End_Of_Search -> - 4310 | focusIH (cD, cD_a) (cG, cPool, cG_a) (cIH', cIH_all) cg ms sc - 4311 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) (thm, td, thm_cid)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 4595-4597, characters 6-57: - 4595 | ......match cG with - 4596 | | LF.Dec (_, Comp.CTypDecl (_, tau, _)) when k = 1 -> tau - 4597 | | LF.Dec (cG', _) -> find_comp_assumption cG' (k-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Empty - File "src/core/logic.ml", lines 4895-4905, characters 10-31: - 4895 | ..........let [(cD, cD_b, cD_a, cG, cG_p, cG_a, cIH_b, cPool, - 4896 | ms_b, pat, td_b, cid)] = blist in - 4897 | - 4898 | invert_all (cD, cD_a) (cG, cPool, cG_a) cIH_b - 4899 | (normCompGoal (cg, ms)) ms_b - ... - 4902 | [Comp.Branch(noLoc, LF.Empty, (cD, cG), pat, - 4903 | ms_b, e)]))) - 4904 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 4905 | (ind, thm, td, cid) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, _, _, _, _, _, _, _, _, _, _, _)::(_, _, _, _, _, _, _, _, _, _, _, _)::_ - File "src/core/logic.ml", lines 4976-5015, characters 7-35: - 4976 | .......let Atom tA = g' in - 4977 | let cltyp = LF.MTyp tA in - 4978 | let sc' = - 4979 | (fun (cPsi', tM) -> - 4980 | let dctx_hat = Context.dctxToHat cPsi' in - ... - 5012 | split (cD, cD_a) (cG, cPool, cG_a) cIH cg ms sc - 5013 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 5014 | (ind, thm, td, thm_cid); - 5015 | raise End_Of_Search) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Impl ((_, _), _)|All (_, _)) - File "src/core/logic.ml", lines 4975-5015, characters 7-35: - 4975 | .......let Box(cPsi',g',_) = cg' in - 4976 | let Atom tA = g' in - 4977 | let cltyp = LF.MTyp tA in - 4978 | let sc' = - 4979 | (fun (cPsi', tM) -> - ... - 5012 | split (cD, cD_a) (cG, cPool, cG_a) cIH cg ms sc - 5013 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 5014 | (ind, thm, td, thm_cid); - 5015 | raise End_Of_Search) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Implies ((_, _), _)|Forall (_, _)|Atomic (_, _)) - File "src/core/logic.ml", lines 5024-5029, characters 11-51: - 5024 | ...........let LF.Root (_,hd,_,_) = tM in - 5025 | let dctx_hat = Context.dctxToHat cPsi' in - 5026 | let mfront = LF.ClObj (dctx_hat, LF.PObj hd) in - 5027 | let meta_obj = (noLoc, mfront) in - 5028 | let meta_typ = LF.ClTyp (cltyp, cPsi') in - 5029 | sc (Comp.Box(noLoc, meta_obj, meta_typ)). - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)) - File "src/core/logic.ml", lines 5020-5060, characters 7-34: - 5020 | .......let Atom tA = g' in - 5021 | let cltyp = LF.PTyp tA in - 5022 | let sc' = - 5023 | (fun (cPsi', tM) -> - 5024 | let LF.Root (_,hd,_,_) = tM in - ... - 5057 | split (cD, cD_a) (cG, cPool, cG_a) cIH cg ms sc - 5058 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 5059 | (ind, thm, td, thm_cid); - 5060 | raise End_Of_Search) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Impl ((_, _), _)|All (_, _)) - File "src/core/logic.ml", lines 5019-5060, characters 7-34: - 5019 | .......let Box(_,g',_) = cg' in - 5020 | let Atom tA = g' in - 5021 | let cltyp = LF.PTyp tA in - 5022 | let sc' = - 5023 | (fun (cPsi', tM) -> - ... - 5057 | split (cD, cD_a) (cG, cPool, cG_a) cIH cg ms sc - 5058 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 5059 | (ind, thm, td, thm_cid); - 5060 | raise End_Of_Search) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Implies ((_, _), _)|Forall (_, _)|Atomic (_, _)) - File "src/core/logic.ml", lines 4969-5085, characters 4-30: - 4969 | ....match cg with - 4970 | | Box (cPsi, g, Some M) -> - 4971 | (* We apply the msub here in case there are FREE MVARS that - 4972 | appear from unify *) - 4973 | let ms = Whnf.cnormMSub ms in - ... - 5082 | split (cD, cD_a) (cG, cPool, cG_a) cIH cg ms sc - 5083 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 5084 | (ind, thm, td, thm_cid); - 5085 | raise End_Of_Search - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Box (_, _, None) - File "src/core/logic.ml", lines 5223-5246, characters 7-36: - 5223 | .......let Some cid = thm_cid in - 5224 | let cIH_all' = Total.shift cIH_all in - 5225 | let cIH'' = Total.shift cIH' in - 5226 | let i = Comp.Const(noLoc, cid) in - 5227 | (try - ... - 5243 | | End_Of_Search | DepthReached _ -> - 5244 | blurIH (cD, cD_a) (cG, cPool, cG_a) (cIH', cIH_all) cg ms sc - 5245 | (cDepth, mDepth, currSplitDepth, maxSplitDepth) - 5246 | (ind, thm, td, thm_cid)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5263-5286, characters 7-32: - 5263 | .......let Some cid = thm_cid in - 5264 | let i = Comp.Const(noLoc, cid) in - 5265 | let cIH'' = Total.shift cIH' in - 5266 | let cIH_all' = Total.shift cIH_all in - 5267 | let exp = Whnf.cnormExp (fS i, LF.MShift 0) in - ... - 5283 | in - 5284 | blurIH (cD, cD_a) (cG', cPool', cG_a') (cIH'', cIH_all') cg ms sc' - 5285 | (cDepth, mDepth, currSplitDepth, maxSplitDepth) - 5286 | (ind, thm, td, thm_cid) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5393-5394, characters 6-46: - 5393 | ......match cp with - 5394 | | (_cc, _k, Boxed) -> (_cc, _k, Unboxed) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, _, Unboxed) - File "src/core/logic.ml", lines 5441-5458, characters 10-49: - 5441 | ..........match r with - 5442 | | LF.ClTyp (LF.MTyp _, cPsi) -> - 5443 | let tM = - 5444 | LF.Root - 5445 | ( noLoc - ... - 5455 | LF.ClObj (Context.dctxToHat (Whnf.cnormDCtx (cPsi, LF.MShift 1)), - 5456 | LF.PObj hd) - 5457 | | LF.CTyp _ -> - 5458 | LF.CObj (LF.CtxVar (LF.CtxOffset 1)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (STyp (_, _), _) - File "src/core/logic.ml", lines 5549-5554, characters 7-37: - 5549 | .......let Comp.CTypDecl (name, _, _) = tdecl in - 5550 | let sc' = (fun e -> sc (Comp.Fn (noLoc, name, e))) in - 5551 | let cIH' = Total.shift cIH in - 5552 | uniform_right (cD, cD_a) (cG', cPool', cG_a') cIH' cg' ms sc' - 5553 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) (k+1) - 5554 | (ind, thm, td, thm_cid) blur - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/logic.ml", lines 5587-5590, characters 24-19: - 5587 | ........................match sp with - 5588 | | 0 -> Some 0 (* No splitting. *) - 5589 | | 1 -> None (* Only inversions. *) - 5590 | | 2 -> Some 1........................ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - 3 - File "src/core/logic.ml", lines 5795-5798, characters 9-40: - 5795 | .........let Some iterm = !(mmvar.LF.instantiation) in - 5796 | (match iterm with - 5797 | | LF.IHead hd -> hd - 5798 | | _ -> raise NotImplementedYet) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5800-5803, characters 9-40: - 5800 | .........let Some iterm = !(mmvar.LF.instantiation) in - 5801 | (match iterm with - 5802 | | LF.IHead hd -> hd - 5803 | | _ -> raise NotImplementedYet) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5805-5808, characters 9-40: - 5805 | .........let Some iterm = !(mmvar.LF.instantiation) in - 5806 | (match iterm with - 5807 | | LF.IHead hd -> hd - 5808 | | _ -> raise NotImplementedYet) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5834-5835, characters 11-16: - 5834 | ...........let Some iterm = !(mmvar.LF.instantiation) in - 5835 | iterm - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5837-5838, characters 11-16: - 5837 | ...........let Some iterm = !(mmvar.LF.instantiation) in - 5838 | iterm - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5840-5841, characters 11-16: - 5840 | ...........let Some iterm = !(mmvar.LF.instantiation) in - 5841 | iterm - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5847-5849, characters 9-33: - 5847 | .........(match remove_head_mvars hd with - 5848 | | LF.IHead hd -> LF.Root (l, hd, remove_spine_mvars spine, p) - 5849 | | LF.INorm norm -> norm) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ISub _|ICtx _) - File "src/core/logic.ml", lines 6066-6076, characters 8-33: - 6066 | ........match tau with - 6067 | | Comp.TypPiBox (_, LF.Decl { inductivity = Inductivity.Inductive; _ }, _) -> Option.some n - 6068 | | Comp.TypPiBox (_, _, tau') -> ind_index tau' (n + 1) - 6069 | | Comp.TypInd (_) -> Option.some n - 6070 | | Comp.TypBox (_, _) -> Option.none - ... - 6073 | let ind = ind_index tau1 n in - 6074 | match ind with - 6075 | | Option.None -> ind_index tau2 (n + 1) - 6076 | | Option.Some _ -> ind - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypCobase (_, _, _)|TypDef (_, _, _)|TypCross (_, _)|TypClo (_, _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/harpoon/.harpoon.objs/byte -I /home/opam/.opam/4.14.1/lib/dune-build-info -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/linenoise -I /home/opam/.opam/4.14.1/lib/sedlex -I src/core/.beluga.objs/byte -I src/optparser/.optparser.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Harpoon -o src/harpoon/.harpoon.objs/byte/harpoon__Translate.cmo -c -impl src/harpoon/translate.ml) - File "src/harpoon/translate.ml", lines 25-26, characters 5-58: - 25 | .....let LF.Dec (cG', Comp.CTypDecl (x, _, _)) = cG' in - 26 | (cD', cG', fun e -> Comp.Fn (Location.ghost, x, f e)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/harpoon/translate.ml", lines 29-33, characters 5-6: - 29 | .....let LF.Dec (cD', LF.Decl { name = x; plicity; _ }) = cD' in - 30 | ( cD' - 31 | , cG' - 32 | , fun e -> Comp.MLam (Location.ghost, x, f e, plicity) - 33 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/harpoon/translate.ml", lines 56-68, characters 10-40: - 56 | ..........match cU with - 57 | | (ClTyp ( (MTyp _ | PTyp _), cPsi )) -> - 58 | let tM = - 59 | Root - 60 | ( Location.ghost - ... - 65 | in - 66 | ClObj (Context.dctxToHat (Whnf.cnormDCtx (cPsi, t)), MObj tM) - 67 | | CTyp _ -> - 68 | CObj (CtxVar (CtxOffset 1)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (STyp (_, _), _) - File "src/harpoon/translate.ml", lines 131-149, characters 5-8: - 131 | .....let (cD', cG', LF.Empty, tau', t) = - 132 | Check.Comp.unroll cD cG LF.Empty tau - 133 | in - 134 | (* cD' |- t : cD - 135 | is a weakening meta-substitution *) - ... - 146 | P.(fmt_ppr_cmp_gctx cD_orig l0) cG_orig - 147 | end; - 148 | assert (Whnf.convMCtx cD_orig cD && Whnf.convGCtx (cG_orig, Whnf.m_id) (cG, t)); - 149 | f e - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, _, Dec (_, WfRec (_, _, _)), _, _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/harpoon/.harpoon.objs/byte -I /home/opam/.opam/4.14.1/lib/dune-build-info -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/linenoise -I /home/opam/.opam/4.14.1/lib/sedlex -I src/core/.beluga.objs/byte -I src/optparser/.optparser.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Harpoon -o src/harpoon/.harpoon.objs/byte/harpoon__Automation.cmo -c -impl src/harpoon/automation.ml) - File "src/harpoon/automation.ml", lines 107-115, characters 7-10: - 107 | .......let LF.ClTyp (_, cPsi) as cU = Whnf.cnormMTyp (cU, t) in - 108 | let head = MVar (Offset idx, S.LF.id) in - 109 | let clobj = MObj (Root (Location.ghost, head, Nil, Plicity.explicit)) in - 110 | let psi_hat = Context.dctxToHat cPsi in - 111 | Box - 112 | ( Location.ghost - 113 | , (Location.ghost, ClObj (psi_hat, clobj)) - 114 | , cU - 115 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlc.opt -w -40 -g -bin-annot -I src/harpoon/.harpoon.objs/byte -I /home/opam/.opam/4.14.1/lib/dune-build-info -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/linenoise -I /home/opam/.opam/4.14.1/lib/sedlex -I src/core/.beluga.objs/byte -I src/optparser/.optparser.objs/byte -I src/parser/.beluga_parser.objs/byte -I src/support/.support.objs/byte -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/synext/.synext.objs/byte -I src/syntax/synint/.synint.objs/byte -intf-suffix .ml -no-alias-deps -open Harpoon -o src/harpoon/.harpoon.objs/byte/harpoon__Tactic.cmo -c -impl src/harpoon/tactic.ml) - File "src/harpoon/tactic.ml", lines 227-231, characters 7-55: - 227 | .......match cG with - 228 | | LF.Dec (cG', Comp.CTypDecl (n, tA, _)) when k == 1 -> - 229 | LF.Dec (cG', Comp.CTypDecl (n, tA, false)) - 230 | | LF.Dec (cG', decl) -> - 231 | LF.Dec (unmark_inductive_var cG' (k-1), decl) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Empty - File "src/harpoon/tactic.ml", lines 453-468, characters 12-72: - 453 | ............let LF.(MObj (Root (_, h, _, _))) = tM in - 454 | match h with - 455 | | LF.PVar (n, s) -> `pvar None - 456 | | LF.(Proj (PVar (n, s), k)) -> `pvar (Some k) - 457 | | LF.Const cid -> `ctor cid - ... - 465 | P.(fmt_ppr_cmp_pattern cD cG l0) pat - 466 | end; - 467 | Error.raise_violation - 468 | "[make_meta_branch] head neither pvar (proj) nor const" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MObj (Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Erase.cmx -c -impl src/core/erase.ml) - File "src/core/erase.ml", lines 6-19, characters 2-33: - 6 | ..match (tau, n) with - 7 | | (_, 0) -> 0 - 8 | | (TypArr (_, _, tau), n) -> 1 + numeric_order_arg tau (n - 1) - 9 | | (TypPiBox (_, LF.Decl { inductivity = Inductivity.Inductive; _ }, tau), n) -> - 10 | (* We count [Inductive] as 1 instead of throwing an error because - ... - 16 | | (TypPiBox (_, LF.Decl { plicity = Plicity.Explicit; _ }, tau), n) -> - 17 | 1 + numeric_order_arg tau (n - 1) - 18 | | (TypPiBox (_, LF.Decl { plicity = Plicity.Implicit; _ }, tau), n) -> - 19 | numeric_order_arg tau (n - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypPiBox (_, DeclOpt _, _), 1) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Order.cmx -c -impl src/core/order.ml) - File "src/core/order.ml", lines 26-34, characters 2-23: - 26 | ..function - 27 | | I.Arg x -> Some [x] - 28 | | I.Lex xs -> - 29 | let f = - 30 | function - 31 | | I.Arg x -> Some x - 32 | | _ -> None (* We don't support nested lexicographic orders. *) - 33 | in - 34 | List.traverse f xs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Simul _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Substitution.cmx -c -impl src/core/substitution.ml) - File "src/core/substitution.ml", lines 105-124, characters 4-44: - 105 | ....match (n, s) with - 106 | | (_, Undefs) -> Undef - 107 | | (1, Dot (ft, _s)) -> ft - 108 | | (n, Dot (_ft, s)) -> bvarSub (n - 1) s - 109 | | (n, Shift k) -> Head (BVar (n + k)) - ... - 121 | Free BVar (n + k) ... -bp *) - 122 | Head (HClo (n + k, s, sigma)) - 123 | | (n, MSVar (k, ((s, t), sigma))) -> - 124 | Head (HMClo (n + k, ((s, t), sigma))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, (EmptySub|FSVar (_, _))) - File "src/core/substitution.ml", lines 156-159, characters 12-73: - 156 | ............function - 157 | | (Last u, 1) -> u - 158 | | (Cons (u, _), 1) -> u - 159 | | (Cons (u, tuple), n) -> nth (Dot (Obj u, s)) (tuple, n - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Last _, 0) - File "src/core/substitution.ml", lines 166-169, characters 12-73: - 166 | ............function - 167 | | (Last u, 1) -> u - 168 | | (Cons (u, _), 1) -> u - 169 | | (Cons (u, tuple), n) -> nth (Dot (Obj u, s)) (tuple, n - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Last _, 0) - File "src/core/substitution.ml", lines 147-194, characters 7-10: - 147 | .......begin match bvarSub n s with - 148 | | Head (BVar x) -> - 149 | Head (Proj (BVar x, k)) - 150 | - 151 | | Head (PVar _ as h) -> - ... - 191 | | Head (AnnH _ ) -> failwith "Found head that is AnnH" - 192 | | Head (MMVar _ ) -> failwith "Found head that is MMVar" - 193 | | Head _ -> failwith "Found head that is not a BVar or PVar" - 194 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/substitution.ml", lines 203-206, characters 12-73: - 203 | ............function - 204 | | (Last u, 1) -> (u, s) - 205 | | (Cons (u, _), 1) -> (u, s) - 206 | | (Cons (u, tuple), n) -> nth (Dot (Obj u, s)) (tuple, n - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Last _, 0) - File "src/core/substitution.ml", lines 197-210, characters 7-10: - 197 | .......begin match frontSub (Head h) s with - 198 | | Head h' -> - 199 | Head (Proj (h', k)) - 200 | - 201 | | Obj (Tuple (_, tuple)) -> - ... - 207 | in - 208 | (* Obj (Clo (nth s (tuple, k))) *) - 209 | Obj (Pair.fst (nth s (tuple, k))) - 210 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Obj (Lam (_, _, _)|Root (_, _, _, _)|LFHole (_, _, _)|Clo _) - File "src/core/substitution.ml", lines 213-214, characters 7-26: - 213 | .......let Head h' = frontSub (Head h) s in - 214 | Head (AnnH (h', a)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Undef|Obj _) - File "src/core/substitution.ml", lines 138-221, characters 4-35: - 138 | ....match ft with - 139 | | Head (HClo (n, s', sigma)) -> Head (HClo (n, s', comp sigma s)) - 140 | | Head (HMClo (n, ((s', theta), sigma))) -> Head (HMClo (n, ((s', theta), comp sigma s))) - 141 | | Head (BVar n) -> bvarSub n s - 142 | | Head (FVar _) -> ft - ... - 218 | | Obj u -> Obj (Clo (u, s)) - 219 | | Undef -> Undef - 220 | | Head (MMVar (n, s')) -> Head (MMVar (n, comp s' s)) - 221 | | Head (FPVar (_n, _s' )) -> ft - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head (MPVar _|FMVar _) - File "src/core/substitution.ml", line 263, characters 13-60: - 263 | let decSub (TypDecl (x, tA)) s = TypDecl (x, TClo (tA, s)) - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/substitution.ml", lines 292-300, characters 6-33: - 292 | ......match s with - 293 | | EmptySub -> None - 294 | | Undefs -> None - 295 | | Shift _ -> None - 296 | | Dot (Undef, s') -> lookup (n + 1) s' p - 297 | | Dot (Head (BVar k), s') -> - 298 | if k = p - 299 | then Some (Head (BVar n)) - 300 | else lookup (n + 1) s' p - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dot - (Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)), - _) - File "src/core/substitution.ml", lines 314-324, characters 6-37: - 314 | ......match s with - 315 | | EmptySub -> - 316 | invert'' maxoffset Undefs - 317 | | Undefs -> - 318 | invert'' maxoffset Undefs - ... - 321 | | Dot (Head (BVar k), s') -> - 322 | invert' (n + 1) s' (max k maxoffset) - 323 | | Dot (_, s') -> (* Is this really necessary? -ac *) - 324 | invert' (n + 1) s' maxoffset - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (SVar (_, _, _)|FSVar (_, _)|MSVar (_, _)) - File "src/core/substitution.ml", lines 335-350, characters 4-65: - 335 | ....match (s, cPsi) with - 336 | | (Shift _ (* 0 *), Null) -> - 337 | Null - 338 | | (Shift _, CtxVar psi) -> - 339 | CtxVar psi - ... - 347 | | (Dot (Undef, t), DDec (cPsi, _)) -> - 348 | strengthen t cPsi - 349 | | (Shift n, cPsi) -> - 350 | strengthen (Dot (Head (BVar (n + 1)), Shift (n + 1))) cPsi - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Dot (Head (BVar _), _), (Null|CtxVar _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Context.cmx -c -impl src/core/context.ml) - File "src/core/context.ml", lines 90-104, characters 4-24: - 90 | ....function - 91 | | (DDec (_, TypDecl (x, tA')), 1) -> - 92 | TypDecl (x, TClo (tA', Shift k)) - 93 | - 94 | | (DDec (cPsi', TypDecl _), k') -> - ... - 101 | ctxDec' (cPsi', k'-1) - 102 | - 103 | | (CtxVar (CInst ({instantiation = {contents = Some (ICtx cPsi)}; _}, _)), k) -> - 104 | ctxDec' (cPsi, k) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CtxVar - (CInst ({instantiation={contents=Some (INorm _|IHead _|ISub _)}; _ }, _)), - _) - File "src/core/context.ml", lines 124-134, characters 4-24: - 124 | ....function - 125 | | (DDec (_, TypDecl (x, Sigma tArec)), 1) -> - 126 | TypDecl (x, Sigma (sigmaShift tArec (Shift k))) - 127 | - 128 | | (DDec (cPsi', TypDecl (_, Sigma _)), k') -> - ... - 131 | | (DDec (cPsi', TypDecl _), k') -> - 132 | ctxDec' (cPsi', k' - 1) - 133 | | (CtxVar (CInst ({ instantiation = {contents = Some (ICtx cPhi) }; _ }, _)) , k) -> - 134 | ctxDec' (cPhi, k) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (DDec (_, TypDeclOpt _), _) - File "src/core/context.ml", lines 361-364, characters 2-49: - 361 | ..match (cPsi, k) with - 362 | | (DDec (_, TypDecl (x, _)), 1) -> x - 363 | | (DDec (_, TypDeclOpt x), 1) -> x - 364 | | (DDec (cPsi, _), k) -> getNameDCtx cPsi (k-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Null|CtxVar _), _) - File "src/core/context.ml", lines 367-371, characters 2-27: - 367 | ..match (cD, k) with - 368 | | (Dec (_, Decl { name = u; _ }), 1) -> u - 369 | | (Dec (_, DeclOpt { name = u; _ }), 1) -> u - 370 | | (Dec (cD, _), k) -> - 371 | getNameMCtx cD (k - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Empty, _) - File "src/core/context.ml", lines 374-377, characters 2-45: - 374 | ..match (cG, k) with - 375 | | (Dec (_, Comp.CTypDecl (x, _ , _)), 1) -> x - 376 | | (Dec (_, Comp.CTypDeclOpt x), 1) -> x - 377 | | (Dec (cG, _), k) -> getNameCtx cG (k - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Empty, _) - File "src/core/context.ml", lines 401-403, characters 4-58: - 401 | ....function - 402 | | CtxVar ctx_var -> DDec (CtxVar ctx_var, new_typ_decl) - 403 | | DDec (cPsi, concrete) -> DDec (inner cPsi, concrete) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Null - File "src/core/context.ml", lines 409-411, characters 4-58: - 409 | ....function - 410 | | CtxVar ctx_var -> Null - 411 | | DDec (cPsi, concrete) -> DDec (inner cPsi, concrete) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Null - File "src/core/context.ml", lines 436-439, characters 2-28: - 436 | ..match (cD, psi_offset) with - 437 | | (Dec (_, Decl { typ = CTyp (Some cid_schema); _ }), 1) -> cid_schema - 438 | | (Dec (cD, _) , i) -> - 439 | lookupSchema cD (i - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Empty, _) - File "src/core/context.ml", lines 446-453, characters 7-10: - 446 | .......begin match cvar with - 447 | | CtxName phi when Name.(psi = phi) -> (psi, schemaName) - 448 | | CtxName _ -> lookup cD (offset + 1) - 449 | | CtxOffset n -> - 450 | if n - offset = 1 - 451 | then (psi, schemaName) - 452 | else lookup cD (offset + 1) - 453 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CInst _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Store.cmx -c -impl src/core/store.ml) - File "src/core/store.ml", lines 212-217, characters 6-45: - 212 | ......function - 213 | | Int.LF.Atom(_, b, _) -> - 214 | List.iter (fun a -> addSubord a b) acc ; [b] - 215 | - 216 | | Int.LF.PiTyp((Int.LF.TypDecl(_, tA1), _, _), tA2) -> - 217 | inspect (acc @ (inspect [] tA1)) tA2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/store.ml", lines 222-226, characters 6-56: - 222 | ......function - 223 | | Int.LF.Typ -> - 224 | List.iter (fun a -> addSubord a cid_tp) acc - 225 | | Int.LF.PiKind((Int.LF.TypDecl(_, tA1), _, _), tK2) -> - 226 | inspectKind cid_tp (acc @ (inspect [] tA1)) tK2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiKind ((TypDeclOpt _, _, _), _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Whnf.cmx -c -impl src/core/whnf.ml) - File "src/core/whnf.ml", lines 36-39, characters 2-73: - 36 | ..match cPsi with - 37 | | Null -> tA - 38 | | DDec (cPsi', decl) -> - 39 | raiseType cPsi' (PiTyp ((decl, Depend.maybe, Plicity.implicit), tA)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar _ - File "src/core/whnf.ml", lines 133-148, characters 2-64: - 133 | ..match sA' with - 134 | | (PiTyp ((decl, _, _), tA'), s') -> - 135 | let (u', tM) = - 136 | lowerMVar' - 137 | (DDec (cPsi, LF.decSub decl s')) - ... - 145 | - 146 | | (Atom (loc, a, tS), s') -> - 147 | let u' = newMVar None (cPsi, Atom (loc, a, SClo (tS, s'))) plicity inductivity in - 148 | (u', Root (Location.ghost, MVar (u', LF.id), Nil, plicity)).................... - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _, _) - File "src/core/whnf.ml", lines 152-162, characters 2-25: - 152 | ..match (u, sA) with - 153 | | ( Inst { instantiation; typ = ClTyp (_, cPsi); plicity; inductivity; _ } - 154 | , (PiTyp _, _) - 155 | ) -> - 156 | let (u', tM) = lowerMVar' cPsi sA plicity inductivity in - ... - 159 | - 160 | | (_, (TClo (tA, s), s')) -> lowerMVar1 u (tA, LF.comp s s') - 161 | - 162 | | (_, (Atom _, _)) -> u - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Inst {typ=ClTyp (_, _); _ }, (Sigma _, _)) - File "src/core/whnf.ml", lines 319-329, characters 4-31: - 319 | ....match s with - 320 | | MShift _ -> None - 321 | | MDot (MUndef, t') -> lookup (n + 1) t' p - 322 | - 323 | | MDot (MV k, t') - ... - 326 | | MDot (ClObj (_, PObj (PVar (k, Shift 0))), t') -> - 327 | if k = p - 328 | then Some n - 329 | else lookup (n + 1) t' p - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MDot (CObj (CtxVar (CtxName _|CInst _)), _) - File "src/core/whnf.ml", lines 385-387, characters 7-59: - 385 | .......match normHead (h, sigma) with - 386 | | Head h' -> Root (loc, h', normSpine (tS, sigma), plicity) - 387 | | Obj tM -> reduce (tM, LF.id) (normSpine (tS, sigma)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/whnf.ml", lines 404-407, characters 5-8: - 404 | .....begin match normMMVar mmt with - 405 | | ResMM mmt' -> Head (HMClo (k, (mmt', normSub' (s, sigma)))) - 406 | | Result (ISub r) -> normFt' (normFt' (LF.bvarSub k r, s), sigma) - 407 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (INorm _|IHead _|ICtx _) - File "src/core/whnf.ml", lines 409-413, characters 5-8: - 409 | .....begin match normMMVar mmt with - 410 | (* The order in which we normalize mm, n, s, and sigma seems to matter..*) - 411 | | ResMM mmt' -> Head (MMVar (mmt', normSub' (s, sigma))) - 412 | | Result (INorm n) -> Obj (norm (norm (n, s), sigma)) - 413 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 415-419, characters 5-8: - 415 | .....begin match normMMVar mmt with - 416 | | ResMM mmt' -> Head (MPVar (mmt', normSub' (s, sigma))) - 417 | | Result (IHead h) -> normFt' (normHead (h, s), sigma) - 418 | | Result (INorm n) -> Obj (norm (norm (n, s), sigma)) - 419 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (ISub _|ICtx _) - File "src/core/whnf.ml", lines 422-425, characters 5-8: - 422 | .....begin match normMMVar (mm, MShift 0) with - 423 | | ResMM (mm', _) -> Head (MVar (Inst mm', normSub' (s, sigma))) - 424 | | Result (INorm n) -> Obj (norm (norm (n, s), sigma)) - 425 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 449-451, characters 2-32: - 449 | ..match ft with - 450 | | Head h -> normHead (h, s) - 451 | | Obj tM -> Obj (norm (tM, s)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/whnf.ml", lines 454-457, characters 2-37: - 454 | ..match tM with - 455 | | INorm n -> INorm (cnorm (n, mt)) - 456 | | IHead h -> IHead (cnormHead (h, mt)) - 457 | | ISub s -> ISub (cnormSub (s, mt)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ICtx _ - File "src/core/whnf.ml", lines 463-466, characters 5-8: - 463 | .....begin match normHead (h, s) with - 464 | | Obj tM -> MObj tM - 465 | | Head h' -> PObj h' - 466 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/whnf.ml", lines 470-473, characters 2-64: - 470 | ..match normFt' (ft, LF.id) with - 471 | | Head h -> Head (Proj (h, i)) - 472 | | Obj (Tuple (_, tM)) -> Obj (reduceTuple (tM, i)) - 473 | | Obj _ -> Error.raise_violation "[reduceTupleFt] not a tuple" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/whnf.ml", lines 476-479, characters 2-50: - 476 | ..function - 477 | | (Last tM, 1) -> tM - 478 | | (Cons (tM, _), 1) -> tM - 479 | | (Cons (_, rest), k) -> reduceTuple (rest, k-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Last _, 0) - File "src/core/whnf.ml", lines 507-521, characters 2-17: - 507 | ..function - 508 | | (LFHole (l, _, _), _) -> - 509 | raise (InvalidLFHole l) - 510 | - 511 | | (Root (loc, h, sp, plicity), spine) -> - ... - 518 | Lam (loc, n, tM') - 519 | - 520 | | (Clo sM, tS) -> - 521 | reduce sM tS - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _), SClo _) - File "src/core/whnf.ml", lines 524-526, characters 2-54: - 524 | ..function - 525 | | (Nil, s) -> s - 526 | | (App (tN, tS), s) -> App (tN, appendSpine (tS, s)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (SClo _, _) - File "src/core/whnf.ml", lines 537-543, characters 5-8: - 537 | .....begin match mmvar.instantiation.contents with - 538 | | Some (ISub s) -> - 539 | let s0 = cnormSub (LF.comp (normSub s) (normSub s'), mt) in - 540 | LF.comp (Shift n) s0 - 541 | | None -> - 542 | MSVar (n, ((mmvar, mt), normSub s')) - 543 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ICtx _) - File "src/core/whnf.ml", lines 562-573, characters 2-37: - 562 | ..match tA with - 563 | | Atom (loc, a, tS) -> - 564 | Atom (loc, a, normSpine (tS, sigma)) - 565 | - 566 | | PiTyp ((TypDecl _ as decl, depend, plicity), tB) -> - ... - 570 | normTyp (tA, LF.comp s sigma) - 571 | - 572 | | Sigma recA -> - 573 | Sigma (normTypRec (recA, sigma)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/whnf.ml", lines 620-629, characters 5-8: - 620 | .....begin match !u with - 621 | | None -> - 622 | (Some (CInst (mmvar, mcomp theta t)), k) - 623 | | Some (ICtx cPsi) -> - 624 | (* | (Some (CInst ((_, { contents = Some (ICtx cPsi) }, _, _, _, _), theta)), k) -> *) - 625 | begin match Context.dctxToHat (cnormDCtx (cPsi, mcomp theta t)) with - 626 | | (None, i) -> (None, k + i) (* cnorm_psihat (None, k + i) t *) - 627 | | (Some cvar', i) -> (Some cvar', k + i) (* cnorm_psihat (Some cvar', k + i) t *) - 628 | end - 629 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/whnf.ml", lines 631-641, characters 5-8: - 631 | .....begin match LF.applyMSub offset t with - 632 | | CObj cPsi -> - 633 | begin match Context.dctxToHat cPsi with - 634 | | (None, i) -> (None, k + i) - 635 | | (Some cvar', i) -> (Some cvar', k + i) - ... - 638 | | ClObj _ -> - 639 | Error.raise_violation - 640 | (Format.asprintf "[cnorm_psihat] ClObj impossible; offset %d" offset) - 641 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MUndef - File "src/core/whnf.ml", lines 656-659, characters 5-8: - 656 | .....begin match LF.applyMSub k t with - 657 | | MV k' -> Head (MVar (Offset k', s')) - 658 | | ClObj (_, MObj tM) -> Obj (norm (tM, s')) - 659 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, (PObj _|SObj _)) - File "src/core/whnf.ml", lines 662-666, characters 5-8: - 662 | .....begin match LF.applyMSub k t with - 663 | | MV k' -> Head (PVar (k', s')) - 664 | | ClObj (_, PObj h) -> normHead (h, s') - 665 | | ClObj (_, MObj tM) -> Obj (norm (tM, s')) - 666 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, SObj _) - File "src/core/whnf.ml", lines 669-672, characters 5-8: - 669 | .....begin match LF.applyMSub sv t with - 670 | | MV sv' -> Head (HClo (k, sv', s')) - 671 | | ClObj (_, SObj r) -> normFt' (LF.bvarSub k r, s') - 672 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, (MObj _|PObj _)) - File "src/core/whnf.ml", lines 674-677, characters 5-8: - 674 | .....begin match normMMVar mmt with - 675 | | ResMM (mm', mt) -> Head (MMVar ((mm', cnormMSub' (mt, t)), cnormSub (s, t))) - 676 | | Result (INorm n) -> Obj (cnorm (norm (n, s), t)) - 677 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 679-684, characters 5-8: - 679 | .....begin match normMMVar mmt with - 680 | | ResMM (mm', mt) -> Head (MPVar ((mm', cnormMSub' (mt, t)), cnormSub (s, t))) - 681 | | Result (IHead h) -> cnormFt' (normHead (h, s), t) - 682 | | Result (INorm n) -> - 683 | Obj (cnorm (norm (n, s), t)) - 684 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (ISub _|ICtx _) - File "src/core/whnf.ml", lines 686-689, characters 5-8: - 686 | .....begin match normMMVar mmt with - 687 | | ResMM (mm', mt) -> Head (HMClo (k, ((mm', cnormMSub' (mt, t)), cnormSub (s, t)))) - 688 | | Result (ISub r) -> cnormFt' (normFt' (LF.bvarSub k r, s), t) - 689 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (INorm _|IHead _|ICtx _) - File "src/core/whnf.ml", lines 691-694, characters 5-8: - 691 | .....begin match normMMVar (mm, MShift 0) with - 692 | | ResMM (mm', _) -> Head (MVar (Inst mm', cnormSub (s, t))) - 693 | | Result (INorm n) -> Obj (norm (n, s)) - 694 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Result (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 698-700, characters 2-38: - 698 | ..function - 699 | | (Head h, t) -> cnormHead' (h, t) - 700 | | (Obj tM, t) -> Obj (cnorm (tM, t)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Undef, _) - File "src/core/whnf.ml", lines 713-721, characters 5-8: - 713 | .....begin match cnormHead' (head, t) with - 714 | | Head h' -> Root (loc, h', cnormSpine (tS, t), plicity) - 715 | | Obj tM -> - 716 | (* in this ends up evaluating to a Root, we want to keep the - 717 | plicity that we had here *) - 718 | map_plicity - 719 | (fun _ -> plicity) - 720 | (reduce (tM, LF.id) (cnormSpine (tS, t))) - 721 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/whnf.ml", lines 728-729, characters 2-17: - 728 | ..match cnormHead' (h, t) with - 729 | | Head h' -> h' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Undef|Obj _) - File "src/core/whnf.ml", lines 752-758, characters 5-8: - 752 | .....begin match LF.applyMSub offset t with - 753 | | MV offset' -> SVar (offset', n, cnormSub (s', t)) - 754 | | ClObj (_, SObj r) -> - 755 | LF.comp (LF.comp (Shift n) r) (cnormSub (s', t)) - 756 | | ClObj _ -> - 757 | Error.raise_violation "[cnormSub] t @ offset must give an MV or ClObj SObj" - 758 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|CObj _) - File "src/core/whnf.ml", lines 764-775, characters 5-56: - 764 | .....match mmvar.instantiation.contents with - 765 | | Some (ISub s) -> - 766 | dprintf - 767 | begin fun p -> - 768 | p.fmt "[cnormSub] @[<v>MSVar - MSInst for @[%a@]@]" - ... - 772 | let s0' = LF.comp (Shift n) s0 in - 773 | cnormSub (s0', t) - 774 | | None -> - 775 | MSVar (n, ((mmvar, cnormMSub (mcomp mt t)), s')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ICtx _) - File "src/core/whnf.ml", lines 793-803, characters 2-34: - 793 | ..match tA with - 794 | | Atom (loc, a, tS) -> - 795 | Atom (loc, a, cnormSpine (tS, t)) - 796 | - 797 | | PiTyp ((TypDecl _ as decl, depend, plicity), tB) -> - ... - 800 | | TClo (tA, s) -> normTyp (cnormTyp (tA, t), cnormSub (s, t)) - 801 | - 802 | | Sigma recA -> - 803 | Sigma (cnormTypRec (recA, t)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/whnf.ml", lines 832-837, characters 5-8: - 832 | .....begin match !u with - 833 | | None -> - 834 | CtxVar (CInst (mmvar, mcomp theta t)) - 835 | | Some (ICtx cPhi) -> - 836 | cnormDCtx (cPhi, mcomp theta t) - 837 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/whnf.ml", lines 840-843, characters 5-8: - 840 | .....begin match LF.applyMSub psi t with - 841 | | CObj cPsi' -> normDCtx cPsi' - 842 | | MV k -> CtxVar (CtxOffset k) - 843 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|ClObj (_, _)) - File "src/core/whnf.ml", lines 886-889, characters 5-8: - 886 | .....begin match mmvar.instantiation.contents with - 887 | | None -> cPsi - 888 | | Some (ICtx cPhi) -> normDCtx (cnormDCtx (cPhi, theta)) - 889 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/whnf.ml", lines 960-973, characters 8-11: - 960 | ........begin match h' with - 961 | | BVar i -> - 962 | begin match LF.bvarSub i (LF.comp r sigma) with - 963 | | Obj tM -> whnfRedex ((tM, LF.id), (tS, sigma)) - 964 | | Head (BVar k) -> (Root (loc, BVar k, SClo (tS, sigma), plicity), LF.id) - ... - 970 | let h' = PVar (p, LF.comp (LF.comp s r) sigma) in - 971 | whnf (Root (loc, h', SClo (tS, sigma), plicity), LF.id) - 972 | | MPVar ((q, t'), r') -> whnf (Root (loc, MPVar ((q, t'), LF.comp r' r), SClo (tS, sigma), plicity), LF.id) - 973 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _|FPVar _| - HClo (_, _, _)|HMClo (_, _)) - File "src/core/whnf.ml", lines 956-979, characters 5-8: - 956 | .....begin match u with - 957 | (* MPVar instantiation must be a head *) - 958 | | Some (IHead h) -> - 959 | let h' = cnormHead (h, t) in - 960 | begin match h' with - ... - 976 | let (cPsi', tA') = (normDCtx cPsi, normTyp (tA, LF.id)) in - 977 | let p' = { mmvar with typ = ClTyp (PTyp tA', cPsi') } in - 978 | (Root (loc, MPVar ((p', t), LF.comp r sigma), SClo (tS, sigma), plicity), LF.id) - 979 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 954-979, characters 5-8: - 954 | .....let ClTyp (PTyp tA, cPsi) = mmvar.typ in - 955 | let u = mmvar.instantiation.contents in - 956 | begin match u with - 957 | (* MPVar instantiation must be a head *) - 958 | | Some (IHead h) -> - ... - 976 | let (cPsi', tA') = (normDCtx cPsi, normTyp (tA, LF.id)) in - 977 | let p' = { mmvar with typ = ClTyp (PTyp tA', cPsi') } in - 978 | (Root (loc, MPVar ((p', t), LF.comp r sigma), SClo (tS, sigma), plicity), LF.id) - 979 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((MTyp _|STyp (_, _)), _) - File "src/core/whnf.ml", lines 995-1011, characters 8-11: - 995 | ........begin match whnfTyp (tA, LF.id) with - 996 | | (Atom (loc', a, tS'), _ (* id *)) -> - 997 | (* meta-variable is of atomic type; tS = Nil *) - 998 | let u' = { mmvar with typ = ClTyp (MTyp (Atom (loc', a, tS')), cPsi) } in - 999 | (Root (loc, MMVar ((u', t), LF.comp r sigma), SClo (tS, sigma), plicity), LF.id) - ... - 1008 | (* let _ = lowerMMVar cD u in - 1009 | whnf (tM, sigma) *) - 1010 | Error.raise_violation "Meta^2-variable needs to be of atomic type" - 1011 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Sigma _|TClo _), _) - File "src/core/whnf.ml", lines 985-1012, characters 5-8: - 985 | .....begin match u with - 986 | (* MMVar instantiation must be normal *) - 987 | | Some (INorm tM) -> - 988 | (* constraints associated with u must be in solved form *) - 989 | let tM' = cnorm (tM, t) in - ... - 1009 | whnf (tM, sigma) *) - 1010 | Error.raise_violation "Meta^2-variable needs to be of atomic type" - 1011 | end - 1012 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 983-1012, characters 5-8: - 983 | .....let ClTyp (MTyp tA, cPsi) = mmvar.typ in - 984 | let u = mmvar.instantiation.contents in - 985 | begin match u with - 986 | (* MMVar instantiation must be normal *) - 987 | | Some (INorm tM) -> - ... - 1009 | whnf (tM, sigma) *) - 1010 | Error.raise_violation "Meta^2-variable needs to be of atomic type" - 1011 | end - 1012 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/whnf.ml", lines 1041-1053, characters 8-11: - 1041 | ........begin match whnfTyp (tA, LF.id) with - 1042 | | (Atom (loc', a, tS'), _ (* id *)) -> - 1043 | (* meta-variable is of atomic type; tS = Nil *) - 1044 | let u' = Inst { mmvar with typ = ClTyp (MTyp (Atom (loc', a, tS')), cPsi) } in - 1045 | (Root (loc, MVar (u', LF.comp r' sigma), SClo (tS, sigma), plicity), LF.id) - ... - 1050 | *) - 1051 | ignore (lowerMVar cvar); - 1052 | whnf (tM, sigma) - 1053 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Sigma _|TClo _), _) - File "src/core/whnf.ml", lines 1036-1053, characters 8-11: - 1036 | ........let ClTyp (MTyp tA, cPsi) = mmvar.typ in - 1037 | (* note: we could split this case based on tA; - 1038 | * this would avoid possibly building closures with id - 1039 | *) - 1040 | let r' = normSub r in - ... - 1050 | *) - 1051 | ignore (lowerMVar cvar); - 1052 | whnf (tM, sigma) - 1053 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/whnf.ml", lines 1023-1054, characters 5-8: - 1023 | .....begin match u with - 1024 | | Some (INorm tM) -> - 1025 | (* constraints associated with u must be in solved form *) - 1026 | let r' = normSub r in - 1027 | let tM' = - ... - 1051 | ignore (lowerMVar cvar); - 1052 | whnf (tM, sigma) - 1053 | end - 1054 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (IHead _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 1073-1082, characters 5-8: - 1073 | .....begin match LF.bvarSub i sigma with - 1074 | | Head (BVar j) -> - 1075 | ( Root (loc, Proj (BVar j, k), SClo (tS, sigma), plicity) - 1076 | , LF.id - 1077 | ) - 1078 | | Head (PVar (q, s)) -> - 1079 | ( Root (loc, Proj (PVar (q, s), k), SClo (tS, sigma), plicity) - 1080 | , LF.id - 1081 | ) - 1082 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/whnf.ml", lines 1098-1109, characters 11-14: - 1098 | ...........begin match LF.bvarSub i (LF.comp r sigma) with - 1099 | | Head (BVar x) -> - 1100 | ( Root (loc, Proj (BVar x, k), SClo (tS, sigma), plicity) - 1101 | , LF.id - 1102 | ) - ... - 1106 | ) - 1107 | | Undef -> - 1108 | Error.raise_violation ("[whnf] Undef looked up at " ^ string_of_int i) - 1109 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Obj _ - File "src/core/whnf.ml", lines 1096-1118, characters 8-11: - 1096 | ........begin match cnormHead (h, t) with - 1097 | | BVar i -> - 1098 | begin match LF.bvarSub i (LF.comp r sigma) with - 1099 | | Head (BVar x) -> - 1100 | ( Root (loc, Proj (BVar x, k), SClo (tS, sigma), plicity) - ... - 1115 | | MPVar ((q, t'), r') -> - 1116 | let h' = Proj (MPVar ((q, t'), LF.comp (LF.comp r' r) sigma), k) in - 1117 | (Root (loc, h', SClo (tS, sigma), plicity), LF.id) - 1118 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _|FPVar _| - HClo (_, _, _)|HMClo (_, _)) - File "src/core/whnf.ml", lines 1120-1127, characters 8-9: - 1120 | ........let ClTyp (PTyp tA, cPsi) = mmvar.typ in - 1121 | (* constraints associated with q must be in solved form *) - 1122 | let (cPsi', tA') = (normDCtx cPsi, normTyp (tA, LF.id)) in - 1123 | let p' = { mmvar with typ = ClTyp (PTyp tA', cPsi') } in - 1124 | let h' = Proj (MPVar ((p', t), LF.comp r sigma), k) in - 1125 | ( Root (loc, h', SClo (tS, sigma), plicity) - 1126 | , LF.id - 1127 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((MTyp _|STyp (_, _)), _) - File "src/core/whnf.ml", lines 1093-1128, characters 5-8: - 1093 | .....begin match mmvar.instantiation.contents with - 1094 | | Some (IHead h) -> - 1095 | (* constraints associated with q must be in solved form *) - 1096 | begin match cnormHead (h, t) with - 1097 | | BVar i -> - ... - 1125 | ( Root (loc, h', SClo (tS, sigma), plicity) - 1126 | , LF.id - 1127 | ) - 1128 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|ISub _|ICtx _) - File "src/core/whnf.ml", lines 1143-1157, characters 2-39: - 1143 | ..function - 1144 | | ((LFHole (l, id, name), s1), _) -> raise (InvalidLFHole l) - 1145 | | ((Root _ as root, s1), (Nil, _)) -> whnf (root, s1) - 1146 | - 1147 | | ((Lam (_, _, tM), s1), (App (tN, tS), s2)) -> - ... - 1154 | whnfRedex (sM, (tS, LF.comp s2' s2)) - 1155 | - 1156 | | ((Clo (tM, s), s1), sS) -> - 1157 | whnfRedex ((tM, LF.comp s s1), sS) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Root (_, _, _, _), _), (App (_, _), _)) - File "src/core/whnf.ml", lines 1180-1191, characters 2-15: - 1180 | ..function - 1181 | | [] -> true - 1182 | | ({ contents = Queued _ } :: cnstrs) -> - 1183 | constraints_solved cnstrs - 1184 | | ({ contents = Eqn (_, _, _, INorm tM, INorm tN) } :: cnstrs) -> - ... - 1188 | | ({ contents = Eqn (_, _, _, IHead h1, IHead h2) } :: cnstrs) -> - 1189 | if convHead (h1, LF.id) (h2, LF.id) - 1190 | then constraints_solved cnstrs - 1191 | else false - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - {contents=Eqn (_, _, _, INorm _, (IHead _|ISub _|ICtx _))}::_ - File "src/core/whnf.ml", lines 1283-1288, characters 2-71: - 1283 | ..match (spine1, spine2) with - 1284 | | ((Nil, _), (Nil, _)) -> true - 1285 | | ((App (tM1, spine1), s1), (App (tM2, spine2), s2)) -> - 1286 | conv (tM1, s1) (tM2, s2) && convSpine (spine1, s1) (spine2, s2) - 1287 | | (spine1, (SClo (tS, s), s')) -> convSpine spine1 (tS, LF.comp s s') - 1288 | | ((SClo (tS, s), s'), spine2) -> convSpine (tS, LF.comp s s') spine2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Nil, _), (App (_, _), _)) - File "src/core/whnf.ml", lines 1457-1465, characters 2-32: - 1457 | ..match (cPsi, cPsi') with - 1458 | | (_, Empty) -> true - 1459 | | Dec (cPsi1, TypDecl (_, tA)), Dec (cPsi2, TypDecl (_, tB)) -> - 1460 | if convTyp (tA, LF.id) (tB, LF.id) - 1461 | then convSubsetCtx cPsi1 cPsi2 - 1462 | else - 1463 | (* keep tBs around and check that tA is a subordinate of tB, - 1464 | i.e. anything in tA cannot influence tB *) - 1465 | convSubsetCtx cPsi1 cPsi' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Dec (_, TypDecl (_, _)), Dec (_, TypDeclOpt _)) - File "src/core/whnf.ml", lines 1591-1593, characters 4-76: - 1591 | ....match mO with - 1592 | | CObj cPsi -> CObj (normDCtx cPsi) - 1593 | | ClObj (phat, n) -> ClObj (cnorm_psihat phat m_id, normMObj (n, LF.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|MV _) - File "src/core/whnf.ml", lines 1604-1624, characters 2-49: - 1604 | ..function - 1605 | | Comp.TypBase (loc, c, mS) -> - 1606 | Comp.TypBase (loc, c, normMetaSpine mS) - 1607 | | Comp.TypCobase (loc, c, mS) -> - 1608 | Comp.TypCobase (loc, c, normMetaSpine mS) - ... - 1621 | Comp.TypPiBox - 1622 | (loc, (Decl { d with typ = typ' }), tau') - 1623 | - 1624 | | Comp.TypInd tau -> Comp.TypInd (normCTyp tau) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypPiBox (_, DeclOpt _, _) - File "src/core/whnf.ml", lines 1640-1643, characters 2-30: - 1640 | ..match cdecl with - 1641 | | Decl d -> - 1642 | let typ' = cnormMTyp (d.typ, t) in - 1643 | Decl { d with typ = typ' } - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/whnf.ml", lines 1646-1670, characters 2-60: - 1646 | ..function - 1647 | | (Comp.TypBase (loc, a, mS), t) -> - 1648 | let mS' = cnormMetaSpine (mS, t) in - 1649 | Comp.TypBase (loc, a, mS') - 1650 | | (Comp.TypCobase (loc, a, mS), t) -> - ... - 1667 | | (Comp.TypClo (tT, t'), t) -> - 1668 | cnormCTyp (tT, mcomp t' t) - 1669 | - 1670 | | (Comp.TypInd tau, t) -> Comp.TypInd (cnormCTyp (tau, t)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypDef (_, _, _), _) - File "src/core/whnf.ml", lines 1673-1675, characters 2-47: - 1673 | ..match cdecl with - 1674 | | Comp.CTypDecl(n, typ, wf_t) -> - 1675 | Comp.CTypDecl(n, cnormCTyp (typ, t), wf_t) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/whnf.ml", lines 1691-1707, characters 2-70: - 1691 | ..function - 1692 | | (Comp.TypBase (loc, c, mS), t) -> - 1693 | let mS' = normMetaSpine (cnormMetaSpine (mS, t)) in - 1694 | (Comp.TypBase (loc, c, mS'), m_id) - 1695 | | (Comp.TypCobase (loc, c, mS), t) -> - ... - 1704 | - 1705 | | (Comp.TypClo (tT, t'), t) -> cwhnfCTyp (tT, mcomp t' t) - 1706 | - 1707 | | (Comp.TypInd tau, t) -> (Comp.TypInd (Comp.TypClo (tau, t)), m_id) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypDef (_, _, _), _) - File "src/core/whnf.ml", lines 1902-1905, characters 2-74: - 1902 | ..match cG with - 1903 | | Empty -> Empty - 1904 | | Dec (cG, Comp.CTypDecl (x, tau, flag)) -> - 1905 | Dec (cwhnfCtx (cG, t), Comp.CTypDecl (x, Comp.TypClo (tau, t), flag)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/whnf.ml", lines 1928-1930, characters 2-62: - 1928 | ..function - 1929 | | Comp.CTypDecl (x, tau, flag) -> - 1930 | Comp.CTypDecl (x, normCTyp (cnormCTyp (tau, m_id)), flag) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/whnf.ml", lines 1957-1962, characters 2-41: - 1957 | ..match cD with - 1958 | | Empty -> Empty - 1959 | | Dec (cD, Decl d) -> - 1960 | let typ' = normMTyp d.typ in - 1961 | let cD' = normMCtx cD in - 1962 | Dec (cD', Decl { d with typ = typ' }) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/whnf.ml", lines 1990-1993, characters 2-60: - 1990 | ..match (tM1, tM2) with - 1991 | | (INorm n1, INorm n2) -> conv (n1, LF.id) (n2, LF.id) - 1992 | | (ISub s1, ISub s2) -> convSub s1 s2 - 1993 | | (IHead h1, IHead h2) -> convHead (h1, LF.id) (h2, LF.id) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (INorm _, (IHead _|ISub _|ICtx _)) - File "src/core/whnf.ml", lines 1998-2004, characters 2-25: - 1998 | ..match (mS, mS') with - 1999 | | (Comp.MetaNil, Comp.MetaNil) -> true - 2000 | | (Comp.MetaApp (mO, mT, mS, p1), Comp.MetaApp (mO', mT', mS', p2)) -> - 2001 | convMetaObj mO mO' - 2002 | && convMetaTyp mT mT' - 2003 | && convMetaSpine mS mS' - 2004 | && Plicity.(p1 = p2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MetaNil, MetaApp (_, _, _, _)) - File "src/core/whnf.ml", lines 2071-2075, characters 2-42: - 2071 | ..match (d1, d2) with - 2072 | | (CTypDeclOpt x1, CTypDeclOpt x2) -> Name.(x1 = x2) - 2073 | | (CTypDecl (x1, tau1, w1), CTypDecl (x2, tau2, w2)) -> - 2074 | Name.(x1 = x2) && Stdlib.(=) w1 w2 - 2075 | && convCTyp (tau1, m_id) (tau2, m_id) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CTypDeclOpt _, CTypDecl (_, _, _)) - File "src/core/whnf.ml", lines 2095-2105, characters 2-8: - 2095 | ..match sA with - 2096 | | (Atom (loc, _, _) as tP, s) -> - 2097 | let u = newMVar (Some n) (cPsi, tclo tP s) plicity inductivity in - 2098 | Root (loc, MVar (u, s'), Nil, plicity) - 2099 | - ... - 2102 | ( Name.location x - 2103 | , x - 2104 | , etaExpandMV (DDec (cPsi, LF.decSub decl s)) (tB, LF.dot1 s) n (LF.dot1 s') plicity inductivity - 2105 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/whnf.ml", lines 2120-2130, characters 2-8: - 2120 | ..match sA with - 2121 | | (Atom _ as tP, s) -> - 2122 | let u = newMMVar (Some n) (cD, cPsi, tclo tP s) plicity inductivity in - 2123 | Root (loc, MMVar ((u, m_id), s'), Nil, plicity) - 2124 | - ... - 2127 | ( loc - 2128 | , x - 2129 | , etaExpandMMV loc cD (DDec (cPsi, LF.decSub decl s)) (tB, LF.dot1 s) n (LF.dot1 s') plicity inductivity - 2130 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/whnf.ml", lines 2135-2141, characters 2-42: - 2135 | ..match tM with - 2136 | | Lam (_, _, tM) -> closed (tM, LF.dot1 s) - 2137 | | Root (_, h, tS, _) -> - 2138 | closedHead h - 2139 | && closedSpine (tS, s) - 2140 | | LFHole _ -> false - 2141 | | Tuple (_, tup) -> closedTuple (tup, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Clo _ - File "src/core/whnf.ml", lines 2166-2174, characters 2-28: - 2166 | ..function - 2167 | | EmptySub -> true - 2168 | | Undefs -> true - 2169 | | SVar (_, _, sigma) -> closedSub sigma - 2170 | | Shift _ -> true - 2171 | | Dot (ft, s) -> closedFront ft && closedSub s - 2172 | | MSVar (_, ((v, t), s)) -> - 2173 | (* the case for MMVar doesn't also check the substitution -je *) - 2174 | is_mmvar_instantiated v..................... - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - FSVar (_, _) - File "src/core/whnf.ml", lines 2185-2190, characters 2-40: - 2185 | ..match tA with - 2186 | | Atom (_, _, tS) -> closedSpine (tS, s) - 2187 | | PiTyp ((t_dec, _, _), tA) -> - 2188 | closedDecl (t_dec, s) - 2189 | && closedTyp (tA, LF.dot1 s) - 2190 | | Sigma recA -> closedTypRec (recA, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TClo _ - File "src/core/whnf.ml", lines 2208-2211, characters 5-8: - 2208 | .....begin match mmvar.instantiation.contents with - 2209 | | None -> false - 2210 | | Some (ICtx cPsi) -> closedDCtx (cnormDCtx (cPsi, theta)) - 2211 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/whnf.ml", lines 2241-2244, characters 2-56: - 2241 | ..function - 2242 | | CObj cPsi -> closedDCtx cPsi - 2243 | | ClObj (phat, t) -> - 2244 | closedDCtx (Context.hatToDCtx phat) && closedMObj t - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|MV _) - File "src/core/whnf.ml", lines 2255-2264, characters 2-37: - 2255 | ..function - 2256 | | Comp.TypBase (_, _, mS) -> closedMetaSpine mS - 2257 | | Comp.TypCobase (_, _, mS) -> closedMetaSpine mS - 2258 | | Comp.TypBox (_, cT) -> closedMetaTyp cT - 2259 | | Comp.TypArr (_, cT1, cT2) -> closedCTyp cT1 && closedCTyp cT2 - 2260 | | Comp.TypCross (_, cTs) -> List2.for_all (fun cT -> closedCTyp cT) cTs - 2261 | | Comp.TypPiBox (_, ctyp_decl, cT) -> - 2262 | closedCTyp cT && closedDecl ctyp_decl - 2263 | | Comp.TypClo (cT, t) -> closedCTyp (cnormCTyp (cT, t)) (* to be improved Sun Dec 13 11:45:15 2009 -bp *) - 2264 | | Comp.TypInd tau -> closedCTyp tau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDef (_, _, _) - File "src/core/whnf.ml", lines 2406-2407, characters 37-34: - 2406 | .....................................(Comp.CTypDecl (_, tau2, _)) = - 2407 | convCTyp (tau1, t1) (tau2, t2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/whnf.ml", lines 2406-2407, characters 8-34: - 2406 | ........(Comp.CTypDecl (_, tau1, _)) (Comp.CTypDecl (_, tau2, _)) = - 2407 | convCTyp (tau1, t1) (tau2, t2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/whnf.ml", lines 2412-2413, characters 32-23: - 2412 | ................................(Decl { typ = cU2; _ }) = - 2413 | convMetaTyp cU1 cU2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/whnf.ml", lines 2412-2413, characters 8-23: - 2412 | ........(Decl { typ = cU1; _ }) (Decl { typ = cU2; _ }) = - 2413 | convMetaTyp cU1 cU2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/whnf.ml", lines 2418-2420, characters 2-93: - 2418 | ..function - 2419 | | (Atom _, _) as sA -> (cPsi, whnfTyp sA) - 2420 | | (PiTyp ((decl, _, _), tB), s) -> lowerTyp (DDec (cPsi, LF.decSub decl s)) (tB, LF.dot1 s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Sigma _|TClo _), _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Ctxsub.cmx -c -impl src/core/ctxsub.ml) - File "src/core/ctxsub.ml", lines 46-65, characters 2-36: - 46 | ..match sA' with - 47 | | (PiTyp ((decl, _, _), tA'), s') -> - 48 | let (tM , sAmv) = - 49 | lowerMVar - 50 | (DDec (cPsi, Substitution.LF.decSub decl s')) - ... - 62 | , Nil - 63 | , Plicity.explicit - 64 | ) , - 65 | ClTyp(MTyp (TClo sA') , cPsi)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _, _) - File "src/core/ctxsub.ml", lines 88-158, characters 2-89: - 88 | ..function - 89 | | Null -> - 90 | (* Substitution.LF.id --changed 2010-07-26*) - 91 | (cD, ctxShift psi, 0) - 92 | - ... - 155 | - 156 | | DDec (_, TypDecl _) -> - 157 | (* For the moment, assume tA atomic. *) - 158 | Error.raise_not_implemented "[ctxToSub_mclosed] non-atomic cPsi entry not supported" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/ctxsub.ml", lines 174-216, characters 2-11: - 174 | ..function - 175 | | Null -> - 176 | (* Substitution.LF.id --changed 2010-07-26*) - 177 | ctxShift cPhi - 178 | - ... - 213 | (* dprint (fun () -> "shifted = " ^ subToString shifted);*) - 214 | let result = Dot (front, s) in - 215 | dprintf (fun p -> p.fmt "result = %a@\n" pp_sub result); - 216 | result - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/ctxsub.ml", lines 250-255, characters 2-59: - 250 | ..function - 251 | | Empty -> MShift (Context.length cD0) - 252 | | Dec (cD', Decl { name = n; typ = mtyp; plicity; inductivity }) -> - 253 | let t = mctxToMMSub cD0 cD' in - 254 | let mtyp' = Whnf.cnormMTyp (mtyp, t) in - 255 | MDot (mdeclToMMVar cD0 n mtyp' plicity inductivity, t) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/ctxsub.ml", lines 261-263, characters 2-35: - 261 | ..function - 262 | | t when n <= 0 -> t - 263 | | MDot (_, t') -> drop (n - 1) t' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MShift _ - (However, some guarded clause may match this value.) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Subord.cmx -c -impl src/core/subord.ml) - File "src/core/subord.ml", lines 98-101, characters 7-43: - 98 | .......function - 99 | | Atom _ -> [tA] - 100 | | PiTyp ((TypDecl (_, tA1), _, _), tA2) -> - 101 | extract_neg tA1 @ extract_pos tA2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/subord.ml", lines 103-106, characters 7-43: - 103 | .......function - 104 | | Atom _ -> [] - 105 | | PiTyp ((TypDecl (_, tA1), _, _), tA2) -> - 106 | extract_pos tA1 @ extract_neg tA2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/subord.ml", lines 85-112, characters 2-47: - 85 | ..match tA with - 86 | | Atom (_, a, _) -> - 87 | Store.Cid.Typ.freeze a; - 88 | if List.exists - 89 | begin fun type_in_basis -> - ... - 109 | If we keep this, then we might not strengthen enough... -bp*) - 110 | List.fold_left (fun l tA -> relevant tA basis @ l) [] (extract_neg tA1) - 111 | @ relevant tA2 basis - 112 | | Sigma typRec -> relevantTypRec typRec basis - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/subord.ml", lines 159-161, characters 9-71: - 159 | .........match psi with - 160 | | CtxOffset _ -> Context.lookupCtxVarSchema cD psi - 161 | | CInst ({ typ = CTyp (Some cid_schema); _ }, _) -> cid_schema - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CInst ({typ=CTyp None; _ }, _) - File "src/core/subord.ml", lines 155-187, characters 4-10: - 155 | ....match cPsi with - 156 | | Null -> (Shift 0, Null) (* . |- shift(noCtx, 0) : . *) - 157 | | CtxVar psi -> - 158 | let schema = - 159 | match psi with - ... - 184 | (* cPsi,x:tA |- dot1 thin_s <= cPsi', x:tA' where tA = [thin_s]([thin_s_inv]tA) *) - 185 | let thin_s_inv = Substitution.LF.invert thin_s in - 186 | (Substitution.LF.dot1 thin_s, DDec (cPsi', TypDecl (name, TClo (tA, thin_s_inv)))) - 187 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/subord.ml", line 189, characters 8-45: - 189 | inner (match tP with Atom (_, a, _) -> [a]) cPsi - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((_, _, _), _)|Sigma _|TClo (_, _)) - File "src/core/subord.ml", lines 215-216, characters 16-21: - 215 | ................let (_, Decl { typ = CTyp (Some s_cid); _ }) = Store.FCVar.get psi in - 216 | s_cid - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp None; _ }) - File "src/core/subord.ml", lines 205-238, characters 4-10: - 205 | ....match Whnf.cnormDCtx (cPsi, MShift 0) with - 206 | | Null -> (Shift 0, Null) (* . |- shift(noCtx, 0) : . *) - 207 | | CtxVar psi -> - 208 | begin - 209 | try - ... - 235 | (* cPsi,x:tA |- dot1 thin_s <= cPsi', x:tA' where tA = [thin_s]([thin_s_inv]tA) *) - 236 | let thin_s_inv = Substitution.LF.invert thin_s in - 237 | (Substitution.LF.dot1 thin_s, DDec (cPsi', TypDecl (name, TClo (tA, thin_s_inv)))) - 238 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/subord.ml", lines 249-251, characters 11-24: - 249 | ...........let (_, Decl { typ = CTyp _; _ }) = Store.FCVar.get psi in - 250 | p.fmt "[thin'] CtxName psi = %a FOUND" - 251 | Name.pp psi - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp (_, _); _ }) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__ConvSigma.cmx -c -impl src/core/convSigma.ml) - File "src/core/convSigma.ml", lines 20-22, characters 2-54: - 20 | ..match (conv_list, k) with - 21 | | (d :: conv_list', 1) -> d - 22 | | (d :: conv_list', _) -> d + map conv_list' (k - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ([], _) - File "src/core/convSigma.ml", lines 44-52, characters 2-21: - 44 | ..match tM with - 45 | | LF.Lam (loc, x, tN) -> - 46 | let tN' = strans_norm cD (LF.DDec (cPsi, LF.TypDeclOpt x)) (tN, S.LF.dot1 s) (1 :: conv_list) in - 47 | LF.Lam (loc, x, tN') - 48 | | LF.Root (loc, h, tS, plicity) -> - 49 | let h' = strans_head loc cD cPsi h conv_list in - 50 | let tS' = strans_spine cD cPsi (tS, s) conv_list in - 51 | LF.Root (loc, h', tS', plicity) - 52 | | LF.LFHole _ -> tM - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Clo _|Tuple (_, _)) - File "src/core/convSigma.ml", lines 55-101, characters 2-8: - 55 | ..match h with - 56 | | LF.BVar x -> LF.BVar (map conv_list x) - 57 | - 58 | | LF.MVar (LF.Offset u, sigma) -> - 59 | LF.MVar (LF.Offset u, strans_sub cD cPsi sigma conv_list) - ... - 98 | LF.BVar x' - 99 | with - 100 | | _ -> LF.Proj (LF.BVar x, j) - 101 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Proj - ((Const _|MMVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - HClo (_, _, _)|HMClo (_, _)), - _) - File "src/core/convSigma.ml", lines 112-118, characters 2-26: - 112 | ..match mf with - 113 | | LF.ClObj (phat, LF.MObj tM) -> - 114 | LF.ClObj (phat, LF.MObj (strans_norm cD cPsi (tM, S.LF.id) conv_list )) - 115 | | LF.ClObj (phat, LF.PObj h) -> - 116 | LF.ClObj (phat, LF.PObj (strans_head Location.ghost cD cPsi h conv_list)) - 117 | | LF.MV u -> LF.MV u - 118 | | LF.MUndef -> LF.MUndef - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, SObj _) - File "src/core/convSigma.ml", lines 121-123, characters 2-55: - 121 | ..function - 122 | | (0, xs) -> n - 123 | | (k, x :: xs) -> shift_conv_list (n + x) (k - 1, xs) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (1, []) - File "src/core/convSigma.ml", lines 163-170, characters 2-59: - 163 | ..match tA with - 164 | | LF.Atom (loc, a, tS ) -> - 165 | LF.Atom (loc, a, strans_spine cD cPsi (tS, s) conv_list ) - 166 | - 167 | | LF.PiTyp ((LF.TypDecl (x, tA), depend, plicity), tB) -> - 168 | let tA' = strans_typ cD cPsi (tA, s) conv_list in - 169 | let tB' = strans_typ cD cPsi (tB, S.LF.dot1 s) (1 :: conv_list) in - 170 | LF.PiTyp ((LF.TypDecl (x, tA'), depend, plicity), tB') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/convSigma.ml", lines 384-432, characters 2-24: - 384 | ..match Whnf.whnfTyp sA with - 385 | | LF.Sigma tRec as tA, s -> - 386 | (* FIXME: this doesn't do any strengthening !! -je *) - 387 | let tH = - 388 | mk_head ((new_mxvar n (cD, cPsi, LF.tclo tA s) plicity Inductivity.not_inductive, Whnf.m_id), s) - ... - 429 | let tN = - 430 | etaExpandStrGeneric new_mxvar mk_head loc cD cPsi' (tB, S.LF.dot1 s) plicity n (x :: names) - 431 | in - 432 | LF.Lam (loc, x, tN) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Prettyint.cmx -c -impl src/core/prettyint.ml) - File "src/core/prettyint.ml", lines 237-294, characters 4-39: - 237 | ....function - 238 | | LF.Atom (_, a, LF.Nil) -> - 239 | fprintf ppf "%s" - 240 | (R.render_cid_typ a) - 241 | - ... - 291 | | LF.TClo (typ, s) -> - 292 | fprintf ppf "TClo(%a,@ %a)" - 293 | (fmt_ppr_lf_typ cD cPsi lvl) typ - 294 | (fmt_ppr_lf_sub cD cPsi lvl) s - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/prettyint.ml", lines 434-545, characters 6-51: - 434 | ......function - 435 | | LF.HClo (h, s, sigma) -> - 436 | fprintf ppf "%s[%a[%a]]" - 437 | (R.render_bvar cPsi h) - 438 | (fmt_ppr_lf_offset cD) s - ... - 542 | (r_paren_if (paren s)) - 543 | - 544 | | LF.Proj (head, k) -> - 545 | fmt_head_with ("." ^ string_of_int k) head - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - AnnH (_, _) - File "src/core/prettyint.ml", lines 769-771, characters 7-52: - 769 | .......match LF.(v.typ) with - 770 | | LF.ClTyp (_, cPsi) -> - 771 | fmt_ppr_lf_iterm LF.(v.cD) cPsi lvl ppf it - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/prettyint.ml", lines 785-794, characters 7-10: - 785 | .......begin match !g with - 786 | | None -> - 787 | fprintf ppf "?%a[%a]" - 788 | Name.pp LF.(v.name) - 789 | (fmt_ppr_lf_msub cD 0) theta - 790 | - 791 | | Some (LF.ICtx cPsi) -> - 792 | fprintf ppf "%a" - 793 | (fmt_ppr_lf_dctx LF.(v.cD) 0) (Whnf.cnormDCtx (cPsi, theta)) - 794 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/prettyint.ml", lines 878-890, characters 4-38: - 878 | ....function - 879 | | LF.Null -> () - 880 | - 881 | | LF.DDec (LF.Null, LF.TypDecl (x, tA)) -> - 882 | fprintf ppf "%a : %a" (* formerly "., %s : %a" -jd 2010-06-03 *) - ... - 887 | fprintf ppf "%a, %a : %a" - 888 | (ppr_typ_decl_dctx cD) cPsi - 889 | Name.pp x - 890 | (fmt_ppr_lf_typ cD cPsi 0) tA - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/prettyint.ml", lines 974-1006, characters 4-26: - 974 | ....function - 975 | | LF.Typ -> - 976 | fprintf ppf "type" - 977 | - 978 | | LF.PiKind ((LF.TypDecl (x, a), (Depend.Yes | Depend.Maybe), Plicity.Explicit), k) -> - ... - 1003 | (l_paren_if cond) - 1004 | (fmt_ppr_lf_typ LF.Empty cPsi 1) a - 1005 | (fmt_ppr_lf_kind (LF.DDec(cPsi, LF.TypDeclOpt x)) 0) k - 1006 | (r_paren_if cond) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiKind ((TypDeclOpt _, _, _), _) - File "src/core/prettyint.ml", lines 1097-1109, characters 4-40: - 1097 | ....function - 1098 | | LF.Queued id -> - 1099 | fprintf ppf "@[QUEUED %d@]" id - 1100 | | LF.(Eqn (id, cD, cPsi, INorm tM1, INorm tM2)) -> - 1101 | fprintf ppf "@[%d.@ @[<v>@[%a@]@ =@ @[%a@]@]@]" - ... - 1106 | fprintf ppf "@[%d.@ @[<v>@[%a@]@ =@ @[%a@]@]@]" - 1107 | id - 1108 | (fmt_ppr_lf_head cD cPsi l0) h1 - 1109 | (fmt_ppr_lf_head cD cPsi l0) h2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Eqn (_, _, _, INorm _, (IHead _|ISub _|ICtx _)) - File "src/core/prettyint.ml", lines 1147-1228, characters 4-39: - 1147 | ....function - 1148 | | Comp.TypBase (_, c, mS)-> - 1149 | let cond = lvl > 10 in - 1150 | fprintf ppf "%s@[<2>%s@[%a@]@]%s" - 1151 | (l_paren_if cond) - ... - 1225 | fprintf ppf "@[%a@]*" - 1226 | (fmt_ppr_cmp_typ cD 10) tau - 1227 | else - 1228 | fmt_ppr_cmp_typ cD lvl ppf tau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDef (_, _, _) - File "src/core/prettyint.ml", lines 1236-1241, characters 4-48: - 1236 | ....function - 1237 | | Comp.PatNil -> fprintf ppf "" - 1238 | | Comp.PatApp (_, pat, pat_spine) -> - 1239 | fprintf ppf "@[%a@]@ @[%a@]" - 1240 | (fmt_ppr_cmp_pattern cD cG (lvl + 1)) pat - 1241 | (fmt_ppr_pat_spine cD cG lvl) pat_spine - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PatObs (_, _, _, _) - File "src/core/prettyint.ml", lines 1245-1248, characters 6-65: - 1245 | ......match (ms, n) with - 1246 | | (_, 0) -> ms - 1247 | | (Comp.PatNil, _) -> ms - 1248 | | (Comp.PatApp (_, _, rest), n) -> dropSpineLeft rest (n-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatObs (_, _, _, _), 1) - File "src/core/prettyint.ml", lines 1507-1550, characters 4-26: - 1507 | ....function - 1508 | | Comp.FunValue _ -> fprintf ppf " fn " - 1509 | | Comp.ThmValue _ -> fprintf ppf " rec " - 1510 | | Comp.MLamValue _ -> fprintf ppf " mlam " - 1511 | | Comp.CtxValue _ -> fprintf ppf " mlam " - ... - 1547 | fprintf ppf "%s%s%a%s" - 1548 | (l_paren_if cond) - 1549 | (R.render_cid_comp_const c) print_spine pat_spine - 1550 | (r_paren_if cond) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - FnValue (_, _, _, _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Apxnorm.cmx -c -impl src/core/apxnorm.ml) - File "src/core/apxnorm.ml", lines 44-49, characters 2-33: - 44 | ..function - 45 | | Apx.LF.Lam (loc, x, m') -> Apx.LF.Lam(loc, x, shiftApxTerm (k + 1) m') - 46 | | Apx.LF.Root (loc, h , spine) -> - 47 | let h' = shiftApxHead k h in - 48 | let spine' = shiftApxSpine k spine in - 49 | Apx.LF.Root(loc, h', spine') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (LFHole (_, _)|Tuple (_, _)|Ann (_, _, _)) - File "src/core/apxnorm.ml", lines 70-80, characters 2-35: - 70 | ..function - 71 | | Apx.LF.EmptySub -> Apx.LF.EmptySub - 72 | | Apx.LF.Id -> Apx.LF.Id - 73 | | Apx.LF.Dot (Apx.LF.Head h, s) -> - 74 | let h' = shiftApxHead k h in - ... - 77 | | Apx.LF.Dot (Apx.LF.Obj m, s) -> - 78 | let m' = shiftApxTerm k m in - 79 | let s' = shiftApxSub k s in - 80 | Apx.LF.Dot (Apx.LF.Obj m', s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (SVar (_, _)|FSVar (_, _)) - File "src/core/apxnorm.ml", lines 126-128, characters 4-49: - 126 | ....match (l_delta, t) with - 127 | | (0, t) -> t - 128 | | (k, Int.LF.MDot(_ , t')) -> drop t' (k - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (1, MShift _) - File "src/core/apxnorm.ml", lines 134-151, characters 6-36: - 134 | ......match Substitution.LF.applyMSub offset t with - 135 | | Int.LF.MV u -> Apx.LF.Offset u - 136 | | Int.LF.ClObj (_, clobj) -> - 137 | let (u, mtyp) = Whnf.mctxLookup cD offset' in - 138 | dprintf - ... - 148 | end; - 149 | let t' = drop t l_delta in - 150 | let mtyp' = Whnf.cnormMTyp (mtyp, t')in - 151 | Apx.LF.MInst (clobj, mtyp') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|CObj _) - File "src/core/apxnorm.ml", lines 267-276, characters 7-10: - 267 | .......begin match Substitution.LF.applyMSub offset t with - 268 | | Int.LF.CObj (Int.LF.CtxVar (Int.LF.CtxOffset psi0)) -> - 269 | Apx.LF.CtxVar (Apx.LF.CtxOffset psi0) - 270 | | Int.LF.CObj Int.LF.Null -> - 271 | Apx.LF.Null - 272 | | Int.LF.CObj (Int.LF.DDec _) -> - 273 | raise (Error (loc, CtxOverGeneral)) - 274 | (* Apx.LF.CtxVar (Apx.LF.CInst cPsi) *) - 275 | | Int.LF.MV offset' -> Apx.LF.CtxVar (Apx.LF.CtxOffset offset') - 276 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CObj (CtxVar (CtxName _|CInst _)) - File "src/core/apxnorm.ml", lines 288-355, characters 2-27: - 288 | ..match e with - 289 | | Apx.Comp.Fn (loc, f, e) -> - 290 | Apx.Comp.Fn (loc, f, cnormApxExp cD delta e cDt) - 291 | | Apx.Comp.Fun (loc, fbr) -> - 292 | Apx.Comp.Fun (loc, cnormApxFBranches cD delta fbr cDt) - ... - 352 | - 353 | | Apx.Comp.Var _ - 354 | | Apx.Comp.DataConst _ - 355 | | Apx.Comp.Const _ -> e - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Ann (_, _, _) - File "src/core/apxnorm.ml", lines 388-392, characters 4-63: - 388 | ....function - 389 | | Apx.LF.Empty -> cD'' - 390 | | Apx.LF.Dec (delta2', Apx.LF.Decl (x, _, plicity)) -> - 391 | let cD1'' = append_mctx cD'' delta2' in - 392 | Int.LF.Dec (cD1'', Int.LF.DeclOpt { name = x; plicity }) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/apxnorm.ml", lines 421-431, characters 2-27: - 421 | ..function - 422 | | Apx.LF.Lam (_, _, m') -> collectApxTerm fMVs m' - 423 | - 424 | | Apx.LF.Root (_, h, s) -> - 425 | let fMVs' = collectApxHead fMVs h in - ... - 428 | | Apx.LF.Tuple (_, tuple) -> - 429 | collectApxTuple fMVs tuple - 430 | - 431 | | Apx.LF.LFHole _ -> fMVs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Ann (_, _, _) - File "src/core/apxnorm.ml", lines 502-503, characters 27-22: - 502 | ...........................(Apx.LF.TypDecl (_, a))= - 503 | collectApxTyp fMVs a - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/apxnorm.ml", lines 530-538, characters 2-44: - 530 | ..function - 531 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.MTyp a, c_psi), _) - 532 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.PTyp a, c_psi), _) -> - 533 | let fMVs' = collectApxDCtx fMVs c_psi in - 534 | collectApxTyp fMVs' a - 535 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.STyp (_, c_phi), c_psi), _) -> - 536 | let fMVs' = collectApxDCtx fMVs c_psi in - 537 | collectApxDCtx fMVs' c_phi - 538 | | Apx.LF.Decl(_, Apx.LF.CTyp _, _) -> fMVs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/apxnorm.ml", lines 556-563, characters 2-31: - 556 | ..function - 557 | | Apx.LF.Atom (loc, c, tS) -> - 558 | collectApxSpine fMVd tS - 559 | | Apx.LF.PiTyp ((Apx.LF.TypDecl (x, tA), _, _ ), tB) -> - 560 | let fMVd1 = collectApxTyp fMVd tA in - 561 | collectApxTyp fMVd1 tB - 562 | | Apx.LF.Sigma trec -> - 563 | collectApxTypRec fMVd trec - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/apxnorm.ml", lines 573-581, characters 2-45: - 573 | ..function - 574 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.STyp(_, cPhi), cPsi), _) -> - 575 | let fMVd1 = collectApxDCtx fMVd cPsi in - 576 | collectApxDCtx fMVd1 cPhi - 577 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.MTyp tA, cPsi), _) - 578 | | Apx.LF.Decl(_, Apx.LF.ClTyp (Apx.LF.PTyp tA, cPsi), _) -> - 579 | let fMVd1 = collectApxDCtx fMVd cPsi in - 580 | collectApxTyp fMVd1 tA - 581 | | Apx.LF.Decl (_, Apx.LF.CTyp _, _) -> fMVd - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/apxnorm.ml", lines 584-603, characters 2-32: - 584 | ..function - 585 | | Apx.Comp.TypArr (_, tau1, tau2) -> - 586 | let fMVd1 = collectApxCompTyp fMVd tau1 in - 587 | collectApxCompTyp fMVd1 tau2 - 588 | | Apx.Comp.TypCross (_, taus) -> - ... - 600 | let fMVd1 = collectApxDCtx fMVd cPsi in - 601 | collectApxDCtx fMVd1 cPhi - 602 | | Apx.Comp.TypBase (_loc, _c, mS) -> - 603 | collectApxMetaSpine fMVd mS - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypBox (_, (_, CTyp _)) - File "src/core/apxnorm.ml", lines 606-618, characters 2-32: - 606 | ..function - 607 | | Apx.Comp.PatMetaObj (loc, mO) -> - 608 | collectApxMetaObj fMVd mO - 609 | | Apx.Comp.PatConst (loc, c, pat_spine) -> - 610 | collectApxPatSpine fMVd pat_spine - ... - 615 | |> List.fold_left collectApxPattern fMVd - 616 | | Apx.Comp.PatAnn (loc, pat, tau) -> - 617 | let fMVd1 = collectApxCompTyp fMVd tau in - 618 | collectApxPattern fMVd1 pat - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PatFVar (_, _) - File "src/core/apxnorm.ml", lines 836-886, characters 2-33: - 836 | ..function - 837 | | Apx.Comp.Fn (loc, f, e) -> - 838 | Apx.Comp.Fn (loc, f, fmvApxExp fMVs cD d_param e) - 839 | - 840 | | Apx.Comp.Fun (loc, fbr) -> - ... - 883 | - 884 | | Apx.Comp.Var _ - 885 | | Apx.Comp.DataConst _ - 886 | | Apx.Comp.Const _ as i -> i - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Ann (_, _, _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Abstract.cmx -c -impl src/core/abstract.ml) - File "src/core/abstract.ml", lines 253-257, characters 4-47: - 253 | ....function - 254 | | I.Atom _ -> (k, tS) - 255 | | I.PiTyp (_, tA') -> - 256 | let tN = I.Root (loc, I.BVar k, I.Nil, Plicity.explicit) in - 257 | etaExpSpine (k + 1) (I.App (tN, tS)) tA' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _|TClo _) - File "src/core/abstract.ml", lines 260-263, characters 4-49: - 260 | ....match tA with - 261 | | I.Atom _ -> tM - 262 | | I.PiTyp ((I.TypDecl (x, _), _, _), tA') -> - 263 | I.Lam (loc, x, etaExpPrefix loc (tM, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/abstract.ml", lines 267-269, characters 4-19: - 267 | ....match h with - 268 | | I.BVar x -> I.BVar (x + k - 1) - 269 | | I.FVar _ -> h - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/abstract.ml", lines 317-332, characters 2-17: - 317 | ..function - 318 | | I.Empty -> I.Empty - 319 | - 320 | | I.Dec (cQ', FDecl (MMV _, Pure (MetaTyp (I.ClTyp (I.MTyp tA, cPsi), _, _)))) -> - 321 | begin match raiseType cPsi tA with - ... - 329 | I.Dec (ctxToCtx cQ', I.TypDecl (x, tA)) - 330 | - 331 | | I.Dec (cQ', FDecl (_, Impure)) -> - 332 | ctxToCtx cQ' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec - (_, FDecl (MMV _, Pure (MetaTyp (ClTyp ((PTyp _|STyp (_, _)), _), _, _)))) - File "src/core/abstract.ml", lines 336-355, characters 2-20: - 336 | ..function - 337 | | I.Empty -> I.Empty - 338 | | I.Dec (cQ', FDecl (FV n, Pure (MetaTyp (ityp, plicity, inductivity)))) -> - 339 | let plicity' = f plicity in - 340 | let cQ'' = ctxToMCtx f cQ' in - ... - 352 | | I.Dec (cQ', FDecl (FV _, Pure (LFTyp tA)))-> - 353 | Error.raise_violation "Free variables in computation-level reconstruction." - 354 | | I.Dec (cQ', FDecl (_, Impure)) -> - 355 | ctxToMCtx f cQ' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, FDecl (MMV (_, _), Pure (LFTyp _))) - File "src/core/abstract.ml", lines 358-365, characters 2-76: - 358 | ..function - 359 | | I.Empty -> I.Empty - 360 | | I.Dec (cQ', I.Decl { name = x; typ = I.CTyp (Option.Some w); plicity; inductivity }) -> - 361 | let cQ'' = mctxToCtx cQ' in - 362 | I.Dec (cQ'', CtxV (x, w, plicity, inductivity)) - 363 | | I.Dec (cQ', I.Decl { name = n; typ = ityp; plicity; inductivity }) -> - 364 | let cQ'' = mctxToCtx cQ' in - 365 | I.Dec (cQ'', FDecl (FV n, Pure (MetaTyp (ityp, plicity, inductivity)))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/abstract.ml", lines 368-384, characters 2-32: - 368 | ..function - 369 | | I.Empty -> I.Empty - 370 | | I.Dec (cQ', FDecl (FV n, Pure (MetaTyp (ityp, _, _)))) -> - 371 | let cQ'' = ctxToMCtx_pattern (n :: names) cQ' in - 372 | I.Dec (cQ'', I.Decl { name = n; typ = ityp; plicity = Plicity.explicit; inductivity = Inductivity.not_inductive }) - ... - 381 | I.Dec (cQ'', I.Decl { name = x; typ =I.CTyp (Some w); plicity; inductivity }) - 382 | - 383 | | I.Dec (cQ', FDecl (_, Impure)) -> - 384 | ctxToMCtx_pattern names cQ' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, FDecl (FV _, Pure (LFTyp _))) - File "src/core/abstract.ml", lines 409-421, characters 2-35: - 409 | ..function - 410 | | (I.Lam (loc, x, tM), s) -> - 411 | let (cQ', tM') = collectTerm p cQ (cvar, offset + 1) (tM, LF.dot1 s) in - 412 | (cQ', I.Lam (loc, x, tM')) - 413 | | (I.Tuple (loc, tuple), s) -> - ... - 418 | let (cQ'', tS') = collectSpine p cQ' phat (tS, s) in - 419 | (cQ'', I.Root (loc, h', tS', plicity)) - 420 | | (I.LFHole (loc, id, name), s) -> - 421 | (cQ, I.LFHole (loc, id, name)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Clo _, _) - File "src/core/abstract.ml", lines 481-485, characters 7-49: - 481 | .......let (cD_d, I.Decl { typ = mtyp; plicity; inductivity; _ }) = Store.FCVar.get name in - 482 | let mtyp' = Whnf.cnormMTyp (mtyp, Int.LF.MShift (p - Context.length cD_d)) in - 483 | if !pat_flag - 484 | then MetaTyp (mtyp', Plicity.explicit, Inductivity.not_inductive) - 485 | else MetaTyp (mtyp', plicity, inductivity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, DeclOpt _) - File "src/core/abstract.ml", lines 512-517, characters 10-11: - 512 | ..........let (cQ', MetaTyp (typ, plicity, inductivity)) = - 513 | addVar loc p cQ (MMV (name, instantiation)) (MetaTyp (typ, plicity, inductivity)) - 514 | in - 515 | ( cQ' - 516 | , I.{ v with typ; plicity; inductivity } - 517 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, LFTyp _) - File "src/core/abstract.ml", lines 615-652, characters 2-26: - 615 | ..function - 616 | | (I.BVar _ as head, _) - 617 | | (I.Const _ as head, _) -> (cQ, head) - 618 | - 619 | | (I.FVar name, _) -> - ... - 649 | - 650 | | (I.Proj (head, j), s) -> - 651 | let (cQ', h') = collectHead k cQ phat loc (head, s) in - 652 | (cQ', I.Proj (h', j)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((AnnH (_, _)|HClo (_, _, _)|HMClo (_, _)), _) - File "src/core/abstract.ml", lines 656-671, characters 2-27: - 656 | ..function - 657 | | (I.Atom (loc, a, tS), s) -> - 658 | let (cQ', tS') = collectSpine p cQ phat (tS, s) in - 659 | (cQ', I.Atom (loc, a, tS')) - 660 | - ... - 668 | - 669 | | (I.Sigma typRec, s) -> - 670 | let (cQ', typRec') = collectTypRec p cQ phat (typRec, s) in - 671 | (cQ', I.Sigma typRec') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/abstract.ml", lines 686-691, characters 2-66: - 686 | ..function - 687 | | (I.Typ, _) -> (cQ, I.Typ) - 688 | | (I.PiKind ((I.TypDecl (x, tA), depend, plicity), tK), s) -> - 689 | let (cQ', tA') = collectTyp p cQ phat (tA, s) in - 690 | let (cQ'', tK') = collectKind p cQ' (cvar, offset + 1) (tK, LF.dot1 s) in - 691 | (cQ'', I.PiKind ((I.TypDecl (x, tA'), depend, plicity), tK')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind ((TypDeclOpt _, _, _), _), _) - File "src/core/abstract.ml", lines 759-761, characters 22-38: - 759 | ......................(I.Decl d) = - 760 | let (cQ', mtyp') = collectMTyp p cQ d.typ in - 761 | (cQ', I.Decl { d with typ = mtyp' }) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/abstract.ml", lines 784-790, characters 2-8: - 784 | ..function - 785 | | (I.Typ, _) -> I.Typ - 786 | | (I.PiKind ((I.TypDecl (x, tA), depend, plicity), tK), s) -> - 787 | I.PiKind - 788 | ( (I.TypDecl (x, abstractTyp cQ offset (tA, s)), depend, plicity) - 789 | , abstractKind cQ (offset + 1) (tK, LF.dot1 s) - 790 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind ((TypDeclOpt _, _, _), _), _) - File "src/core/abstract.ml", lines 795-803, characters 2-8: - 795 | ..function - 796 | | (I.Atom (loc, a, tS), s (* id *)) -> - 797 | I.Atom (loc, a, abstractSpine cQ offset (tS, s)) - 798 | - 799 | | (I.PiTyp ((I.TypDecl (x, tA), depend, plicity), tB), s) -> - 800 | I.PiTyp - 801 | ( (I.TypDecl (x, abstractTyp cQ offset (tA, s)), depend, plicity) - 802 | , abstractTyp cQ (offset + 1) (tB, LF.dot1 s) - 803 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/abstract.ml", lines 818-843, characters 2-8: - 818 | ..function - 819 | | (I.Lam (loc, x, tM), s) -> - 820 | I.Lam (loc, x, abstractTerm cQ (offset + 1) (tM, LF.dot1 s)) - 821 | - 822 | | ( I.(Root - ... - 840 | , abstractHead cQ offset tH - 841 | , abstractSpine cQ offset (tS, s) - 842 | , plicity - 843 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((LFHole (_, _, _)|Clo _|Tuple (_, _)), _) - File "src/core/abstract.ml", lines 846-851, characters 2-59: - 846 | ..function - 847 | | I.BVar _ as tH -> tH - 848 | | I.Const _ as tH -> tH - 849 | | I.FVar n -> I.BVar (index_of cQ (FV n) + offset) - 850 | | I.AnnH _ -> - 851 | Error.raise_not_implemented "[abstractHead] AnnH case" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MMVar _|MPVar _|MVar _|PVar _|Proj (_, _)|FMVar _|FPVar _|HClo (_, _, _)| - HMClo (_, _)) - File "src/core/abstract.ml", lines 855-869, characters 2-85: - 855 | ..match (s, cPsi) with - 856 | | (I.Shift _, I.Null) -> tS - 857 | | (I.Shift k, I.DDec _) -> - 858 | subToSpine cQ offset (I.Dot (I.Head (I.BVar (k + 1)), I.Shift (k + 1)), cPsi) tS - 859 | - ... - 866 | (* subToSpine cQ offset s (I.App (I.Root (I.BVar k, I.Nil), tS)) *) - 867 | - 868 | | (I.Dot (I.Obj tM, s), I.DDec (cPsi', _)) -> - 869 | subToSpine cQ offset (s, cPsi') (I.App (abstractTerm cQ offset (tM, LF.id), tS)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Shift _, CtxVar _) - File "src/core/abstract.ml", lines 880-894, characters 2-48: - 880 | ..function - 881 | | I.Empty -> I.Empty - 882 | | I.Dec (cQ, FDecl (_, Impure)) -> abstractCtx cQ - 883 | | I.Dec (cQ, FDecl (MMV (n, r), Pure (MetaTyp (I.ClTyp (I.MTyp tA, cPsi), plicity, inductivity)))) -> - 884 | let cQ' = abstractCtx cQ in - ... - 891 | | I.Dec (cQ, FDecl (FV f, Pure (LFTyp tA))) -> - 892 | let cQ' = abstractCtx cQ in - 893 | let tA' = abstractTyp cQ 0 (tA, LF.id) in - 894 | I.Dec (cQ', FDecl (FV f, Pure (LFTyp tA'))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec - (_, - FDecl (MMV (_, _), Pure (MetaTyp (ClTyp ((PTyp _|STyp (_, _)), _), _, _)))) - File "src/core/abstract.ml", lines 900-906, characters 2-39: - 900 | ..match cPsi with - 901 | | I.Null -> I.Null - 902 | | I.CtxVar psi -> cPsi - 903 | | I.DDec (cPsi, I.TypDecl (x, tA)) -> - 904 | let cPsi' = abstractDctx cQ cPsi (l - 1) in - 905 | let tA' = abstractTyp cQ (l - 1) (tA, LF.id) in - 906 | I.DDec (cPsi', I.TypDecl (x, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/abstract.ml", lines 930-940, characters 2-20: - 930 | ..function - 931 | | (I.Atom (loc, a, tS), s (* id *)) -> - 932 | I.Atom (loc, a, abstractMVarSpine cQ offset (tS, s)) - 933 | | (I.PiTyp ((I.TypDecl (x, tA), depend, plicity), tB), s) -> - 934 | I.PiTyp - ... - 937 | ) - 938 | | (I.Sigma typRec, s) -> - 939 | let typRec' = abstractMVarTypRec cQ offset (typRec, s) in - 940 | I.Sigma typRec' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/abstract.ml", lines 954-962, characters 2-29: - 954 | ..function - 955 | | (I.Lam (loc, x, tM), s) -> - 956 | I.Lam (loc, x, abstractMVarTerm cQ offset (tM, LF.dot1 s)) - 957 | | (I.Tuple (loc, tuple), s) -> - 958 | I.Tuple (loc, abstractMVarTuple cQ offset (tuple, s)) - 959 | | (I.Root (loc, tH, tS, plicity), s (* LF.id *)) -> - 960 | I.Root (loc, abstractMVarHead cQ offset tH, abstractMVarSpine cQ offset (tS, s), plicity) - 961 | | (I.LFHole (loc, id, name), s) -> - 962 | I.LFHole (loc, id, name) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Clo _, _) - File "src/core/abstract.ml", lines 1000-1036, characters 2-46: - 1000 | ..function - 1001 | | I.BVar _ as mH -> mH - 1002 | | I.Const _ as mH -> mH - 1003 | - 1004 | | I.FPVar ns -> I.PVar (abstractFVarSub cQ loff ns) - ... - 1033 | Error.raise_not_implemented "[abstractMVarHead] AnnH case" - 1034 | - 1035 | | I.Proj (head, k) -> - 1036 | I.Proj (abstractMVarHead cQ loff head, k) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (FVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/abstract.ml", lines 1091-1097, characters 2-39: - 1091 | ..function - 1092 | | I.Null -> I.Null - 1093 | | I.CtxVar cv -> I.CtxVar (abstractCtxVar cQ loff cv) - 1094 | | I.DDec (cPsi, I.TypDecl (x, tA)) -> - 1095 | let cPsi' = abstractMVarDctx cQ loff cPsi in - 1096 | let tA' = abstractMVarTyp cQ loff (tA, LF.id) in - 1097 | I.DDec (cPsi', I.TypDecl (x, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/abstract.ml", lines 1110-1112, characters 30-31: - 1110 | ..............................(I.Decl d) = - 1111 | let mtyp' = abstractMVarMTyp cQ d.typ loff in - 1112 | I.Decl { d with typ = mtyp' } - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/abstract.ml", lines 1121-1138, characters 2-58: - 1121 | ..match cQ with - 1122 | | I.Empty -> I.Empty - 1123 | | I.Dec (cQ, FDecl (v, Pure (MetaTyp (ityp, plicity, inductivity)))) -> - 1124 | let cQ' = abstractMVarCtx cQ (l - 1) in - 1125 | I.Dec (cQ', FDecl (v, Pure (MetaTyp (abstractMVarMTyp cQ ityp (l, 0), plicity, inductivity)))) - ... - 1135 | * is it ever hit on correct code? -jd 2009-02-12 - 1136 | * No. This case should not occur in correct code - bp - 1137 | *) - 1138 | raise (Error (Name.location name, UnknownIdentifier)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, FDecl (MMV _, Pure (LFTyp _))) - File "src/core/abstract.ml", lines 1150-1154, characters 2-20: - 1150 | ..function - 1151 | | I.ClObj (phat, tM) -> - 1152 | I.ClObj (abstractMVarHat cQ off phat, abstrClObj cQ off tM) - 1153 | | I.CObj cPsi -> I.CObj (abstractMVarDctx cQ off cPsi) - 1154 | | I.MV k -> I.MV k - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MUndef - File "src/core/abstract.ml", lines 1167-1179, characters 4-21: - 1167 | ....function - 1168 | | I.Empty -> I.Empty - 1169 | | I.Dec (cQ', FDecl (FV n, Pure (MetaTyp (ityp, plicity, inductivity)))) -> - 1170 | let cQ'' = ctxToMCtx' cQ' in - 1171 | I.Dec (cQ'', I.Decl { name = n; typ = ityp; plicity; inductivity }) - ... - 1176 | let cQ'' = ctxToMCtx' cQ' in - 1177 | I.Dec (cQ'', I.Decl { name = x; typ = I.CTyp (Option.some w); plicity; inductivity }) - 1178 | | I.Dec (cQ', FDecl (_, Impure)) -> - 1179 | ctxToMCtx' cQ' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, FDecl (FV _, Pure (LFTyp _))) - File "src/core/abstract.ml", lines 1208-1217, characters 2-8: - 1208 | ..match cQ with - 1209 | | Int.LF.Empty -> (tA', 0) - 1210 | | Int.LF.Dec (_, FDecl (s, _)) -> - 1211 | let cQ' = abstractCtx cQ in - 1212 | let tA2 = abstractTyp cQ' 0 (tA', LF.id) in - 1213 | let cPsi = ctxToCtx cQ' in - 1214 | begin match raiseType' cPsi tA2 with - 1215 | | (None, tA3) -> (tA3, length' cPsi) - 1216 | | _ -> raise (Error (Location.ghost, LeftoverVars)) - 1217 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CtxV _) - File "src/core/abstract.ml", lines 1246-1287, characters 2-28: - 1246 | ..function - 1247 | | Comp.TypBase (loc, a, ms) -> - 1248 | let (cQ', ms') = collect_meta_spine p cQ ms in - 1249 | (cQ', Comp.TypBase (loc, a, ms')) - 1250 | | Comp.TypCobase (loc, a, ms) -> - ... - 1284 | - 1285 | | Comp.TypInd tau -> - 1286 | let (cQ', tau') = collectCompTyp p cQ tau in - 1287 | (cQ', Comp.TypInd tau') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDef (_, _, _) - File "src/core/abstract.ml", lines 1291-1296, characters 2-54: - 1291 | ..function - 1292 | | I.Empty -> (cQ, I.Empty) - 1293 | | I.Dec (cG, Comp.CTypDecl (x, tau, flag)) -> - 1294 | let (cQ1, cG') = collectGctx cQ cG in - 1295 | let (cQ2, tau') = collectCompTyp 0 cQ1 tau in - 1296 | (cQ2, I.Dec (cG', Comp.CTypDecl (x, tau', flag))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/abstract.ml", lines 1463-1489, characters 2-52: - 1463 | ..function - 1464 | | Comp.TypBase (loc, a, cS) -> - 1465 | let cS' = abstractMVarMetaSpine cQ offset cS in - 1466 | Comp.TypBase (loc, a, cS') - 1467 | | Comp.TypCobase (loc, a, cS) -> - ... - 1486 | ) - 1487 | - 1488 | | Comp.TypInd tau -> - 1489 | Comp.TypInd (abstractMVarCompTyp cQ offset tau) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypDef (_, _, _)|TypClo (_, _)) - File "src/core/abstract.ml", lines 1492-1497, characters 2-47: - 1492 | ..function - 1493 | | I.Empty -> I.Empty - 1494 | | I.Dec (cG, Comp.CTypDecl (x, tau, flag)) -> - 1495 | let cG' = abstractMVarGctx cQ offset cG in - 1496 | let tau' = abstractMVarCompTyp cQ offset tau in - 1497 | I.Dec (cG', Comp.CTypDecl (x, tau', flag)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/abstract.ml", lines 1698-1700, characters 4-48: - 1698 | ....match (p, cD) with - 1699 | | (0, _) -> cD - 1700 | | (_, I.Dec (cD', decl)) -> drop (p - 1) cD' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (1, Empty) - File "src/core/abstract.ml", lines 1722-1724, characters 8-24: - 1722 | ........let I.Dec (cD1', decl) = cD1 in - 1723 | let cD = subtract cD1' cD2 in - 1724 | I.Dec (cD, decl) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Empty - File "src/core/abstract.ml", lines 1785-1789, characters 2-24: - 1785 | ..function - 1786 | | I.Null -> cPsi1 - 1787 | | I.DDec (cPsi2', dec) -> - 1788 | let cPsi1' = appDCtx cPsi1 cPsi2' in - 1789 | I.Dec (cPsi1', dec) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Unify.cmx -c -impl src/core/unify.ml) - File "src/core/unify.ml", lines 163-195, characters 30-70: - 163 | ..............................(Atom (_, a, _) as tP, s) = - 164 | dprintf - 165 | begin fun p -> - 166 | p.fmt "@[<v 6>[genMMVarstr] of type @[%a@]@,in context cPsi = @[%a@]@]" - 167 | (P.fmt_ppr_lf_typ cD cPsi P.l0) (Whnf.normTyp (tP, s)) - ... - 192 | cPsi |- s_proj : cPhi - 193 | cPsi |- comp ss' s_proj : cPhi' *) - 194 | let ss_proj = Substitution.LF.comp ss' s_proj in - 195 | Root (loc, MMVar ((u, Whnf.m_id), ss_proj), Nil, Plicity.explicit) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((PiTyp ((_, _, _), _)|Sigma _|TClo (_, _)), _) - File "src/core/unify.ml", lines 575-585, characters 6-9: - 575 | ......begin match applyMSub k ms with - 576 | | MUndef -> - 577 | (* Psi1, x:tA |- s' <= Psi2 *) - 578 | (Whnf.mcomp mt' (MShift 1), cD2) - 579 | - ... - 582 | A = [mt']([mt']^-1 A) and cPsi = [mt']([mt']^-1 cPsi *) - 583 | let mtt' = Whnf.m_invert (Whnf.cnormMSub mt') in - 584 | (Whnf.mvar_dot1 mt', Dec (cD2, Decl { name = n; typ = Whnf.cnormMTyp (ctyp, mtt'); plicity; inductivity })) - 585 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 566-590, characters 4-38: - 566 | ....match (t, cD1) with - 567 | | (MShift _, Empty) -> (Whnf.m_id, Empty) - 568 | - 569 | | (MShift k, Dec _) -> - 570 | pruneMCtx' cD (MDot (MV (k + 1), MShift (k + 1)), cD1) ms - ... - 587 | | (MDot (MUndef, mt), Dec (cD1, _)) -> - 588 | let (mt', cD2) = pruneMCtx' cD (mt, cD1) ms in - 589 | (* cD1 |- mt' <= cD2 *) - 590 | (Whnf.mcomp mt' (MShift 1), cD2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MDot (MV _, _), Dec (_, DeclOpt _)) - File "src/core/unify.ml", lines 810-819, characters 7-10: - 810 | .......begin match applyMSub u ms with - 811 | | MV v -> - 812 | Root - 813 | ( loc - 814 | , MVar (Offset v, invSub cD0 phat (t', cPsi1) ss rOccur) - 815 | , Nil - 816 | , plicity - 817 | ) - 818 | | MUndef -> raise NotInvertible - 819 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 822-830, characters 7-46: - 822 | .......let (cD_d, Decl { typ = ClTyp (_, cPsi1); _ }) = Store.FCVar.get u in - 823 | let d = Context.length cD0 - Context.length cD_d in - 824 | let cPsi1 = - 825 | if d = 0 - 826 | then cPsi1 - 827 | else Whnf.cnormDCtx (cPsi1, MShift d) - 828 | in - 829 | let s' = invSub cD0 phat (comp t s, cPsi1) ss rOccur in - 830 | Root (loc, FMVar (u, s'), Nil, plicity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp _; _ }) - File "src/core/unify.ml", lines 833-841, characters 7-46: - 833 | .......let (cD_d, Decl { typ = ClTyp (_, cPsi1); _ }) = Store.FCVar.get p in - 834 | let d = Context.length cD0 - Context.length cD_d in - 835 | let cPsi1 = - 836 | if d = 0 - 837 | then cPsi1 - 838 | else Whnf.cnormDCtx (cPsi1, MShift d) - 839 | in - 840 | let s' = invSub cD0 phat (comp t s, cPsi1) ss rOccur in - 841 | Root (loc, FPVar (p, s'), Nil, plicity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp _; _ }) - File "src/core/unify.ml", lines 846-850, characters 7-10: - 846 | .......begin match applyMSub p ms with - 847 | | MV q -> - 848 | Root (loc, PVar (q, invSub cD0 phat (t', cPsi1) ss rOccur), Nil, plicity) - 849 | | MUndef -> raise NotInvertible - 850 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 747-862, characters 4-62: - 747 | ....match sM with - 748 | | (Lam (loc, x, tM), s) -> - 749 | Lam (loc, x, invNorm cD0 ((cvar, offset + 1), (tM, dot1 s), (ms, dot1 ssubst), rOccur)) - 750 | - 751 | | (Root (loc, MVar (Inst u, t), tS, plicity), s) -> - ... - 859 | ) - 860 | - 861 | | (Tuple (loc, trec), s) -> - 862 | Tuple (loc, invTuple cD0 (phat, (trec, s), ss, rOccur)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((LFHole (_, _, _)|Clo _), _) - File "src/core/unify.ml", lines 888-891, characters 7-10: - 888 | .......begin match bvarSub k ssubst with - 889 | | Undef -> raise NotInvertible - 890 | | Head (BVar k') -> BVar k' - 891 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 894-897, characters 7-10: - 894 | .......begin match bvarSub k ssubst with - 895 | | Head (BVar _ as head) -> head - 896 | | Undef -> raise NotInvertible - 897 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 932-936, characters 7-10: - 932 | .......begin match applyMSub u ms with - 933 | | MV v -> - 934 | MVar (Offset v, invSub cD0 phat (t, cPsi1) ss rOccur) - 935 | | MUndef -> raise NotInvertible - 936 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 940-944, characters 7-10: - 940 | .......begin match applyMSub p ms with - 941 | | MV q -> - 942 | PVar (q, invSub cD0 phat (t, cPsi1) ss rOccur) - 943 | | MUndef -> raise NotInvertible - 944 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 948-952, characters 7-10: - 948 | .......begin match applyMSub p ms with - 949 | | MV q -> - 950 | Proj (PVar (q, invSub cD0 phat (t, cPsi1) ss rOccur), i) - 951 | | MUndef -> raise NotInvertible - 952 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 886-952, characters 4-10: - 886 | ....match head with - 887 | | BVar k -> - 888 | begin match bvarSub k ssubst with - 889 | | Undef -> raise NotInvertible - 890 | | Head (BVar k') -> BVar k' - ... - 949 | | MV q -> - 950 | Proj (PVar (q, invSub cD0 phat (t, cPsi1) ss rOccur), i) - 951 | | MUndef -> raise NotInvertible - 952 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Proj - ((Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)), - _) - File "src/core/unify.ml", lines 956-959, characters 4-46: - 956 | ....function - 957 | | Undefs -> raise (Failure "Variable dependency") - 958 | | Shift k -> Shift (n + k) - 959 | | Dot (ft, ss') -> shiftInvSub (n - 1) ss' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub|SVar (_, _, _)|FSVar (_, _)|MSVar (_, _)) - File "src/core/unify.ml", lines 981-985, characters 9-40: - 981 | .........match applyMSub s ms with - 982 | | MV v -> - 983 | let (_, cPhi, _, cPsi') = Whnf.mctxSDec cD0 v in - 984 | (v, cPhi, cPsi') - 985 | | MUndef -> raise NotInvertible - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 1024-1030, characters 7-10: - 1024 | .......begin match applyMSub s ms with - 1025 | | MV v -> - 1026 | let (_, cPhi, _, cPsi1) = Whnf.mctxSDec cD0 v in - 1027 | (* applyMSub to ctx_offset ? *) - 1028 | SVar (v, n, invSub cD0 phat (t, cPsi1) ss rOccur) - 1029 | | MUndef -> raise NotInvertible - 1030 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 1033-1034, characters 7-64: - 1033 | .......let (_, Decl { typ = ClTyp (STyp (LF.Subst, _), cPsi'); _ }) = Store.FCVar.get s_name in - 1034 | FSVar (n, (s_name, invSub cD0 phat (t, cPsi') ss rOccur)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp (STyp (Ren, _), _); _ }) - File "src/core/unify.ml", lines 1063-1069, characters 4-74: - 1063 | ....match (mt, cD1) with - 1064 | | (MShift n, _) -> checkDefined (Whnf.mcomp (MShift n) ms) - 1065 | | (MDot (ClObj (phat, SObj sigma), mt'), Dec (cD', Decl { typ = ClTyp (STyp (_, cPhi), _); _ })) -> - 1066 | let sigma' = invSub cD0 phat (sigma, cPhi) (ms, id) rOccur in - 1067 | MDot (ClObj (phat, SObj sigma'), invMSub cD0 (mt', cD') ms rOccur) - 1068 | | (MDot (mobj, mt'), Dec (cD', _)) -> - 1069 | MDot (invMObj cD0 mobj ms rOccur, invMSub cD0 (mt', cD') ms rOccur) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MDot (_, _), Empty) - File "src/core/unify.ml", lines 1072-1080, characters 4-90: - 1072 | ....match mobj with - 1073 | | MV n -> - 1074 | begin match applyMSub n ms with - 1075 | | MUndef -> raise NotInvertible - 1076 | | ft -> ft - 1077 | end - 1078 | | ClObj (phat, MObj tM) -> ClObj (phat, MObj (invNorm cD0 (phat, (tM, id), (ms, id), rOccur))) - 1079 | | CObj cPsi -> Error.raise_violation "Not implemented" - 1080 | | ClObj (phat, PObj h) -> ClObj (phat, PObj (invHead cD0 (phat, h, (ms, id), rOccur))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, SObj _) - File "src/core/unify.ml", lines 1152-1154, characters 7-80: - 1152 | .......let Shift 0 = s in (* Assert s is supposed to be the identity *) - 1153 | let newHead = pruneHead cD0 cPsi' (loc, head) ss rOccur in - 1154 | Root (loc, newHead, pruneSpine cD0 cPsi' phat (tS, s) ss rOccur, plicity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Shift 1 - File "src/core/unify.ml", lines 1124-1154, characters 4-80: - 1124 | ....match sM with - 1125 | | (LFHole _ as n, _) -> n - 1126 | | (Lam (loc, x, tM), s) -> - 1127 | dprintf - 1128 | begin fun p -> - ... - 1151 | | (Root (loc, head, tS, plicity), s) -> - 1152 | let Shift 0 = s in (* Assert s is supposed to be the identity *) - 1153 | let newHead = pruneHead cD0 cPsi' (loc, head) ss rOccur in - 1154 | Root (loc, newHead, pruneSpine cD0 cPsi' phat (tS, s) ss rOccur, plicity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Clo _, _) - File "src/core/unify.ml", lines 1173-1184, characters 4-9: - 1173 | ....let ClTyp (tp, cPsi1) = mmvar.typ in - 1174 | if eq_cvarRef (MMVarRef mmvar.instantiation) rOccur - 1175 | then raise (Failure "Variable occurrence") - 1176 | else - 1177 | begin - ... - 1181 | instantiateMMVarWithMMVar mmvar.instantiation loc (v, id2) tP' mmvar.constraints.contents; - 1182 | let (mr, r) = comp2 (comp2 id2 mtt) ss in - 1183 | ((v, mr), r) - 1184 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1187-1199, characters 4-37: - 1187 | ....let ClTyp (MTyp tP, cPsi1) = mmvar.typ in - 1188 | if eq_cvarRef (MMVarRef mmvar.instantiation) rOccur - 1189 | then raise (Failure "Variable occurrence") - 1190 | else - 1191 | let (idsub, cPsi2) = pruneSub cD0 cPsi' (Context.dctxToHat cPsi') (t, cPsi1) ss rOccur in - ... - 1196 | , Root (loc, MVar (v, idsub), Nil, Plicity.explicit) - 1197 | , mmvar.constraints.contents - 1198 | ); - 1199 | (v, comp (comp idsub t) ssubst) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/unify.ml", lines 1202-1211, characters 3-10: - 1202 | ...let (cD_d, Decl { typ = ClTyp (_, cPsi1); _ }) = Store.FCVar.get u in - 1203 | let d = Context.length cD0 - Context.length cD_d in - 1204 | let cPsi1 = - 1205 | if d = 0 - 1206 | then cPsi1 - 1207 | else Whnf.cnormDCtx (cPsi1, MShift d) - 1208 | in - 1209 | let t' = simplifySub cD0 cPsi t in - 1210 | let s' = invSub cD0 (Context.dctxToHat cPsi) (t', cPsi1) ss rOccur in - 1211 | (u, s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp _; _ }) - File "src/core/unify.ml", lines 1216-1219, characters 7-14: - 1216 | .......let (_, ClTyp (_, cPsi1)) = Whnf.mctxLookup cD0 v in - 1217 | let t' = simplifySub cD0 cPsi t in - 1218 | let s' = pruneSubst cD0 cPsi (t', cPsi1) ss rOccur in - 1219 | (v, s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, CTyp _) - File "src/core/unify.ml", lines 1214-1220, characters 4-63: - 1214 | ....match applyMSub u ms with - 1215 | | MV v -> - 1216 | let (_, ClTyp (_, cPsi1)) = Whnf.mctxLookup cD0 v in - 1217 | let t' = simplifySub cD0 cPsi t in - 1218 | let s' = pruneSubst cD0 cPsi (t', cPsi1) ss rOccur in - 1219 | (v, s') - 1220 | | MUndef -> raise (Failure "[Prune] Bound MVar dependency") - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 1246-1254, characters 7-10: - 1246 | .......begin match bvarSub k ssubst with - 1247 | | Undef -> - 1248 | let s = - 1249 | Format.asprintf "[Prune] Bound variable dependency : head = %a" - 1250 | (P.fmt_ppr_lf_head cD0 cPsi' P.l0) head - 1251 | in - 1252 | raise (Failure s) - 1253 | | Head (BVar _ as h') -> h' - 1254 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1223-1258, characters 4-11: - 1223 | ....match head with - 1224 | | MMVar ((i, mt), t) -> - 1225 | MMVar (pruneMMVarInst cD0 cPsi' loc i (mt, t) ss rOccur) - 1226 | | MVar (Inst i, t) -> - 1227 | MVar (pruneMVarInst cD0 cPsi' loc i (Whnf.normSub t) ss rOccur) - ... - 1255 | - 1256 | | Const _ - 1257 | | FVar _ -> - 1258 | head - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (AnnH (_, _)|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1293-1317, characters 4-57: - 1293 | ....match (s, cPsi1) with - 1294 | | (EmptySub, Null) -> EmptySub - 1295 | | (Undefs, Null) -> EmptySub - 1296 | | (Shift n, DDec _) -> - 1297 | pruneSubst cD cPsi (Dot (Head (BVar (n + 1)), Shift (n + 1)), cPsi1) ss rOccur - ... - 1314 | - 1315 | | (Dot _, _) - 1316 | | (EmptySub, _) - 1317 | -> Error.raise_violation "Badly typed substitution" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Undefs, (CtxVar _|DDec (_, _))) - File "src/core/unify.ml", lines 1321-1323, characters 4-70: - 1321 | ....match ft with - 1322 | | Obj tM -> Obj (prune cD cPsi (Context.dctxToHat cPsi) (tM, id) ss rOccur) - 1323 | | Head h -> Head (pruneHead cD cPsi (Location.ghost, h) ss rOccur) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Undef - File "src/core/unify.ml", lines 1354-1357, characters 9-59: - 1354 | .........function - 1355 | | Undefs -> (EmptySub, Null) - 1356 | | Shift k -> (id, CtxVar psi) - 1357 | | Dot (ft, ssubst') -> shiftInvSub (n - 1) ssubst' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub|SVar (_, _, _)|FSVar (_, _)|MSVar (_, _)) - File "src/core/unify.ml", lines 1370-1374, characters 9-40: - 1370 | .........match applyMSub s mt with - 1371 | | MV v -> - 1372 | let (_, _, _, cPsi') = Whnf.mctxSDec cD0 v in - 1373 | cPsi' - 1374 | | MUndef -> raise NotInvertible - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ClObj (_, _)|CObj _) - File "src/core/unify.ml", lines 1387-1390, characters 7-18: - 1387 | .......let ClTyp (STyp (_, cPhi2), cPhi1) = mmvar.typ in - 1388 | let cPhi1' = Whnf.cnormDCtx (cPhi1, Whnf.m_id) in - 1389 | ignore (invSub cD0 phat (sigma, cPhi1') ss rOccur); - 1390 | (id, cPsi1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((MTyp _|PTyp _), _) - File "src/core/unify.ml", lines 1398-1400, characters 7-18: - 1398 | .......let (_, Decl { typ = ClTyp (STyp _, cPsi'); _ }) = Store.FCVar.get s in - 1399 | ignore (invSub cD0 phat (sigma, cPsi') ss rOccur); - 1400 | (id, cPsi1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((MTyp _|PTyp _), _); _ }) - File "src/core/unify.ml", lines 1407-1426, characters 7-10: - 1407 | .......begin match bvarSub n ssubst with - 1408 | | Undef -> - 1409 | let (s1', cPsi1') = pruneSub' cD0 cPsi phat (s', cPsi') ss rOccur in - 1410 | (comp s1' shift, cPsi1') - 1411 | - ... - 1423 | in - 1424 | (* cPsi1' |- s1_i <= cPsi' *) - 1425 | (dot1 s1', DDec (cPsi1', TypDecl (x, TClo (tA, s1_i)))) - 1426 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1431-1448, characters 7-10: - 1431 | .......begin match bvarSub n ssubst with - 1432 | | Undef -> - 1433 | let (s1', cPsi1') = pruneSub' cD0 cPsi phat (s', cPsi') ss rOccur in - 1434 | (comp s1' shift, cPsi1') - 1435 | - ... - 1445 | in - 1446 | (* cPsi1' |- s1_i <= cPsi' *) - 1447 | (dot1 s1', DDec (cPsi1', TypDecl (x, TClo (tA, s1_i)))) - 1448 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1343-1471, characters 4-31: - 1343 | ....match (s, cPsi1) with - 1344 | | (Shift n, DDec _) -> - 1345 | pruneSub' cD0 cPsi phat (Dot (Head (BVar (n + 1)), Shift (n + 1)), cPsi1) ss rOccur - 1346 | | (Shift _, Null) - 1347 | | (EmptySub, Null) - ... - 1468 | - 1469 | | (Dot (Undef, t), DDec (cPsi1, _)) -> - 1470 | let (s1', cPsi1') = pruneSub' cD0 cPsi phat (t, cPsi1) ss rOccur in - 1471 | (comp s1' shift, cPsi1') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub, (CtxVar _|DDec (_, _))) - File "src/core/unify.ml", lines 1474-1487, characters 4-21: - 1474 | ....match sA with - 1475 | | (Atom (loc, a, tS), s) -> Atom (loc, a, pruneSpine cD0 cPsi phat (tS, s) (mss, ss) rOccur) - 1476 | | (PiTyp ((TypDecl (x, tA), depend, plicity), tB), s) -> - 1477 | let tA' = pruneTyp cD0 cPsi phat (tA, s) (mss, ss) rOccur in - 1478 | let tB' = pruneTyp cD0 cPsi phat (tB, dot1 s) (mss, dot1 ss) rOccur in - ... - 1484 | - 1485 | | (Sigma typ_rec, s) -> - 1486 | let typ_rec' = pruneTypRec cD0 cPsi phat (typ_rec, s) (mss, ss) rOccur in - 1487 | Sigma typ_rec' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TClo _, _) - File "src/core/unify.ml", lines 1504-1507, characters 7-10: - 1504 | .......begin match applyMSub psi ms with - 1505 | | CObj (cPsi') -> Whnf.normDCtx cPsi' - 1506 | | MV k -> CtxVar (CtxOffset k) - 1507 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MUndef|ClObj (_, _)) - File "src/core/unify.ml", lines 1510-1514, characters 7-10: - 1510 | .......begin match mmvar.instantiation.contents with - 1511 | | None -> cPsi - 1512 | | Some (ICtx cPhi) -> - 1513 | pruneDCtx cD cPhi (Whnf.mcomp theta ms) rOccur - 1514 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/unify.ml", lines 1501-1529, characters 4-37: - 1501 | ....match cPsi with - 1502 | | Null -> Null - 1503 | | CtxVar (CtxOffset psi) -> - 1504 | begin match applyMSub psi ms with - 1505 | | CObj (cPsi') -> Whnf.normDCtx cPsi' - ... - 1526 | (ms, Substitution.LF.id) - 1527 | rOccur - 1528 | in - 1529 | DDec (cPsi', TypDecl (x, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/unify.ml", lines 1574-1583, characters 7-10: - 1574 | .......begin match bvarSub k ssubst with - 1575 | | Undef -> - 1576 | (* Psi1, x:tA |- s' <= Psi2 *) - 1577 | (comp s' shift, cPsi2) - 1578 | - 1579 | | Head (BVar _) -> - 1580 | (* Psi1, x:A |- s' <= Psi2, x:([s']^-1 A) since - 1581 | A = [s']([s']^-1 A) *) - 1582 | (dot1 s', DDec (cPsi2, TypDecl (x, TClo (tA, invert (Whnf.normSub s'))))) - 1583 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1590-1599, characters 7-10: - 1590 | .......begin match bvarSub k ssubst with - 1591 | | Undef -> - 1592 | (* Psi1, x:tA |- s' <= Psi2 *) - 1593 | (comp s' shift, cPsi2) - 1594 | - 1595 | | Head (BVar _) -> - 1596 | (* Psi1, x:A |- s' <= Psi2, x:([s']^-1 A) since - 1597 | A = [s']([s']^-1 A) *) - 1598 | (dot1 s', DDec (cPsi2, TypDecl (x, TClo (tA, invert (Whnf.normSub s'))))) - 1599 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _| - FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/unify.ml", lines 1551-1604, characters 4-29: - 1551 | ....match (t, cPsi1) with - 1552 | | (EmptySub, Null) - 1553 | | (Undefs, Null) - 1554 | | (Shift _, Null) -> - 1555 | (id, Null) - ... - 1601 | | (Dot (Undef, t), DDec (cPsi1, _)) -> - 1602 | let (s', cPsi2) = pruneCtx' phat (t, cPsi1) ss in - 1603 | (* sP1 |- s' <= cPsi2 *) - 1604 | (comp s' shift, cPsi2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub, (CtxVar _|DDec (_, _))) - File "src/core/unify.ml", lines 1646-1651, characters 4-56: - 1646 | ....match (sTup1, sTup2) with - 1647 | | ((Last tM, s1), (Last tN, s2)) -> - 1648 | unifyTerm mflag cD0 cPsi (tM, s1) (tN, s2) - 1649 | | ((Cons (tM, tup1), s1), (Cons (tN, tup2), s2)) -> - 1650 | (unifyTerm mflag cD0 cPsi (tM, s1) (tN, s2); - 1651 | unifyTuple mflag cD0 cPsi (tup1, s1) (tup2, s2)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Last _, _), (Cons (_, _), _)) - File "src/core/unify.ml", lines 1654-1680, characters 4-9: - 1654 | ....let ClTyp (_, cPsi1) = mmvar.typ in - 1655 | if isId t1' - 1656 | then instantiateMVar (mmvar.instantiation, sM2, mmvar.constraints.contents) - 1657 | else - 1658 | begin - ... - 1677 | (* This might actually need to add a constraint, in which case - 1678 | "NotInvertible" seems the wrong kind of exception... *) - 1679 | Error.raise_violation "Unification violation" - 1680 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1694-1705, characters 9-35: - 1694 | .........match Whnf.whnfTyp sA with - 1695 | | (LF.PiTyp ((LF.TypDecl (n, tA), _, _), tB), s) -> - 1696 | (* cPsi' |- Pi x:A.B <= typ - 1697 | cPsi |- s <= cPsi' - 1698 | cPsi |- tN <= [s]tA - ... - 1702 | let tS = genSpine cD1 cPsi1 (tB, LF.Dot (LF.Obj tN, s)) in - 1703 | LF.App (tN, tS) - 1704 | - 1705 | | (LF.Atom _, _) -> LF.Nil - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/unify.ml", lines 1683-1710, characters 4-15: - 1683 | ....let ClTyp (_, cPsi1) = mmvar.typ in - 1684 | match sM2 with - 1685 | | Root (loc, Const c, _, plicity) -> - 1686 | let tA = (Store.Cid.Term.get c).Store.Cid.Term.Entry.typ in - 1687 | dprintf - ... - 1707 | let tM1 = Root (loc, Const c, genSpine mmvar.cD cPsi1 (tA, id), plicity) in - 1708 | instantiateMVar (mmvar.instantiation, tM1, mmvar.constraints.contents); - 1709 | Some tM1 - 1710 | | _ -> None - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1716-1729, characters 6-32: - 1716 | ......match Whnf.whnfTyp sA with - 1717 | | (LF.PiTyp ((LF.TypDecl (n, tA), _, _), tB), s) -> - 1718 | (* cPsi' |- Pi x:A.B <= typ - 1719 | cPsi |- s <= cPsi' - 1720 | cPsi |- tN <= [s]tA - ... - 1726 | in - 1727 | let tS = genSpine cD1 cPsi1 (tB, LF.Dot (LF.Obj tN, s)) in - 1728 | LF.App (tN, tS) - 1729 | | (LF.Atom _, _) -> LF.Nil - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/unify.ml", lines 1714-1762, characters 4-15: - 1714 | ....let ClTyp (MTyp tB, cPsi1) = mmvar.typ in - 1715 | let rec genSpine cD1 cPsi1 sA = - 1716 | match Whnf.whnfTyp sA with - 1717 | | (LF.PiTyp ((LF.TypDecl (n, tA), _, _), tB), s) -> - 1718 | (* cPsi' |- Pi x:A.B <= typ - ... - 1759 | instantiateMMVar (mmvar.instantiation, tM1, mmvar.constraints.contents); - 1760 | Some tM1 - 1761 | - 1762 | | _ -> None - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/unify.ml", lines 1766-1769, characters 4-79: - 1766 | ....match tm with - 1767 | | (INorm n, _) -> INorm (prune cD cPsi hat (n, id) ss rOccur) - 1768 | | (IHead h, _) -> IHead (pruneHead cD cPsi (Location.ghost, h) ss rOccur) - 1769 | | (ISub s, STyp (_, cPhi)) -> ISub (pruneSubst cD cPsi (s, cPhi) ss rOccur) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ISub _, (MTyp _|PTyp _)) - File "src/core/unify.ml", lines 1772-1796, characters 4-9: - 1772 | ....let ClTyp (tp, cPsi1) = mmvar.typ in - 1773 | if isId t1' && isMId mt1 - 1774 | then - 1775 | begin - 1776 | dprint (fun () -> "[unifyMMVarTerm] 200 - id/m_id"); - ... - 1793 | (* with | NotInvertible -> Error.raise_violation "Unification violation" *) - 1794 | (* This might actually need to add a constraint, in which case "NotInvertible" seems - 1795 | the wrong kind of exception... *) - 1796 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1810-1882, characters 4-76: - 1810 | ....let ClTyp (_, cPsi1) = mmvar.typ in - 1811 | let mtt1 = Whnf.m_invert (Whnf.cnormMSub mt1) in - 1812 | (* cD |- mtt1 : cD0 and cD ; cPsi |- t1' : cPsi1 *) - 1813 | let (flat_cPsi, conv_list) = ConvSigma.flattenDCtx cD0 cPsi in - 1814 | let s_tup = ConvSigma.gen_tup_sub conv_list in (* flat_cPsi |- s_tup : cPsi *) - ... - 1879 | p.fmt "[unifyMMVarTermProj]: tM2 (after pruning) = %a" - 1880 | (P.fmt_ppr_lf_normal cD0 flat_cPsi P.l0) tM2' - 1881 | end; - 1882 | instantiateMMVar (mmvar.instantiation, sM2', mmvar.constraints.contents) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1885-1918, characters 4-102: - 1885 | ....let ClTyp (tp1, cPsi1) = mmvar1.typ in - 1886 | let (s', cPsi') = intersection (Context.dctxToHat cPsi) (Whnf.normSub t1') (Whnf.normSub t2') cPsi1 in - 1887 | (* if cD ; cPsi |- t1' <= cPsi1 and cD ; cPsi |- t2' <= cPsi1 - 1888 | then cD ; cPsi1 |- s' <= cPsi' *) - 1889 | let (mt', cD') = m_intersection (Whnf.cnormMSub mt1) (Whnf.cnormMSub mt2) mmvar1.cD in - ... - 1915 | [|w[s']/u|](u[t1]) = [t1](w[s']) - 1916 | [|w[s']/u|](u[t2]) = [t2](w[s']) - 1917 | *) - 1918 | instantiateMMVarWithMMVar mmvar1.instantiation loc (w, (mt', s')) tp1' mmvar1.constraints.contents - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/unify.ml", lines 1934-1975, characters 7-12: - 1934 | .......let ClTyp (MTyp tP2, cPsi2) = mmvar2.typ in - 1935 | dprnt "(000) MVar-MVar"; - 1936 | (* by invariant of whnf: - 1937 | meta-variables are lowered during whnf, s1 = s2 = id or co-id - 1938 | r1 and r2 are uninstantiated (None) - ... - 1972 | begin - 1973 | let id = next_constraint_id () in - 1974 | addConstraint (mmvar1.constraints, ref (Eqn (id, cD0, cPsi, INorm sN, INorm sM))) - 1975 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/unify.ml", lines 1933-1975, characters 7-12: - 1933 | .......let ClTyp (MTyp tP1, cPsi1) = mmvar1.typ in - 1934 | let ClTyp (MTyp tP2, cPsi2) = mmvar2.typ in - 1935 | dprnt "(000) MVar-MVar"; - 1936 | (* by invariant of whnf: - 1937 | meta-variables are lowered during whnf, s1 = s2 = id or co-id - ... - 1972 | begin - 1973 | let id = next_constraint_id () in - 1974 | addConstraint (mmvar1.constraints, ref (Eqn (id, cD0, cPsi, INorm sN, INorm sM))) - 1975 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/unify.ml", lines 2439-2452, characters 4-52: - 2439 | ....match (spine1, spine2) with - 2440 | | ((Nil, _), (Nil, _)) -> () - 2441 | - 2442 | | ((SClo (tS1, s1'), s1), sS) -> - 2443 | unifySpine mflag cD0 cPsi (tS1, comp s1' s1) sS - ... - 2449 | (* dprint (fun () -> "[unifySpine] " ^ P.normalToString cD0 cPsi (tM1, s1) ^ - 2450 | " == " ^ P.normalToString cD0 cPsi (tM2, s2));*) - 2451 | unifyTerm mflag cD0 cPsi (tM1, s1) (tM2, s2); - 2452 | unifySpine mflag cD0 cPsi (tS1, s1) (tS2, s2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Nil, _), (App (_, _), _)) - File "src/core/unify.ml", lines 2659-2710, characters 7-61: - 2659 | .......let CTyp schema1, CTyp schema2 = mmvar1.typ, mmvar2.typ in - 2660 | if mmvar1.instantiation == mmvar2.instantiation - 2661 | then - 2662 | if Option.equal Id.cid_schema_equal schema1 schema2 - 2663 | then - ... - 2707 | Error.raise_violation - 2708 | "Case where both meta-substitutions associated with \ - 2709 | context variables are not pattern substitutions \ - 2710 | should not happen and is not implemented for now" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CTyp _, ClTyp (_, _)) - File "src/core/unify.ml", lines 2714-2747, characters 7-61: - 2714 | .......let CTyp s_cid = mmvar.typ in - 2715 | if isPatMSub theta - 2716 | then - 2717 | begin - 2718 | let mtt1 = Whnf.m_invert (Whnf.cnormMSub theta) in - ... - 2744 | Error.raise_violation - 2745 | "Case where both meta-substitutions associated with \ - 2746 | context variables are not pattern substitutions \ - 2747 | should not happen and is not implemented for now" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (_, _) - File "src/core/unify.ml", lines 2785-2786, characters 4-43: - 2785 | ....let Decl { typ = cT; _ } = cdecl in - 2786 | unifyMObj cD (mO, t) (mO', t') (cT, mt) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/unify.ml", lines 2820-2832, characters 7-53: - 2820 | .......let Comp.PiKind (_, cdecl, cK') = cK in - 2821 | let mOt = Whnf.cnormMetaObj (mO, t) in - 2822 | (* let mOt' = Whnf.cnormMetaObj (mO', t') in *) - 2823 | unifyMetaObj cD (mO, t) (mO', t') (cdecl, mt); - 2824 | let mt' = MDot (Comp.metaObjToMFront mOt, mt) in - ... - 2829 | P.(fmt_ppr_cmp_meta_typ cD) (Whnf.cnormMTyp (mT', t')) - 2830 | end; - 2831 | unifyMetaTyp cD (mT, t) (mT', t'); - 2832 | unifyMetaSpine cD (mS, t) (mS', t') (cK', mt') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Ctype _ - File "src/core/unify.ml", lines 2837-2840, characters 4-81: - 2837 | ....function - 2838 | | (MTyp tA1, MTyp tA2) -> unifyTyp Unification cD cPsi (tA1, id) (tA2, id) - 2839 | | (PTyp tA1, PTyp tA2) -> unifyTyp Unification cD cPsi (tA1, id) (tA2, id) - 2840 | | (STyp (_, cPhi1), STyp (_, cPhi2)) -> unifyDCtx1 Unification cD cPhi1 cPhi2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MTyp _, (PTyp _|STyp (_, _))) - File "src/core/unify.ml", lines 2836-2840, characters 17-81: - 2836 | .................Unification cD cPsi = - 2837 | function - 2838 | | (MTyp tA1, MTyp tA2) -> unifyTyp Unification cD cPsi (tA1, id) (tA2, id) - 2839 | | (PTyp tA1, PTyp tA2) -> unifyTyp Unification cD cPsi (tA1, id) (tA2, id) - 2840 | | (STyp (_, cPhi1), STyp (_, cPhi2)) -> unifyDCtx1 Unification cD cPhi1 cPhi2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Matching - File "src/core/unify.ml", lines 2842-2850, characters 18-57: - 2842 | ..................Unification cD ctyp1 ctyp2 = - 2843 | match (ctyp1, ctyp2) with - 2844 | | (ClTyp (tp1, cPsi1), ClTyp (tp2, cPsi2)) -> - 2845 | unifyDCtx1 Unification cD cPsi1 cPsi2; - 2846 | unifyClTyp Unification cD cPsi1 (tp1, tp2) - 2847 | | (CTyp schema1, CTyp schema2) -> - 2848 | if Bool.not (Option.equal Id.cid_schema_equal schema1 schema2) - 2849 | then raise (Failure "CtxPi schema clash") - 2850 | | _ -> raise (Failure "Computation-level Type Clash") - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Matching - File "src/core/unify.ml", lines 2938-2941, characters 4-62: - 2938 | ....match (itM1, itM2) with - 2939 | | (INorm tM1, INorm tM2) -> unifyTerm Unification cD cPsi (tM1, id) (tM2, id) - 2940 | | (IHead tH1, IHead tH2) -> unifyHead Unification cD cPsi tH1 tH2 - 2941 | | (ISub s1, ISub s2) -> unifySub Unification cD cPsi s1 s2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (INorm _, (IHead _|ISub _|ICtx _)) - File "src/core/unify.ml", lines 2950-2962, characters 7-10: - 2950 | .......begin match !cnstr with - 2951 | | Queued id -> - 2952 | forceCnstr mflag (nextCnstr ()) - 2953 | | Eqn (c_id, cD, cPsi, INorm tM1, INorm tM2) -> - 2954 | solveConstraint cnstr; - ... - 2959 | solveConstraint cnstr; - 2960 | unifyHead mflag cD cPsi h1 h2; - 2961 | forceCnstr mflag (nextCnstr ()) - 2962 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Eqn (_, _, _, INorm _, (IHead _|ISub _|ICtx _)) - File "src/core/unify.ml", lines 2994-3029, characters 7-100: - 2994 | .......let Eqn (_, cD, cPsi, itM1, itM2) as c' = !c in - 2995 | solveConstraint c; - 2996 | dprintf - 2997 | begin fun p -> - 2998 | p.fmt "[forceGlobalCnstr'] @[<v>processing nontrivial constraint\ - ... - 3026 | *) - 3027 | if solvedCnstrs (!globalCnstrs) - 3028 | then (resetGlobalCnstrs (); forceGlobalCnstr' cnstrs) - 3029 | else raise (GlobalCnstrFailure (Location.ghost, "[forceGlobalCnstr'] Constraints generated")) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Queued _ - File "src/core/unify.ml", lines 3197-3199, characters 8-68: - 3197 | ........match (m1, m2) with - 3198 | | (MObj tM1, MObj tM2) -> unify Empty cPsi (tM1, id) (tM2,id) - 3199 | | (PObj h, PObj h') -> unifyHead Unification Empty cPsi h h' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MObj _, (PObj _|SObj _)) - File "src/core/unify.ml", lines 3203-3212, characters 4-49: - 3203 | ....match (m1, m2) with - 3204 | | (CObj cPsi, CObj cPhi) -> - 3205 | unifyDCtx1 - 3206 | Unification - 3207 | Empty - 3208 | (Whnf.cnormDCtx (cPsi, Whnf.m_id)) - 3209 | (Whnf.cnormDCtx (cPhi, Whnf.m_id)) - 3210 | | (ClObj (phat1, m1), ClObj (phat2, m2)) -> - 3211 | (* unify_phat phat1 phat2; *) - 3212 | unifyClObj (Context.hatToDCtx phat1) m1 m2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CObj _, (MUndef|ClObj (_, _)|MV _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Opsem.cmx -c -impl src/core/opsem.ml) - File "src/core/opsem.ml", lines 80-83, characters 2-30: - 80 | ..match cM' with - 81 | | LF.ClObj (phat, LF.MObj tM) -> (loc, cM') - 82 | | LF.ClObj (phat, LF.PObj h) -> (loc, cM') - 83 | | LF.CObj cPsi -> (loc, cM') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClObj (_, SObj _) - File "src/core/opsem.ml", lines 121-137, characters 7-17: - 121 | .......function - 122 | | Comp.NilValBranch -> FunBranch Comp.NilValBranch - 123 | | Comp.ConsValBranch ((Comp.PatObs(_, cid', _, Comp.PatNil), e, theta, eta), br) - 124 | when Id.cid_comp_dest_equal cid cid' -> - 125 | Value (eval_exp e (theta, eta)) (* should we append theta' and eta'? *) - ... - 134 | | Value v -> Value v - 135 | end - 136 | | Comp.ConsValBranch ((Comp.PatObs(_, cid', _, ps), e, _, _), br) -> - 137 | trim br - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ConsValBranch (((PatNil|PatApp (_, _, _)), _, _, _), _) - File "src/core/opsem.ml", lines 119-142, characters 5-8: - 119 | .....let Comp.FunValue fbr = eval_exp e (theta, eta) in - 120 | let rec trim = - 121 | function - 122 | | Comp.NilValBranch -> FunBranch Comp.NilValBranch - 123 | | Comp.ConsValBranch ((Comp.PatObs(_, cid', _, Comp.PatNil), e, theta, eta), br) - ... - 139 | begin match trim fbr with - 140 | | FunBranch fr -> Comp.FunValue fr - 141 | | Value v -> v - 142 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (FnValue (_, _, _, _)|ThmValue (_, _, _, _)|MLamValue (_, _, _, _)| - CtxValue (_, _, _, _)|BoxValue (_, _)|ConstValue _|DataValue (_, _)| - TupleValue (T (_, _, _))) - File "src/core/opsem.ml", lines 91-290, characters 2-50: - 91 | ..match i with - 92 | | Comp.Const (_, cid) -> - 93 | dprint (fun () -> "[eval_exp] Const " ^ R.render_cid_prog cid); - 94 | begin match (Store.Cid.Comp.get cid).Store.Cid.Comp.Entry.prog with - 95 | | Some (Comp.ThmValue (cid, Comp.Program e', theta', eta')) -> - ... - 287 | eval_branches loc vscrut branches (theta, eta) - 288 | - 289 | | Comp.Hole (_) -> - 290 | Error.raise_violation "Source contains holes" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MApp (_, _, (_, ClObj (_, SObj _)), _, _) - File "src/core/opsem.ml", lines 321-325, characters 2-36: - 321 | ..match (cObj, cObj') with - 322 | | (LF.MObj tM, LF.MObj tM') -> - 323 | Unify.unify LF.Empty cPsi' (tM, Substitution.LF.id) (tM', Substitution.LF.id) - 324 | | (LF.PObj h, LF.PObj h') -> - 325 | Unify.unifyH LF.Empty phat h h' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MObj _, (PObj _|SObj _)) - File "src/core/opsem.ml", lines 437-458, characters 4-10: - 437 | ....function - 438 | | Comp.NilValBranch -> FunBranch (Comp.NilValBranch) - 439 | | Comp.ConsValBranch ((Comp.PatApp (_, p, Comp.PatNil), e, theta, eta), brs) -> - 440 | begin try - 441 | let eta' = match_pattern (v, eta) (p, theta) in - ... - 455 | eval_branch brs - 456 | | Unify.Failure msg -> (dprint (fun () -> "Branch failed : " ^ msg); - 457 | eval_branch brs) - 458 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ConsValBranch (((PatNil|PatObs (_, _, _, _)), _, _, _), _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Lfcheck.cmx -c -impl src/core/lfcheck.ml) - File "src/core/lfcheck.ml", lines 225-230, characters 2-19: - 225 | ..function - 226 | | Null -> Ctxsub.ctxShift cPhi (* S.LF.id *) - 227 | | DDec (cPsi', TypDecl (n, tA)) -> - 228 | let s = (ctxToSub' cPhi cPsi' : sub) in - 229 | let u = Whnf.etaExpandMV cPhi (tA, s) n S.LF.id Plicity.implicit Inductivity.not_inductive in - 230 | Dot (Obj u, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/lfcheck.ml", lines 246-330, characters 2-55: - 246 | ..match (sM, sA) with - 247 | | ((Lam (loc, name, tM), s1), (PiTyp ((TypDecl _ as tX, _, _), tB), s2)) -> (* Offset by 1 *) - 248 | check cD - 249 | (DDec (cPsi, S.LF.decSub tX s2)) - 250 | (tM, S.LF.dot1 s1) - ... - 327 | raise (Error (loc, (CheckError (cD, cPsi, sM, sA)))) - 328 | end - 329 | | ((Root (loc, _, _, _), _ (* id *)), _ ) -> - 330 | raise (Error (loc, CheckError (cD, cPsi, sM, sA))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Clo _, _), _) - File "src/core/lfcheck.ml", lines 361-370, characters 4-23: - 361 | ....match (tS, sA) with - 362 | | ((Nil, _), sP) -> sP - 363 | - 364 | | ((SClo (tS, s'), s), sA) -> - 365 | syn (tS, S.LF.comp s' s) sA - 366 | - 367 | | ((App (tM, tS), s1), (PiTyp ((TypDecl (_, tA1), _, _), tB2), s2)) -> - 368 | check cD cPsi (tM, s1) (tA1, s2); - 369 | let tB2 = Whnf.whnfTyp (tB2, Dot (Obj (Clo (tM, s1)), s2)) in - 370 | syn (tS, s1) tB2 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((App (_, _), _), (PiTyp ((TypDeclOpt _, _, _), _), _)) - File "src/core/lfcheck.ml", lines 346-377, characters 16-23: - 346 | ................(Root (loc, h, tS, _), s (* id *)) = - 347 | let rec spineLength = - 348 | function - 349 | | Nil -> 0 - 350 | | SClo (tS, _) -> spineLength tS - ... - 374 | (* Check first that we didn't supply too many arguments. *) - 375 | if typLength sA' < spineLength tS - 376 | then raise (Error (loc, SpineIllTyped (typLength sA', spineLength tS))); - 377 | syn (tS, s) (sA', s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)), _) - File "src/core/lfcheck.ml", lines 393-394, characters 5-7: - 393 | .....let TypDecl (_, tA) = ctxDec cPsi k' in - 394 | tA - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfcheck.ml", lines 400-409, characters 10-25: - 400 | ..........let TypDecl (_, Sigma recA) = ctxSigmaDec cPsi k' in - 401 | dprintf - 402 | begin fun p -> - 403 | p.fmt "[InferHead] @[<v>%a |- %a@,where %a has type %a@]" - 404 | (P.fmt_ppr_lf_dctx cD P.l0) cPsi - 405 | (P.fmt_ppr_lf_head cD cPsi P.l0) head - 406 | (P.fmt_ppr_lf_head cD cPsi P.l0) tuple_head - 407 | (P.fmt_ppr_lf_typ_rec cD cPsi P.l0) recA - 408 | end; - 409 | (recA, S.LF.id) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDecl (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _))) - File "src/core/lfcheck.ml", lines 411-413, characters 10-19: - 411 | ..........let (_, Sigma recA, cPsi') = Whnf.mctxPDec cD p in - 412 | checkSub loc cD cPsi s Subst cPsi'; - 413 | (recA, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _)), _) - File "src/core/lfcheck.ml", lines 398-414, characters 7-64: - 398 | .......match tuple_head with - 399 | | BVar k' -> - 400 | let TypDecl (_, Sigma recA) = ctxSigmaDec cPsi k' in - 401 | dprintf - 402 | begin fun p -> - ... - 411 | let (_, Sigma recA, cPsi') = Whnf.mctxPDec cD p in - 412 | checkSub loc cD cPsi s Subst cPsi'; - 413 | (recA, s) - 414 | | FPVar (name, _) -> raise (Error (loc, LeftoverFV name)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfcheck.ml", lines 446-457, characters 5-17: - 446 | .....let ClTyp (MTyp tA, cPsi') = mmvar.typ in - 447 | dprintf - 448 | begin fun p -> - 449 | let f = P.fmt_ppr_lf_dctx cD P.l0 in - 450 | p.fmt "[inferHead] @[<v>%a@,%a |- %a <= %a@]" - ... - 454 | f cPsi' - 455 | end; - 456 | checkSub loc cD cPsi s Subst cPsi' ; - 457 | TClo (tA, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/lfcheck.ml", lines 461-474, characters 5-37: - 461 | .....let ClTyp (MTyp tA, cPsi') = mmvar.typ in - 462 | dprintf - 463 | begin fun p -> - 464 | let f = P.fmt_ppr_lf_mctx P.l0 in - 465 | p.fmt "[inferHead] @[<v>MMVar %a@,cD = %a@,t' = %a@,cD' = %a@]" - ... - 471 | checkMSub loc cD t' mmvar.cD; - 472 | dprint (fun () -> "[inferHead] MMVar - msub done \n"); - 473 | checkSub loc cD cPsi r Subst (Whnf.cnormDCtx (cPsi', t')) ; - 474 | TClo (Whnf.cnormTyp (tA, t'), r) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/lfcheck.ml", lines 391-506, characters 2-41: - 391 | ..match (head, cl) with - 392 | | (BVar k', _) -> - 393 | let TypDecl (_, tA) = ctxDec cPsi k' in - 394 | tA - 395 | - ... - 503 | TClo (tA, s) - 504 | - 505 | | (FVar name, _) | (FMVar (name, _), _) | (FPVar (name, _), _) -> - 506 | raise (Error (loc, LeftoverFV name)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MVar (Inst _, _), Subst) - (However, some guarded clause may match this value.) - File "src/core/lfcheck.ml", lines 509-528, characters 2-13: - 509 | ..match cPsi with - 510 | | Null -> true (* we need to succeed because coverage should detect that - 511 | it is not inhabited *) - 512 | - 513 | | CtxVar ctx_var -> - ... - 525 | - 526 | | DDec (rest, TypDecl _) -> - 527 | canAppear cD rest head sA loc - 528 | || false........................................... - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/lfcheck.ml", lines 643-655, characters 2-23: - 643 | ..match sS1, sK with - 644 | | (Nil, _), sK -> - 645 | sK - 646 | - 647 | | (SClo (tS, s'), s), sK -> - ... - 652 | synKSpine cD cPsi (tS, s1) (kK, Dot (Obj (Clo (tM, s1)), s2)) - 653 | - 654 | | (App _, _), (Typ, _) -> - 655 | raise SpineMismatch - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((App (_, _), _), (PiKind ((TypDeclOpt _, _, _), _), _)) - File "src/core/lfcheck.ml", lines 664-681, characters 2-47: - 664 | ..match tA with - 665 | | Atom (loc, a, tS) -> - 666 | let tK = (Store.Cid.Typ.get a).Store.Cid.Typ.Entry.kind in - 667 | begin - 668 | try - ... - 678 | checkTyp cD cPsi (tA, s); - 679 | checkTyp cD (DDec (cPsi, TypDecl (x, TClo (tA, s)))) (tB, S.LF.dot1 s) - 680 | - 681 | | Sigma arec -> checkTypRec cD cPsi (arec, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/lfcheck.ml", lines 710-714, characters 2-53: - 710 | ..function - 711 | | Typ -> () - 712 | | PiKind ((TypDecl (x, tA), _, _), kind) -> - 713 | checkTyp cD cPsi (tA, S.LF.id); - 714 | checkKind cD (DDec (cPsi, TypDecl (x, tA))) kind - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiKind ((TypDeclOpt _, _, _), _) - File "src/core/lfcheck.ml", lines 724-725, characters 2-47: - 724 | ..match decl with - 725 | | TypDecl (_, tA) -> checkTyp cD cPsi (tA, s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfcheck.ml", lines 734-754, characters 2-7: - 734 | ..match cPsi with - 735 | | Null -> () - 736 | | DDec (cPsi, tX) -> - 737 | checkDCtx cD cPsi; - 738 | checkDec cD cPsi (tX, S.LF.id) - ... - 751 | (P.fmt_ppr_lf_mctx P.l0) cD - 752 | end; - 753 | ignore (Whnf.mctxLookup cD k); - 754 | () - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar (CtxName _|CInst _) - File "src/core/lfcheck.ml", lines 962-963, characters 5-47: - 962 | .....let Some (ICtx cPhi) = mmvar.instantiation.contents in - 963 | checkSchema loc cD cPhi schema_name schema - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (INorm _|IHead _|ISub _) - File "src/core/lfcheck.ml", lines 1019-1027, characters 2-57: - 1019 | ..match (sArec, sBrec) with - 1020 | | ((SigmaLast _, _), (SigmaLast _, _)) -> - 1021 | None - 1022 | - 1023 | | ((SigmaElem (_, _, recA), s), (SigmaLast _, _)) -> - 1024 | Some (recA, s) - 1025 | - 1026 | | ((SigmaElem (_, _, recA), s), (SigmaElem (_, _, recB), s')) -> - 1027 | elemPostfix (recA, S.LF.dot1 s) (recB, S.LF.dot1 s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((SigmaLast (_, _), _), (SigmaElem (_, _, _), _)) - File "src/core/lfcheck.ml", lines 1075-1101, characters 2-69: - 1075 | ..match (cM, cTt) with - 1076 | | (CObj cPsi, (CTyp (Some w), _)) -> - 1077 | let { Store.Cid.Schema.Entry.name; schema } = Store.Cid.Schema.get w in - 1078 | checkSchema loc cD cPsi name schema - 1079 | - ... - 1098 | let mtyp1 = Whnf.cnormMTyp (mtyp1, t) in - 1099 | let (_, mtyp2) = Whnf.mctxLookup cD u in - 1100 | if Bool.not (Whnf.convMTyp mtyp1 mtyp2) - 1101 | then Error.raise_violation ("Contextual substitution ill-typed") - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CObj _, (CTyp None, _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Total.cmx -c -impl src/core/total.ml) - File "src/core/total.ml", lines 31-45, characters 6-9: - 31 | ......begin match (x, args) with - 32 | | (_, []) -> - 33 | Format.dprintf "Recursive call is incompatible with valid automatically generated recursive calls. \n Report as a bug." - 34 | | (Comp.M (cM, _ ), (Comp.M (cM', _ ) :: _)) -> - 35 | Format.dprintf "Recursive call is incompatible with valid automatically generated recursive calls. \nBeluga cannot establish that the given recursive call is a size-preserving variant of it.\nArgument found: %a@\nArgument expected: %a@" - ... - 42 | - 43 | | (Comp.V _, _) -> - 44 | Format.dprintf "Recursive call is incompatible with valid automatically generated recursive calls. \n\n Found computation-level variable while generated recursive call expected a meta-object.\n\nCheck specified totality declaration." - 45 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (M (_, _), (E|DC)::_) - File "src/core/total.ml", lines 138-141, characters 2-56: - 138 | ..function - 139 | | LF.Empty -> LF.Empty - 140 | | LF.Dec (cG, Comp.CTypDecl (x, tau, _)) -> - 141 | LF.Dec (mark_gctx cG, Comp.CTypDecl (x, tau, true)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/total.ml", lines 155-157, characters 2-40: - 155 | ..function - 156 | | None -> " _ " - 157 | | Some (Comp.Arg x) -> string_of_int x - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (Lex _|Simul _) - File "src/core/total.ml", line 249, characters 25-43: - 249 | let xs = List.map (fun (Arg x) -> x) xs in - ^^^^^^^^^^^^^^^^^^ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lex _|Simul _) - File "src/core/total.ml", lines 245-258, characters 4-41: - 245 | ....match dec.order with - 246 | | `inductive (Arg x) -> - 247 | (dec.name, Some [x], (tau, Whnf.m_id)) - 248 | | `inductive (Lex xs) -> - 249 | let xs = List.map (fun (Arg x) -> x) xs in - ... - 255 | | `not_recursive - 256 | | `trust - 257 | | `partial -> - 258 | (dec.name, None, (tau, Whnf.m_id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - `inductive (Simul _) - File "src/core/total.ml", lines 331-332, characters 19-32: - 331 | ...................(LF.Decl { name = x; typ = cU; _ }) = - 332 | (gen_var' loc cD (x, cU) , cU) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/total.ml", lines 404-413, characters 2-31: - 404 | ..function - 405 | | [] -> [] - 406 | | Comp.M (cM, cU) :: args -> - 407 | if uninstantiated_arg cM - 408 | then Comp.DC :: generalize args - 409 | else Comp.M (cM, cU) :: generalize args - 410 | | Comp.V x :: args -> - 411 | Comp.V x :: generalize args - 412 | | Comp.DC :: args -> - 413 | Comp.DC :: generalize args - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - E::_ - File "src/core/total.ml", lines 445-455, characters 19-34: - 445 | ...................(1, n) (LF.SchElem (some_part, block_part)) = - 446 | let sArec = - 447 | match Whnf.whnfTyp (tA, Substitution.LF.id) with - 448 | | (LF.Sigma tArec, s') -> (tArec, s') - 449 | | (tA', s') -> (LF.SigmaLast (None, tA'), s') in - ... - 452 | try - 453 | Unify.unifyTypRec cD cPsi (block_part, dctxSub) sArec; - 454 | Some (b, tA) - 455 | with Unify.Failure _ -> None.................................................................. - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (0, _) - File "src/core/total.ml", lines 509-511, characters 6-47: - 509 | ......let LF.ClTyp (LF.MTyp tA, cPsi) = cU in - 510 | (Unify.unifyMetaTyp cD (cU , Whnf.m_id) (cU0, Whnf.m_id); - 511 | gen_meta_obj (k, Substitution.LF.id) cU) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/total.ml", lines 544-592, characters 2-30: - 544 | ..function - 545 | | (0, ttau) -> ([], Whnf.cnormCTyp ttau) - 546 | | (1, (Comp.TypPiBox (_, LF.Decl { typ = cU'; _ }, tau), theta)) -> - 547 | let cU0 = Whnf.cnormMTyp (cU', theta) in - 548 | begin - ... - 589 | - 590 | | (n, (Comp.TypArr (_, _, tau2), theta)) -> - 591 | let (spine, tau_r) = rec_spine cD (k, cU) (n - 1, (tau2, theta)) in - 592 | (Comp.DC :: spine, tau_r) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (2, - ((TypBase (_, _, _)|TypCobase (_, _, _)|TypDef (_, _, _)|TypBox (_, _)| - TypCross (_, _)|TypClo (_, _)|TypInd _), - _)) - File "src/core/total.ml", lines 595-619, characters 2-30: - 595 | ..function - 596 | | (0, ttau) -> ([], Whnf.cnormCTyp ttau) - 597 | - 598 | | (1, (Comp.TypPiBox _, _)) -> - 599 | raise Not_compatible (* Error *) - ... - 616 | - 617 | | (n, (Comp.TypArr (_, _, tau2), theta)) -> - 618 | let (spine, tau_r) = rec_spine' cD (x, ttau0) (n - 1, (tau2, theta)) in - 619 | (Comp.DC :: spine, tau_r) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (1, - ((TypBase (_, _, _)|TypCobase (_, _, _)|TypDef (_, _, _)|TypBox (_, _)| - TypCross (_, _)|TypClo (_, _)|TypInd _), - _)) - File "src/core/total.ml", lines 622-713, characters 2-43: - 622 | ..match cD' with - 623 | | LF.Empty -> cIH - 624 | - 625 | | LF.Dec (cD', LF.Decl { name = u; typ = cU; inductivity = Inductivity.Not_inductive; _ }) -> - 626 | dprintf - ... - 710 | dprintf (fun p -> p.fmt "[gen_rec_calls] for j = %d@\n" j); - 711 | let cIH' = mk_all (cIH, j) mf_list in - 712 | dprintf (fun p -> p.fmt "[gen_rec_calls] for j = %d" (j + 1)); - 713 | gen_rec_calls cD cIH' (cD', j + 1) mfs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/total.ml", lines 725-791, characters 2-47: - 725 | ..match cG0 with - 726 | | LF.Empty -> cIH - 727 | | LF.Dec (cG', Comp.CTypDecl (x, tau0, false)) -> - 728 | gen_rec_calls' cD cG cIH (cG', j + 1) mfs - 729 | - ... - 788 | mk_all cIH' mf_list - 789 | in - 790 | let cIH' = mk_all cIH mf_list in - 791 | gen_rec_calls' cD cG cIH' (cG', j + 1) mfs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/total.ml", lines 860-868, characters 2-69: - 860 | ..match cPsi with - 861 | (* cPsi |- tA *) - 862 | | LF.Null -> None - 863 | | LF.CtxVar _ -> None - 864 | | LF.DDec (cPsi, LF.TypDecl (_, tB)) -> - 865 | if Whnf.convTyp (tA, Substitution.LF.invShift) (tB, Substitution.LF.id) - 866 | then Some k - 867 | else - 868 | pos cPsi (Whnf.normTyp (tA, Substitution.LF.invShift)) (k + 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/total.ml", lines 1087-1111, characters 5-8: - 1087 | .....begin - 1088 | match prefixDCtx cD cPsi cPsi0 (* cPsi0 = cPsi, cPsi1 *) , - 1089 | prefix_hat - 1090 | (Whnf.cnorm_psihat phat Whnf.m_id) - 1091 | (Whnf.cnorm_psihat phat' Whnf.m_id) - ... - 1108 | end ; - 1109 | (l, LF.ClObj (Context.extend_hatctx k phat0, LF.MObj (Whnf.norm (tM, dot_k s_proj k)))) , LF.ClTyp (Whnf.normClTyp (tA , dot_k s_proj k), padctx cPsi' k) - 1110 | end - 1111 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Some _, None) - File "src/core/total.ml", lines 1121-1124, characters 5-87: - 1121 | .....let LF.Root (_, tH', _, _) = - 1122 | Whnf.norm (LF.Root (l, tH, LF.Nil, Plicity.explicit), s_proj) - 1123 | in - 1124 | (l, LF.ClObj (phat0, LF.PObj tH')) , LF.ClTyp (Whnf.normClTyp (tA, s_proj), cPsi') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)) - File "src/core/total.ml", lines 1134-1140, characters 2-65: - 1134 | ..match args with - 1135 | | [] -> [] - 1136 | | Comp.DC :: args -> Comp.DC :: shiftArgs cD args (cPsi', s_proj, cPsi) - 1137 | | Comp.V x :: args -> Comp.V x :: shiftArgs cD args (cPsi', s_proj, cPsi) - 1138 | | Comp.M (cM, cU ) :: args -> - 1139 | let cM' , cU'= shiftMetaObj cD (cM , cU) (cPsi', s_proj, cPsi) in - 1140 | Comp.M (cM', cU') :: shiftArgs cD args (cPsi', s_proj, cPsi) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - E::_ - File "src/core/total.ml", lines 1316-1337, characters 2-40: - 1316 | ..function - 1317 | | Comp.TypBase (loc, c, _) -> - 1318 | Bool.not (Id.cid_comp_typ_equal a c) - 1319 | && begin match (Store.Cid.CompTyp.get c).Store.Cid.CompTyp.Entry.positivity with - 1320 | | Sgn.Positivity -> true - ... - 1334 | | Comp.TypArr (_, tau1, tau2) -> no_occurs a tau1 && no_occurs a tau2 - 1335 | | Comp.TypCross (_, taus) -> List2.for_all (no_occurs a) taus - 1336 | | Comp.TypPiBox (_, _, tau') -> no_occurs a tau' - 1337 | | Comp.TypClo _ -> raise Unimplemented - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypInd _ - File "src/core/total.ml", lines 1340-1360, characters 2-40: - 1340 | ..function - 1341 | | Comp.TypBase (loc, c, _) -> - 1342 | Id.cid_comp_typ_equal a c - 1343 | || begin match (Store.Cid.CompTyp.get c).Store.Cid.CompTyp.Entry.positivity with - 1344 | | Sgn.Positivity -> true - ... - 1357 | | Comp.TypArr (_, tau1, tau2) -> no_occurs a tau1 && check_positive a tau2 - 1358 | | Comp.TypCross (_, taus) -> List2.for_all (check_positive a) taus - 1359 | | Comp.TypPiBox (_, _, tau') -> check_positive a tau' - 1360 | | Comp.TypClo _ -> raise Unimplemented - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypInd _ - File "src/core/total.ml", lines 1364-1372, characters 2-40: - 1364 | ..function - 1365 | | Comp.TypBase _ -> true - 1366 | | Comp.TypCobase _ -> true - 1367 | | Comp.TypDef _ -> raise Unimplemented - 1368 | | Comp.TypBox _ -> true - 1369 | | Comp.TypArr (_, tau1, tau2) -> check_positive a tau1 && positive a tau2 - 1370 | | Comp.TypCross (_, taus) -> List2.for_all (positive a) taus - 1371 | | Comp.TypPiBox (_, _, tau') -> positive a tau' - 1372 | | Comp.TypClo _ -> raise Unimplemented - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypInd _ - File "src/core/total.ml", lines 1492-1531, characters 2-27: - 1492 | ..match tau1 with - 1493 | | Comp.TypBase (loc, c, mS1) -> - 1494 | if Id.cid_comp_typ_equal a c - 1495 | then - 1496 | begin - ... - 1528 | | Comp.TypBox _ - 1529 | | Comp.TypClo _ - 1530 | | Comp.TypCobase _ - 1531 | | Comp.TypDef _ -> true - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypInd _ - File "src/core/total.ml", lines 1555-1580, characters 8-48: - 1555 | ........function - 1556 | | Comp.TypBase _ - 1557 | | Comp.TypCobase _ - 1558 | | Comp.TypBox _ -> true - 1559 | - ... - 1577 | | Comp.TypPiBox (_, dec, tau') -> strat (LF.Dec (cD0, dec)) tau' - 1578 | - 1579 | | Comp.TypDef _ - 1580 | | Comp.TypClo _ -> raise Unimplemented - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypInd _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Coverage.cmx -c -impl src/core/coverage.ml) - File "src/core/coverage.ml", line 76, characters 21-63: - 76 | Context.find' cG (fun (CTypDecl (y, _, _)) -> Name.(x = y)) - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/coverage.ml", lines 75-78, characters 2-5: - 75 | ..let Some (CTypDecl (_, tau, _)) = - 76 | Context.find' cG (fun (CTypDecl (y, _, _)) -> Name.(x = y)) - 77 | in - 78 | tau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (CTypDeclOpt _) - File "src/core/coverage.ml", lines 189-204, characters 20-37: - 189 | ....................(LF.Atom (_, a, _) as tP) = - 190 | let (cPhi, lazy s_proj, lazy s_tup) = ConvSigma.gen_flattening cD cPsi in - 191 | (* cPsi |- s_proj : cPhi - 192 | cPhi |- s_tup : cPsi - 193 | cPhi |- tQ where cPsi |- tP !! tQ = [s_tup]tP !! *) - ... - 201 | cPsi |- s_proj : cPhi - 202 | cPsi |- comp ss' s_proj : cPhi' *) - 203 | let ss_proj = S.LF.comp ss' s_proj in - 204 | (ss_proj, (cPhi', LF.tclo tQ ssi')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((_, _, _), _)|Sigma _|TClo (_, _)) - File "src/core/coverage.ml", lines 208-212, characters 4-74: - 208 | ....match tA with - 209 | | LF.Atom _ -> LF.Root (Location.ghost, tH, tS, Plicity.explicit) - 210 | | LF.PiTyp ((LF.TypDecl (x, tB0), _, _), tB) -> - 211 | let tM = eta (tB0, s) LF.Nil in - 212 | LF.Lam (Location.ghost, x, eta (tB, S.LF.dot1 s) (LF.App (tM, tS))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/coverage.ml", lines 265-275, characters 4-58: - 265 | ....function - 266 | | MetaSub (cPsi, s, LF.STyp (_, cPhi)) -> - 267 | fprintf ppf "%a |- %a : %a" - 268 | (P.fmt_ppr_lf_dctx cD P.l0) cPsi - 269 | (P.fmt_ppr_lf_sub cD cPsi P.l0) s - ... - 272 | fprintf ppf "%a |- %a : %a" - 273 | (P.fmt_ppr_lf_dctx cD P.l0) cPsi - 274 | (P.fmt_ppr_lf_normal cD cPsi P.l0) tR - 275 | (P.fmt_ppr_lf_typ cD cPsi P.l0) (Whnf.normTyp sA) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MetaSub (_, _, (MTyp _|PTyp _)) - File "src/core/coverage.ml", lines 298-302, characters 4-73: - 298 | ....function - 299 | | CovCtx cPsi -> fmt_ppr_covctx cD ppf cPsi - 300 | | CovSub (cPsi, s, LF.STyp (_, cPhi)) -> fmt_ppr_covsub cD ppf (cPsi, s, cPhi) - 301 | | CovGoal (cPsi, tR, sA) -> fmt_ppr_covgoal cD ppf (cPsi, tR, sA) - 302 | | CovPatt (cG, patt, ttau) -> fmt_ppr_covpatt cD ppf (cG, patt, ttau) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CovSub (_, _, (MTyp _|PTyp _)) - File "src/core/coverage.ml", lines 477-478, characters 7-73: - 477 | .......let Comp.TypBox (_, mT) = tau_sc in - 478 | check_meta_obj cD_p mO (Whnf.cnormMTyp (mT, t)) && is_id cD_p t cD - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypBase (_, _, _)|TypCobase (_, _, _)|TypDef (_, _, _)|TypArr (_, _, _)| - TypCross (_, T (_, _, _))|TypPiBox (_, _, _)|TypClo (_, _)|TypInd _) - File "src/core/coverage.ml", lines 539-540, characters 9-44: - 539 | .........let LF.TypDecl (_, tA') = Context.ctxDec cPsi' k' in - 540 | Yes ((tA, S.LF.id), (tA', S.LF.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 537-541, characters 7-10: - 537 | .......begin - 538 | let LF.TypDecl (_, tA) = Context.ctxDec cPsi k in - 539 | let LF.TypDecl (_, tA') = Context.ctxDec cPsi' k' in - 540 | Yes ((tA, S.LF.id), (tA', S.LF.id)) - 541 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 574-613, characters 5-8: - 574 | .....let LF.MPVar (_, s') as tH' = Whnf.cnormHead (tH', t) in - 575 | dprintf - 576 | begin fun p -> - 577 | p.fmt "[pre_match_head] @[<v>pvar - case\ - 578 | @,pattern: @[@[%a@]@ |- @[%a@]@]\ - ... - 610 | end; - 611 | SplitCand - 612 | (* CtxSplitCand (pre_match_dctx cD cD_p cPsi cPsi_p [] []) *) - 613 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (BVar _|Const _|MMVar (({instantiation=_; constraints=_; _ }, _), _)| - MVar (_, _)|PVar (_, _)|AnnH (_, _)|Proj (_, _)|FVar _|FMVar (_, _)| - FPVar (_, _)|HClo (_, _, _)| - HMClo (_, (({instantiation=_; constraints=_; _ }, _), _))) - File "src/core/coverage.ml", lines 632-633, characters 9-44: - 632 | .........let LF.TypDecl (_, tA') = Context.ctxDec cPsi' k' in - 633 | Yes ((tA, S.LF.id), (tA', S.LF.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 630-634, characters 7-10: - 630 | .......begin - 631 | let LF.TypDecl (_, tA) = Context.ctxDec cPsi k in - 632 | let LF.TypDecl (_, tA') = Context.ctxDec cPsi' k' in - 633 | Yes ((tA, S.LF.id), (tA', S.LF.id)) - 634 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 689-702, characters 5-59: - 689 | .....let LF.PiTyp ((tdecl', _, _), tB'), s' = Whnf.whnfTyp sA' in - 690 | let covGoal' = - 691 | CovGoal - 692 | ( LF.DDec (cPsi, S.LF.decSub tdecl s) - 693 | , tM, (tB, S.LF.dot1 s) - ... - 699 | , tN, (tB', S.LF.dot1 s') - 700 | ) - 701 | in - 702 | pre_match cD cD_p covGoal' patt' matchCands splitCands - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Atom (_, _, _)|Sigma _|TClo (_, _)), _) - File "src/core/coverage.ml", lines 688-702, characters 5-59: - 688 | .....let LF.PiTyp ((tdecl, _, _), tB), s = Whnf.whnfTyp sA in - 689 | let LF.PiTyp ((tdecl', _, _), tB'), s' = Whnf.whnfTyp sA' in - 690 | let covGoal' = - 691 | CovGoal - 692 | ( LF.DDec (cPsi, S.LF.decSub tdecl s) - ... - 699 | , tN, (tB', S.LF.dot1 s') - 700 | ) - 701 | in - 702 | pre_match cD cD_p covGoal' patt' matchCands splitCands - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Atom (_, _, _)|Sigma _|TClo (_, _)), _) - File "src/core/coverage.ml", lines 686-731, characters 2-8: - 686 | ..match (tM, tN) with - 687 | | (LF.Lam (_, x, tM), LF.Lam (_, _, tN)) -> - 688 | let LF.PiTyp ((tdecl, _, _), tB), s = Whnf.whnfTyp sA in - 689 | let LF.PiTyp ((tdecl', _, _), tB'), s' = Whnf.whnfTyp sA' in - 690 | let covGoal' = - ... - 728 | (Eqn (covGoal, patt) :: matchCands, splitCands) - 729 | - 730 | | SplitCand -> (matchCands, Split (covGoal, patt) :: splitCands) - 731 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _), (Root (_, _, _, _)|LFHole (_, _, _)|Clo _|Tuple (_, _))) - File "src/core/coverage.ml", lines 678-731, characters 2-8: - 678 | ..let MetaPatt (cPhi, tN, sA') = patt in - 679 | dprintf - 680 | begin fun p -> - 681 | p.fmt "[pre_match] @[<v>cov goal: @[%a@]\ - 682 | @,pattern: @[%a@]@]" - ... - 728 | (Eqn (covGoal, patt) :: matchCands, splitCands) - 729 | - 730 | | SplitCand -> (matchCands, Split (covGoal, patt) :: splitCands) - 731 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MetaSub (_, _, _)|GenPatt (_, _, (_, _))) - File "src/core/coverage.ml", lines 677-731, characters 2-8: - 677 | ..let CovGoal (cPsi, tM, sA) = covGoal in - 678 | let MetaPatt (cPhi, tN, sA') = patt in - 679 | dprintf - 680 | begin fun p -> - 681 | p.fmt "[pre_match] @[<v>cov goal: @[%a@]\ - ... - 728 | (Eqn (covGoal, patt) :: matchCands, splitCands) - 729 | - 730 | | SplitCand -> (matchCands, Split (covGoal, patt) :: splitCands) - 731 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovCtx _|CovSub (_, _, _)|CovPatt (_, _, (_, _))) - File "src/core/coverage.ml", lines 738-752, characters 5-18: - 738 | .....let LF.PiTyp ((LF.TypDecl (_, tC1), _, _), tC2), s' = Whnf.whnfTyp sA' in - 739 | let covGoal1 = CovGoal (cPsi, tM, (tB1, s)) in - 740 | let patt1 = MetaPatt (cPsi', tM', (tC1, s')) in - 741 | let sB2' = (tB2, LF.Dot (LF.Obj (tM), s)) in - 742 | let sC2' = (tC2, LF.Dot (LF.Obj (tM'), s')) in - ... - 749 | (cPsi, tS, sB2') - 750 | (cPsi', tS', sC2') - 751 | matchCands' - 752 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/coverage.ml", lines 737-752, characters 5-18: - 737 | .....let LF.PiTyp ((LF.TypDecl (_, tB1), _, _), tB2), s = Whnf.whnfTyp sA in - 738 | let LF.PiTyp ((LF.TypDecl (_, tC1), _, _), tC2), s' = Whnf.whnfTyp sA' in - 739 | let covGoal1 = CovGoal (cPsi, tM, (tB1, s)) in - 740 | let patt1 = MetaPatt (cPsi', tM', (tC1, s')) in - 741 | let sB2' = (tB2, LF.Dot (LF.Obj (tM), s)) in - ... - 749 | (cPsi, tS, sB2') - 750 | (cPsi', tS', sC2') - 751 | matchCands' - 752 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/coverage.ml", lines 734-752, characters 2-18: - 734 | ..match (tS, tS') with - 735 | | (LF.Nil, LF.Nil) -> (matchCands, splitCands) - 736 | | (LF.App (tM, tS), LF.App (tM', tS')) -> - 737 | let LF.PiTyp ((LF.TypDecl (_, tB1), _, _), tB2), s = Whnf.whnfTyp sA in - 738 | let LF.PiTyp ((LF.TypDecl (_, tC1), _, _), tC2), s' = Whnf.whnfTyp sA' in - ... - 749 | (cPsi, tS, sB2') - 750 | (cPsi', tS', sC2') - 751 | matchCands' - 752 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Nil, (App (_, _)|SClo _)) - File "src/core/coverage.ml", lines 787-791, characters 5-63: - 787 | .....let LF.TypDecl (_, tA1) = tdecl1 in - 788 | let covGoal = CovSub (cPsi0, s0, LF.STyp (r0, cPhi0)) in - 789 | let patt = MetaSub (cPsi1, s1, LF.STyp (r1, cPhi1)) in - 790 | let (matchCands', splitCands') = pre_match_front cD cD_p (cPhi0, f0, tA0) (cPhi1, f1, tA1) matchCands splitCands in - 791 | pre_match_sub cD cD_p covGoal patt matchCands' splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 786-791, characters 5-63: - 786 | .....let LF.TypDecl (_, tA0) = tdecl0 in - 787 | let LF.TypDecl (_, tA1) = tdecl1 in - 788 | let covGoal = CovSub (cPsi0, s0, LF.STyp (r0, cPhi0)) in - 789 | let patt = MetaSub (cPsi1, s1, LF.STyp (r1, cPhi1)) in - 790 | let (matchCands', splitCands') = pre_match_front cD cD_p (cPhi0, f0, tA0) (cPhi1, f1, tA1) matchCands splitCands in - 791 | pre_match_sub cD cD_p covGoal patt matchCands' splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 757-810, characters 2-74: - 757 | ..match ((s0, cPhi0), (s1, cPhi1)) with - 758 | | ((LF.EmptySub, LF.Null), (LF.EmptySub, LF.Null)) -> (matchCands, splitCands) - 759 | | ((LF.Shift k, _), (LF.Shift n, _)) -> - 760 | if n = k - 761 | then (matchCands, splitCands) - ... - 807 | - 808 | | ((LF.SVar _, _), _) -> (matchCands, Split (covGoal, patt) :: splitCands) - 809 | - 810 | | (_, (LF.SVar _, _)) -> (Eqn (covGoal, patt) :: matchCands, splitCands) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Shift _, _), - (Dot - (Head - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)| - FVar _|FMVar _|FPVar _|HClo (_, _, _)|HMClo (_, _)), - _), - _)) - File "src/core/coverage.ml", lines 756-810, characters 2-74: - 756 | ..let MetaSub (cPsi1, s1, (LF.STyp (r1, cPhi1) as sT1)) = patt in - 757 | match ((s0, cPhi0), (s1, cPhi1)) with - 758 | | ((LF.EmptySub, LF.Null), (LF.EmptySub, LF.Null)) -> (matchCands, splitCands) - 759 | | ((LF.Shift k, _), (LF.Shift n, _)) -> - 760 | if n = k - ... - 807 | - 808 | | ((LF.SVar _, _), _) -> (matchCands, Split (covGoal, patt) :: splitCands) - 809 | - 810 | | (_, (LF.SVar _, _)) -> (Eqn (covGoal, patt) :: matchCands, splitCands) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MetaSub (_, _, (MTyp _|PTyp _)) - File "src/core/coverage.ml", lines 755-810, characters 2-74: - 755 | ..let CovSub (cPsi0, s0, (LF.STyp (r0, cPhi0) as sT0)) = covGoal in - 756 | let MetaSub (cPsi1, s1, (LF.STyp (r1, cPhi1) as sT1)) = patt in - 757 | match ((s0, cPhi0), (s1, cPhi1)) with - 758 | | ((LF.EmptySub, LF.Null), (LF.EmptySub, LF.Null)) -> (matchCands, splitCands) - 759 | | ((LF.Shift k, _), (LF.Shift n, _)) -> - ... - 807 | - 808 | | ((LF.SVar _, _), _) -> (matchCands, Split (covGoal, patt) :: splitCands) - 809 | - 810 | | (_, (LF.SVar _, _)) -> (Eqn (covGoal, patt) :: matchCands, splitCands) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CovSub (_, _, (MTyp _|PTyp _)) - File "src/core/coverage.ml", lines 813-824, characters 2-57: - 813 | ..match (f0, f1) with - 814 | | (LF.Head h0, LF.Head h1) -> - 815 | let tM0 = eta_expand (h0, tA0) in - 816 | let tM1 = eta_expand (h1, tA1) in - 817 | let covGoal = CovGoal (cPhi0, tM0, (tA0, S.LF.id)) in - ... - 821 | | (LF.Obj tM0, LF.Obj tM1) -> - 822 | let covGoal = CovGoal (cPhi0, tM0, (tA0, S.LF.id)) in - 823 | let patt = MetaPatt (cPhi1, tM1, (tA1, S.LF.id)) in - 824 | pre_match cD cD_p covGoal patt matchCands splitCands - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Head _, (Undef|Obj _)) - File "src/core/coverage.ml", lines 833-845, characters 5-18: - 833 | .....let LF.PiKind ((LF.TypDecl (_, tC), _, _), tK2), s' = sK' in - 834 | let covGoal1 = CovGoal (cPsi, tM, (tB, s)) in - 835 | let patt1 = MetaPatt (cPsi', tM', (tC, s')) in - 836 | let sK1' = (tK1, LF.Dot (LF.Obj tM, s)) in - 837 | let sK2' = (tK2, LF.Dot (LF.Obj tM', s')) in - ... - 842 | (cPsi, tS, sK1') - 843 | (cPsi', tS', sK2') - 844 | matchCands' - 845 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind ((TypDeclOpt _, _, _), _), _) - File "src/core/coverage.ml", lines 832-845, characters 5-18: - 832 | .....let LF.PiKind ((LF.TypDecl (_, tB), _, _), tK1), s = sK in - 833 | let LF.PiKind ((LF.TypDecl (_, tC), _, _), tK2), s' = sK' in - 834 | let covGoal1 = CovGoal (cPsi, tM, (tB, s)) in - 835 | let patt1 = MetaPatt (cPsi', tM', (tC, s')) in - 836 | let sK1' = (tK1, LF.Dot (LF.Obj tM, s)) in - ... - 842 | (cPsi, tS, sK1') - 843 | (cPsi', tS', sK2') - 844 | matchCands' - 845 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind ((TypDeclOpt _, _, _), _), _) - File "src/core/coverage.ml", lines 828-845, characters 2-18: - 828 | ..match ((tS1, sK1), (tS2, sK2)) with - 829 | | ((LF.Nil, (LF.Typ, _)), (LF.Nil, (LF.Typ, _))) -> - 830 | (matchCands, splitCands) - 831 | | ((LF.App (tM, tS), sK), (LF.App (tM', tS'), sK')) -> - 832 | let LF.PiKind ((LF.TypDecl (_, tB), _, _), tK1), s = sK in - ... - 842 | (cPsi, tS, sK1') - 843 | (cPsi', tS', sK2') - 844 | matchCands' - 845 | splitCands' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Nil, (Typ, _)), (Nil, (PiKind (_, _), _))) - File "src/core/coverage.ml", lines 854-897, characters 2-17: - 854 | ..match (Whnf.whnfTyp sA, Whnf.whnfTyp sB) with - 855 | | ((LF.Atom (_, a, tS1), s1), (LF.Atom (loc, b, tS2), s2)) -> - 856 | let tK1 = (Store.Cid.Typ.get a).Store.Cid.Typ.Entry.kind in - 857 | let tK2 = (Store.Cid.Typ.get b).Store.Cid.Typ.Entry.kind in - 858 | let tS1' = Whnf.normSpine (tS1, s1) in - ... - 894 | (trec1, s1) - 895 | (trec2, s2) - 896 | matchCands - 897 | splitCands - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((Atom (_, _, _), _), ((PiTyp (_, _)|Sigma _|TClo _), _)) - File "src/core/coverage.ml", lines 901-921, characters 2-12: - 901 | ..match (srec1, srec2) with - 902 | | ((LF.SigmaLast (_, tA1), s1), (LF.SigmaLast (_, tA2), s2)) -> - 903 | pre_match_typ cD cD_p (cPsi, (tA1, s1)) (cPhi, (tA2, s2)) matchCands splitCands - 904 | - 905 | | ((LF.SigmaElem (x1, tA1, trec1), s1), (LF.SigmaElem (x2, tA2, trec2), s2)) -> - ... - 918 | (LF.DDec (cPsi, LF.TypDecl (x1, LF.TClo (tA1, s1)))) - 919 | (LF.DDec (cPhi, LF.TypDecl (x2, LF.TClo (tA2, s2)))) - 920 | (trec1, S.LF.dot1 s1) (trec2, S.LF.dot1 s2) - 921 | mC sC - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((SigmaLast (_, _), _), (SigmaElem (_, _, _), _)) - File "src/core/coverage.ml", lines 946-998, characters 2-31: - 946 | ..match ((mO, mt), (mO_p, mtp)) with - 947 | | LF.((CObj cPsi, _), (CObj cPsi', _)) -> - 948 | pre_match_dctx cD cD_p cPsi cPsi' mC sC - 949 | | LF.((ClObj (_, clobj), ClTyp (cltyp, cPsi)), (ClObj (_, clobj'), ClTyp (cltyp', cPsi'))) -> - 950 | match ((clobj, cltyp), (clobj', cltyp')) with - ... - 995 | (mobj cD_p) (loc', mO_p) - 996 | (mtyp cD_p) mtp - 997 | in - 998 | Error.raise_violation s - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((CObj _, _), ((MUndef|ClObj (_, _)|MV _), _)) - File "src/core/coverage.ml", lines 1086-1098, characters 5-10: - 1086 | .....let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1087 | let tau1 = LF.ClTyp (LF.MTyp (Whnf.cnormTyp (tA, t)), Whnf.cnormDCtx (cPsi, t)) in - 1088 | let tau1' = LF.ClTyp (LF.MTyp (Whnf.cnormTyp (tA', t')), Whnf.cnormDCtx (cPsi', t')) in - 1089 | let t2 = LF.MDot (mO, t) in - 1090 | let t2' = LF.MDot (mO', t') in - ... - 1095 | (pS, (tau2, t2)) - 1096 | (pS', (tau2', t2')) - 1097 | mC1 - 1098 | sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1085-1098, characters 5-10: - 1085 | .....let Comp.PatMetaObj (_, (loc, mO)) = pat in - 1086 | let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1087 | let tau1 = LF.ClTyp (LF.MTyp (Whnf.cnormTyp (tA, t)), Whnf.cnormDCtx (cPsi, t)) in - 1088 | let tau1' = LF.ClTyp (LF.MTyp (Whnf.cnormTyp (tA', t')), Whnf.cnormDCtx (cPsi', t')) in - 1089 | let t2 = LF.MDot (mO, t) in - ... - 1095 | (pS, (tau2, t2)) - 1096 | (pS', (tau2', t2')) - 1097 | mC1 - 1098 | sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1104-1116, characters 5-10: - 1104 | .....let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1105 | let tau1 = LF.ClTyp (LF.PTyp (Whnf.cnormTyp (tA, t)), Whnf.cnormDCtx (cPsi, t)) in - 1106 | let tau1' = LF.ClTyp (LF.PTyp (Whnf.cnormTyp (tA', t')), Whnf.cnormDCtx (cPsi', t')) in - 1107 | let t2 = LF.MDot (mO, t) in - 1108 | let t2' = LF.MDot (mO', t') in - ... - 1113 | (pS, (tau2, t2)) - 1114 | (pS', (tau2', t2')) - 1115 | mC1 - 1116 | sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1103-1116, characters 5-10: - 1103 | .....let Comp.PatMetaObj (_, (loc, mO)) = pat in - 1104 | let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1105 | let tau1 = LF.ClTyp (LF.PTyp (Whnf.cnormTyp (tA, t)), Whnf.cnormDCtx (cPsi, t)) in - 1106 | let tau1' = LF.ClTyp (LF.PTyp (Whnf.cnormTyp (tA', t')), Whnf.cnormDCtx (cPsi', t')) in - 1107 | let t2 = LF.MDot (mO, t) in - ... - 1113 | (pS, (tau2, t2)) - 1114 | (pS', (tau2', t2')) - 1115 | mC1 - 1116 | sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1122-1128, characters 5-84: - 1122 | .....let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1123 | let tau1 = LF.CTyp w in - 1124 | let tau1' = LF.CTyp w' in - 1125 | let t2 = LF.MDot (mO, t) in - 1126 | let t2' = LF.MDot (mO', t')in - 1127 | let (mC1, sC1) = match_metaobj cD cD_p ((loc, mO), tau1) ((loc', mO'), tau1') mC sC in - 1128 | match_spines (cD, cG) (cD_p, cG_p) (pS, (tau2, t2)) (pS', (tau2', t2')) mC1 sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1121-1128, characters 5-84: - 1121 | .....let Comp.PatMetaObj (_, (loc, mO)) = pat in - 1122 | let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1123 | let tau1 = LF.CTyp w in - 1124 | let tau1' = LF.CTyp w' in - 1125 | let t2 = LF.MDot (mO, t) in - 1126 | let t2' = LF.MDot (mO', t')in - 1127 | let (mC1, sC1) = match_metaobj cD cD_p ((loc, mO), tau1) ((loc', mO'), tau1') mC sC in - 1128 | match_spines (cD, cG) (cD_p, cG_p) (pS, (tau2, t2)) (pS', (tau2', t2')) mC1 sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1133-1141, characters 5-51: - 1133 | .....let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1134 | let mk_cltyp cl cPhi cPsi t = LF.(ClTyp (STyp (cl, Whnf.cnormDCtx (cPhi, t)), Whnf.cnormDCtx (cPsi, t))) in - 1135 | let mT1 = mk_cltyp cl cPhi cPsi t in - 1136 | let mT2 = mk_cltyp cl' cPhi' cPsi' t' in - 1137 | let t2 = LF.MDot (mO, t) in - 1138 | let t2' = LF.MDot (mO', t') in - 1139 | let (mC1, sC1) = match_metaobj cD cD_p ((loc, mO), mT1) ((loc', mO'), mT2) mC sC in - 1140 | match_spines (cD, cG) (cD_p, cG_p) - 1141 | (pS, (tau2, t2)) (pS', (tau2', t2')) mC1 sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1132-1141, characters 5-51: - 1132 | .....let Comp.PatMetaObj (_, (loc, mO)) = pat in - 1133 | let Comp.PatMetaObj (_, (loc', mO')) = pat' in - 1134 | let mk_cltyp cl cPhi cPsi t = LF.(ClTyp (STyp (cl, Whnf.cnormDCtx (cPhi, t)), Whnf.cnormDCtx (cPsi, t))) in - 1135 | let mT1 = mk_cltyp cl cPhi cPsi t in - 1136 | let mT2 = mk_cltyp cl' cPhi' cPsi' t' in - 1137 | let t2 = LF.MDot (mO, t) in - 1138 | let t2' = LF.MDot (mO', t') in - 1139 | let (mC1, sC1) = match_metaobj cD cD_p ((loc, mO), mT1) ((loc', mO'), mT2) mC sC in - 1140 | match_spines (cD, cG) (cD_p, cG_p) - 1141 | (pS, (tau2, t2)) (pS', (tau2', t2')) mC1 sC1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/coverage.ml", lines 1180-1218, characters 2-8: - 1180 | ..match Whnf.whnfTyp sA with - 1181 | | (LF.PiTyp ((LF.TypDecl (u, tA), _, _), tB), s) -> - 1182 | (* cPsi' |- Pi x:A.B <= typ - 1183 | cPsi |- s <= cPsi' - 1184 | cPsi |- tN <= [s]tA - ... - 1215 | Some LF.Nil - 1216 | with - 1217 | | U.Failure _ -> None - 1218 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp ((TypDeclOpt _, _, _), _), _) - File "src/core/coverage.ml", lines 1337-1343, characters 2-29: - 1337 | ..let LF.TypDecl (_, tA) = Context.ctxDec cPsi i in (* x_i : tA in cPsi *) - 1338 | (* We call expand_head_sigma here because it might be *projections* - 1339 | of the bound variable that are relevant to the matching. - 1340 | *) - 1341 | expand_head_sigma (LF.BVar i, tA) - 1342 | |> List.map (fun (tH, tA) -> (tH, tA, 0)) - 1343 | |> genAllObj (cD, cPsi, tP) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 1478-1486, characters 7-10: - 1478 | .......begin fun (cD', (LF.DDec (cPsi', tdecl'), tM, sA), ms) -> - 1479 | let cg' = - 1480 | ( cPsi' - 1481 | , LF.Lam (Location.ghost, x, tM) - 1482 | , (LF.PiTyp ((tdecl', depend, plicity), LF.TClo (sA)), S.LF.id) - 1483 | ) - 1484 | in - 1485 | (cD', cg', ms) - 1486 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, ((Null|CtxVar _), _, (_, _)), _) - File "src/core/coverage.ml", lines 1462-1487, characters 2-14: - 1462 | ..match tA with - 1463 | | LF.Atom _ -> - 1464 | genPVar cov_problem @ genBVars cov_problem - 1465 | | LF.Sigma trec -> - 1466 | Error.raise_not_implemented "[genBCovGoals] not implemented for Sigma types" - ... - 1484 | in - 1485 | (cD', cg', ms) - 1486 | end - 1487 | cg_list - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TClo _ - File "src/core/coverage.ml", lines 1538-1545, characters 7-10: - 1538 | .......begin fun (cD', (LF.DDec (cPsi', tdecl'), tM, sA), t) -> - 1539 | ( cD' - 1540 | , ( cPsi' - 1541 | , LF.Lam (Location.ghost, x, tM) - 1542 | , (LF.PiTyp ((tdecl', depend, plicity), LF.TClo (sA)), S.LF.id)) - 1543 | , t - 1544 | ) - 1545 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, ((Null|CtxVar _), _, (_, _)), _) - File "src/core/coverage.ml", lines 1535-1546, characters 5-16: - 1535 | .....let LF.TypDecl (x, _) = tdecl in - 1536 | let cov_goals = genCovGoals (cD, LF.DDec (cPsi, tdecl), tB) in - 1537 | List.map - 1538 | begin fun (cD', (LF.DDec (cPsi', tdecl'), tM, sA), t) -> - 1539 | ( cD' - ... - 1543 | , t - 1544 | ) - 1545 | end - 1546 | cov_goals - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 1506-1546, characters 2-16: - 1506 | ..match tA with - 1507 | | LF.Atom (_, a, tS) -> - 1508 | let g_pv = genPVar cov_problem in (* (cD', cg, ms) list *) - 1509 | dprintf - 1510 | begin fun p -> - ... - 1543 | , t - 1544 | ) - 1545 | end - 1546 | cov_goals - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _|TClo _) - File "src/core/coverage.ml", lines 1576-1694, characters 5-8: - 1576 | .....begin match mc with - 1577 | | Eqn (CovSub (cPsi, s, sT), MetaSub (cPsi_p, s_p, sT_p)) -> - 1578 | let cT = LF.ClTyp (sT, cPsi) in - 1579 | let cT_p = LF.ClTyp (sT_p, cPsi_p) in - 1580 | let cM = (Location.ghost, LF.ClObj (Context.dctxToHat cPsi, LF.SObj s)) in - ... - 1691 | NotSolvable - 1692 | end - 1693 | end - 1694 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Eqn (CovSub (_, _, _), (MetaPatt (_, _, _)|GenPatt (_, _, _))) - File "src/core/coverage.ml", lines 1719-1724, characters 5-11: - 1719 | .....let CovGoal (cPsi', tR', sA') as covG = CovGoal (cPsi, tR, (tA, S.LF.id)) in - 1720 | (* let MetaPatt (cPhi, _, sB') = patt in *) - 1721 | (* let (mL', sL') = pre_match_typ cD cD_p (cPsi, sA') (cPhi, sB') matchL' splitL' in *) - 1722 | (* let (mL', sL') = pre_match_dctx cD cD_p cPsi cPhi matchL' splitL' in *) - 1723 | let result = pre_match cD cD_p covG patt matchL' splitL' in - 1724 | result - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovCtx _|CovSub (_, _, _)|CovPatt (_, _, (_, _))) - File "src/core/coverage.ml", lines 1713-1735, characters 2-94: - 1713 | ..match splitL with - 1714 | | [] -> (matchL, []) - 1715 | | Split (CovGoal (cPsi, tR, sA), patt) :: splits -> - 1716 | let (matchL', splitL') = refineSplits cD cD_p matchL splits ms in - 1717 | let tA = Whnf.normTyp sA in - ... - 1732 | pre_match_dctx cD cD_p cPsi' cPsi_patt matchL' splitL' - 1733 | | SplitPat ((Comp.PatFVar (loc, x), (tau, t)), pPatt_p) :: splits -> - 1734 | let (matchL', splitL') = refineSplits cD cD_p matchL splits ms in - 1735 | (matchL', SplitPat ((Comp.PatFVar (loc, x), (tau, Whnf.mcomp t ms)), pPatt_p) :: splitL') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Split ((CovCtx _|CovPatt (_, _, _)), _)::_ - File "src/core/coverage.ml", lines 1967-1994, characters 5-6: - 1967 | .....let (cPsi, (LF.Atom (_, a, _) as tP, s)) = - 1968 | Whnf.lowerTyp (LF.CtxVar (LF.CtxOffset (k + d))) (tA, s') - 1969 | in - 1970 | (* bp : Context substitution associated with declaration is off by 1 *) - 1971 | let (ss', cPsi') = Subord.thin' cD'' a cPsi in - ... - 1991 | in - 1992 | ( LF.Dec (cD'', mdec) - 1993 | , LF.Dot (LF.Obj mv, Whnf.cnormSub (s', LF.MShift 1)) - 1994 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, ((PiTyp ((_, _, _), _)|Sigma _|TClo (_, _)), _)) - File "src/core/coverage.ml", lines 1958-1994, characters 2-6: - 1958 | ..match decls with - 1959 | | LF.Empty -> (cD', S.LF.id) - 1960 | | LF.(Dec (decls, TypDecl (x, tA))) -> - 1961 | let x = NameGen.renumber names x in - 1962 | let names = x :: names in - ... - 1991 | in - 1992 | ( LF.Dec (cD'', mdec) - 1993 | , LF.Dot (LF.Obj mv, Whnf.cnormSub (s', LF.MShift 1)) - 1994 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, TypDeclOpt _) - File "src/core/coverage.ml", lines 1957-1994, characters 28-6: - 1957 | ............................(LF.CtxOffset k as cpsi) (d, decls) = - 1958 | match decls with - 1959 | | LF.Empty -> (cD', S.LF.id) - 1960 | | LF.(Dec (decls, TypDecl (x, tA))) -> - 1961 | let x = NameGen.renumber names x in - ... - 1991 | in - 1992 | ( LF.Dec (cD'', mdec) - 1993 | , LF.Dot (LF.Obj mv, Whnf.cnormSub (s', LF.MShift 1)) - 1994 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CtxName _|CInst ({instantiation=_; constraints=_; _ }, _)) - File "src/core/coverage.ml", lines 2090-2093, characters 17-34: - 2090 | .................(LF.Dec (cD', LF.Decl _) as cD) cpsi = - 2091 | let nonempty_cases = List.map (genSchemaElemGoal names cD cpsi) in - 2092 | let empty_case = List.cons (cD', LF.Null, LF.MShift 0) in - 2093 | F.(empty_case ++ nonempty_cases) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/coverage.ml", lines 2117-2130, characters 23-38: - 2117 | .......................(x, LF.CTyp (Option.Some schema_cid), plicity, inductivity) = - 2118 | let LF.Schema elems = Store.Cid.Schema.get_schema schema_cid in - 2119 | let cD' = - 2120 | LF.Dec - 2121 | (cD - ... - 2127 | } - 2128 | ) - 2129 | in - 2130 | genCtx [] cD' (LF.CtxOffset 1) elems - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, CTyp None, _, _) - File "src/core/coverage.ml", lines 2138-2172, characters 5-87: - 2138 | .....let LF.TypDecl (x, tA) = decl in - 2139 | let s = LF.SVar (2, 0, S.LF.id) in - 2140 | let mT = LF.ClTyp (LF.STyp (r0, cPhi'), cPsi) in - 2141 | let name = Whnf.newMTypName mT in - 2142 | let cD' = - ... - 2169 | in - 2170 | let cPsi' = Whnf.cnormDCtx (cPsi, LF.MShift 2) in - 2171 | let cPhi'' = Whnf.cnormDCtx (cPhi, LF.MShift 2) in - 2172 | [(cD'', CovSub (cPsi', LF.Dot (LF.Obj tM, s), LF.STyp (r0, cPhi'')), LF.MShift 2)] - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/coverage.ml", lines 2180-2233, characters 2-8: - 2180 | ..match cT with - 2181 | | LF.ClTyp (clTyp, cPsi) -> - 2182 | begin match clTyp with - 2183 | | LF.MTyp tA -> - 2184 | dprintf - ... - 2230 | , Atomic - 2231 | ) - 2232 | end - 2233 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - File "src/core/coverage.ml", lines 2243-2244, characters 11-60: - 2243 | ...........let LF.Decl { name = x; typ = cU; plicity; inductivity } = d in - 2244 | genContextGoals cD' (x, cU, plicity, inductivity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/coverage.ml", lines 2236-2272, characters 2-58: - 2236 | ..match (cv_list, cD) with - 2237 | | ([], _) -> NoCandidate - 2238 | | ([LF.CtxOffset j], LF.Dec (cD', d)) -> - 2239 | if j = k - 2240 | then - ... - 2269 | SomeCtxCands ctx_goals' - 2270 | end - 2271 | else - 2272 | best_ctx_cand (cD', cv_list) (k + 1) (d :: cD_tail) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CtxOffset _::[], Empty) - File "src/core/coverage.ml", lines 2302-2303, characters 25-35: - 2302 | .........................let LF.Root (_, tH, _, _) = tR in - 2303 | LF.PObj tH - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)) - File "src/core/coverage.ml", lines 2296-2303, characters 22-35: - 2296 | ......................match cT with - 2297 | (* gonna be a ClTyp because we're in the CovGoal branch *) - 2298 | | LF.ClTyp (LF.MTyp _, _) -> LF.MObj tR - 2299 | | LF.ClTyp (LF.PTyp _, _) -> - 2300 | (* ensure that PTyp is added as a PObj to the - 2301 | msub; otherwise normalization WILL crash. *) - 2302 | let LF.Root (_, tH, _, _) = tR in - 2303 | LF.PObj tH - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (STyp (_, _), _) - File "src/core/coverage.ml", lines 2288-2325, characters 17-50: - 2288 | .................match cg with - 2289 | | CovGoal (cPsi', tR, sA') -> - 2290 | dprintf - 2291 | begin fun p -> - 2292 | p.fmt "[best_cand] generated covgoal @[%a@]" - ... - 2322 | , Whnf.cnormClTyp (sT, LF.MShift k) - 2323 | ) - 2324 | in - 2325 | TermCandidate (cD'', cg', ms0). - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovCtx _|CovPatt (_, _, _)) - File "src/core/coverage.ml", lines 2329-2342, characters 11-17: - 2329 | ...........match best_cand (cD', mvlist') (k + 1) (md :: cD_tail) with - 2330 | | NoCandidate -> SomeTermCands (dep0, cov_goals0) - 2331 | | SomeTermCands (dep, cov_goals) -> - 2332 | begin match dep, dep0 with - 2333 | | Dependent, Atomic -> SomeTermCands (dep, cov_goals) - ... - 2339 | then SomeTermCands (dep, cov_goals) - 2340 | else SomeTermCands (dep0, cov_goals0) - 2341 | *) - 2342 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - SomeCtxCands _ - File "src/core/coverage.ml", lines 2276-2350, characters 2-55: - 2276 | ..match (mv_list, cD) with - 2277 | | ([], _) -> NoCandidate - 2278 | | (LF.Offset j :: mvlist', LF.(Dec (cD', (Decl { typ = cT; _ } as md)))) -> - 2279 | if k = j - 2280 | then - ... - 2347 | best_cand (cD', mvlist') (k + 1) (md :: cD_tail) - 2348 | end - 2349 | else - 2350 | best_cand (cD', mv_list) (k + 1) (md :: cD_tail) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Offset _::_, Dec (_, DeclOpt _)) - File "src/core/coverage.ml", lines 2424-2432, characters 7-13: - 2424 | .......match cl with - 2425 | | LF.PTyp _ -> - 2426 | let v = Whnf.newMPVar (Some u) (LF.Empty, cPsi', tP') plicity inductivity in - 2427 | LF.(PObj (mpvar ((v, Whnf.m_id), S.LF.id))) - 2428 | | LF.MTyp _ -> - 2429 | LF.MObj - 2430 | (ConvSigma.etaExpandMMVstr - 2431 | Location.ghost LF.Empty cPsi' (tP', S.LF.id) plicity (Some u) (u :: names) - 2432 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/coverage.ml", lines 2575-2588, characters 6-9: - 2575 | ......begin fun (CovGoal (cPsi', tR, sA')) -> - 2576 | let m_obj = - 2577 | ( Location.ghost - 2578 | , LF.ClObj (Context.dctxToHat cPsi', LF.MObj tR) - 2579 | ) - ... - 2585 | ) - 2586 | in - 2587 | (LF.Empty, pat_r, tau_r) - 2588 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovCtx _|CovSub (_, _, _)|CovPatt (_, _, (_, _))) - File "src/core/coverage.ml", lines 2624-2626, characters 10-46: - 2624 | ..........match tC with - 2625 | | MTyp _ -> fun sA -> MTyp (TClo sA) - 2626 | | PTyp _ -> fun sA -> PTyp (TClo sA) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/coverage.ml", lines 2620-2661, characters 5-8: - 2620 | .....begin match mT with - 2621 | | LF.(ClTyp (tC, cPsi)) -> - 2622 | let f = - 2623 | let open LF in - 2624 | match tC with - ... - 2658 | , t - 2659 | ) - 2660 | end - 2661 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp None - File "src/core/coverage.ml", lines 2708-2756, characters 2-55: - 2708 | ..function - 2709 | | [] -> vlist - 2710 | | Split (CovGoal (_, LF.Root (_, LF.MVar (u, _), _, _), _), _) :: sl -> - 2711 | let (pvlist, cvlist, mvlist) = vlist in - 2712 | if List.mem u mvlist - ... - 2753 | let (pvlist, cvlist, mvlist) = vlist in - 2754 | if List.mem x pvlist - 2755 | then mvInSplit cD vlist sl - 2756 | else mvInSplit cD (x :: pvlist, cvlist, mvlist) sl - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - SplitCtx ((Null|DDec (_, _)), _)::_ - File "src/core/coverage.ml", lines 2767-2772, characters 30-13: - 2767 | ..............................(LF.Offset k') -> - 2768 | if k' < k - 2769 | then 1 - 2770 | else if k' = k - 2771 | then 0 - 2772 | else -1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Inst {instantiation=_; constraints=_; _ } - File "src/core/coverage.ml", lines 2767-2773, characters 6-9: - 2767 | ......begin fun (LF.Offset k) (LF.Offset k') -> - 2768 | if k' < k - 2769 | then 1 - 2770 | else if k' = k - 2771 | then 0 - 2772 | else -1 - 2773 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Inst {instantiation=_; constraints=_; _ } - File "src/core/coverage.ml", lines 2778-2783, characters 33-13: - 2778 | .................................(LF.CtxOffset k') -> - 2779 | if k' < k - 2780 | then 1 - 2781 | else if k' = k - 2782 | then 0 - 2783 | else -1 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CtxName _|CInst ({instantiation=_; constraints=_; _ }, _)) - File "src/core/coverage.ml", lines 2778-2784, characters 6-9: - 2778 | ......begin fun (LF.CtxOffset k) (LF.CtxOffset k') -> - 2779 | if k' < k - 2780 | then 1 - 2781 | else if k' = k - 2782 | then 0 - 2783 | else -1 - 2784 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CtxName _|CInst ({instantiation=_; constraints=_; _ }, _)) - File "src/core/coverage.ml", line 2861, characters 50-80: - 2861 | Prettycov.fmt_ppr_cov_goals (List.map (fun (TermCandidate cg) -> cg) cgoals) - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxCandidate (_, _, _) - File "src/core/coverage.ml", lines 2897-2902, characters 2-33: - 2897 | ..function - 2898 | | Comp.PatNil -> Comp.PatNil - 2899 | | Comp.PatApp (loc, pat, pS) -> - 2900 | let pat' = subst_pattern (pat_r, pv) pat in - 2901 | let pS' = subst_pattern_spine (pat_r, pv) pS in - 2902 | Comp.PatApp (loc, pat', pS') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PatObs (_, _, _, _) - File "src/core/coverage.ml", lines 2973-2989, characters 32-52: - 2973 | ................................(x :: pvlist) = - 2974 | let cov_goals' = - 2975 | List.map - 2976 | begin fun (cD', (cG', pat, tau_p), t) -> - 2977 | (cD', (Context.append (Whnf.cnormGCtx (cG, t)) cG', pat, tau_p), t) - ... - 2986 | cov_goals' - 2987 | end; - 2988 | let l = List.length cov_goals' in - 2989 | best_pv_cand' (cD, cG) pvlist (l, (cov_goals', x)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/coverage.ml", lines 2996-3007, characters 2-40: - 2996 | ..match sl with - 2997 | | [] -> pvlist - 2998 | | Split (CovGoal _, _) :: sl -> pvInSplitCand sl pvlist - 2999 | | Split (CovSub _, _) :: sl -> pvInSplitCand sl pvlist - 3000 | | SplitCtx _ :: sl -> pvInSplitCand sl pvlist - ... - 3004 | ); - 3005 | if List.mem x pvlist - 3006 | then pvInSplitCand sl pvlist - 3007 | else pvInSplitCand sl (x :: pvlist) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Split ((CovCtx _|CovPatt (_, _, _)), _)::_ - File "src/core/coverage.ml", lines 3217-3225, characters 2-27: - 3217 | ..let CovPatt (cG', pat', ttau') = covGoal in - 3218 | dprintf - 3219 | begin fun p -> - 3220 | p.fmt "[gen_candidates] @[<v>pat = @[%a@]@,pat' = @[%a@]@]" - 3221 | (P.fmt_ppr_cmp_pattern cD_p cG_p P.l0) pat - 3222 | (P.fmt_ppr_cmp_pattern cD_p cG' P.l0) pat' - 3223 | end; - 3224 | let (ml, sl) = match_pattern (cD, cG') (cD_p, cG_p) (pat', ttau') (pat, ttau) [] [] in - 3225 | Cand (cD_p, cG_p, ml, sl) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovGoal (_, _, (_, _))|CovCtx _|CovSub (_, _, _)) - File "src/core/coverage.ml", lines 3216-3225, characters 33-27: - 3216 | .................................(cD_p, GenPatt (cG_p, pat, ttau)) = - 3217 | let CovPatt (cG', pat', ttau') = covGoal in - 3218 | dprintf - 3219 | begin fun p -> - 3220 | p.fmt "[gen_candidates] @[<v>pat = @[%a@]@,pat' = @[%a@]@]" - 3221 | (P.fmt_ppr_cmp_pattern cD_p cG_p P.l0) pat - 3222 | (P.fmt_ppr_cmp_pattern cD_p cG' P.l0) pat' - 3223 | end; - 3224 | let (ml, sl) = match_pattern (cD, cG') (cD_p, cG_p) (pat', ttau') (pat, ttau) [] [] in - 3225 | Cand (cD_p, cG_p, ml, sl) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, (MetaPatt (_, _, (_, _))|MetaSub (_, _, _))) - File "src/core/coverage.ml", lines 3393-3428, characters 2-50: - 3393 | ..function - 3394 | | LF.Empty -> false - 3395 | | LF.Dec (cD', (LF.Decl { typ = LF.ClTyp (LF.MTyp tA, cPsi); _} as cdecl)) -> - 3396 | begin - 3397 | try - ... - 3425 | print_string "Unable to prove given type is empty\n"; check_emptiness cD' - 3426 | end - 3427 | - 3428 | | LF.Dec (cD', LF.Decl _) -> check_emptiness cD' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/coverage.ml", lines 3431-3441, characters 2-8: - 3431 | ..function - 3432 | | LF.Empty -> false - 3433 | | LF.Dec (cG, Comp.CTypDecl (_, tau, _)) -> - 3434 | begin - 3435 | try - ... - 3438 | | _ -> check_empty_comp names cD cG - 3439 | with - 3440 | | _ -> check_empty_comp names cD cG - 3441 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Interactive.cmx -c -impl src/core/interactive.ml) - File "src/core/interactive.ml", lines 202-213, characters 10-26: - 202 | ..........let Cover.CovGoal (cPsi', tR, sA') = cg in - 203 | let ms' = LF.MDot (LF.ClObj (Context.dctxToHat cPsi', LF.MObj tR), ms) in - 204 | let k = List.length cD_tail in - 205 | let (cD'', ms0) = Coverage.addToMCtx cDg' (cD_tail, ms') in - 206 | let cg' = - ... - 210 | , (Whnf.cnormTyp (Whnf.normTyp sA', LF.MShift k), S.LF.id) - 211 | ) - 212 | in - 213 | (cD'', cg', ms0) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CovCtx _|CovSub (_, _, _)|CovPatt (_, _, (_, _))) - File "src/core/interactive.ml", lines 183-214, characters 18-13: - 183 | ..................(LF.Decl { name =n; typ = mtyp; plicity; inductivity }) cD_tail = - 184 | match mtyp with - 185 | | LF.CTyp _ -> - 186 | Cover.genContextGoals cD' (n, mtyp, plicity, inductivity) - 187 | |> List.map - ... - 211 | ) - 212 | in - 213 | (cD'', cg', ms0) - 214 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Check.cmx -c -impl src/core/check.ml) - File "src/core/check.ml", lines 471-475, characters 4-46: - 471 | ....function - 472 | | I.Root (_, h, tS, _) -> fmv_spine (fmv_head cD h) tS - 473 | | I.Lam (_, _, tM) -> fmv_normal cD tM - 474 | | I.LFHole _ -> cD - 475 | | I.Tuple (_, tuple) -> fmv_tuple cD tuple - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Clo _ - File "src/core/check.ml", lines 490-492, characters 4-55: - 490 | ....function - 491 | | I.Nil -> cD - 492 | | I.App (tM, tS) -> fmv_spine (fmv_normal cD tM) tS - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - SClo _ - File "src/core/check.ml", lines 500-503, characters 4-61: - 500 | ....function - 501 | | I.Null -> cD - 502 | | I.CtxVar (I.CtxOffset k) -> mark_ind cD k - 503 | | I.DDec (cPsi, decl) -> fmv_decl (fmv_dctx cD cPsi) decl - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar (CtxName _|CInst _) - File "src/core/check.ml", lines 511-514, characters 4-38: - 511 | ....function - 512 | | I.Atom (_, _, tS) -> fmv_spine cD tS - 513 | | I.PiTyp ((decl, _, _), tA) -> fmv_typ (fmv_decl cD decl) tA - 514 | | I.Sigma trec -> fmv_trec cD trec - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TClo _ - File "src/core/check.ml", lines 534-538, characters 4-68: - 534 | ....function - 535 | | (_, I.CObj (cPsi)) -> fmv_dctx cD cPsi - 536 | | (_, I.ClObj (phat, I.MObj tM)) -> fmv_normal cD tM - 537 | | (_, I.ClObj (phat, I.PObj h)) -> fmv_head (fmv_hat cD phat) h - 538 | | (_, I.ClObj (phat, I.SObj s)) -> fmv_subst (fmv_hat cD phat) s - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, (MUndef|MV _)) - File "src/core/check.ml", lines 553-556, characters 4-43: - 553 | ....function - 554 | | PatNil -> cD - 555 | | PatApp (_, pat, pat_spine) -> - 556 | fmv_pat_spine (fmv cD pat) pat_spine - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PatObs (_, _, _, _) - File "src/core/check.ml", lines 561-595, characters 4-10: - 561 | ....match (t, cD) with - 562 | | (I.MShift k, I.Empty) -> cD1' - 563 | | (I.MShift k, cD) - 564 | when k < 0 -> - 565 | Error.raise_violation "Contextual substitution ill-formed" - ... - 592 | else - 593 | id_map_ind cD1' ms cD - 594 | | _ -> id_map_ind cD1' ms cD - 595 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MDot (_, _), Dec (_, DeclOpt _)) - File "src/core/check.ml", lines 618-619, characters 7-23: - 618 | .......fun (CTypDecl (u, tau, wf_tag)) -> - 619 | (u, tau, wf_tag) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/check.ml", lines 747-771, characters 6-12: - 747 | ......match cPsi0 with - 748 | | Int.LF.Null -> () (* raise (Error (Location.ghost, IllegalParamTyp (cD, cPsi, tA))) *) - 749 | | Int.LF.CtxVar psi -> - 750 | (* tA is an instance of a schema block *) - 751 | let { Store.Cid.Schema.Entry.name; schema = Int.LF.Schema elems } = - ... - 768 | Unify.unifyTyp cD cPsi (tA, Substitution.LF.id) (tB0, Substitution.LF.id) - 769 | with - 770 | | _ -> checkParamTypeValid' (cPsi0', n + 1) - 771 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/check.ml", lines 776-796, characters 4-68: - 776 | ....match (mS, cKt) with - 777 | | (MetaNil, (Ctype _, _)) -> () - 778 | | (MetaApp (mO, mT, mS, plicity_app), (PiKind (_, I.Decl { typ = ctyp; plicity = plicity_pi; inductivity; _ }, cK), t)) -> - 779 | if Plicity.(plicity_app <> plicity_pi) - 780 | then Error.raise_violation "[checkMetaSpine] plicity mismatch"; - ... - 793 | Location.print_short loc - 794 | ) - 795 | end; - 796 | checkMetaSpine loc cD mS (cK, I.MDot (metaObjToMFront mO, t)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MetaNil, (PiKind (_, _, _), _)) - File "src/core/check.ml", lines 822-824, characters 20-32: - 822 | ....................(I.Decl { name = x; typ = ctyp; _ }) = - 823 | let location = Name.location x in - 824 | checkCLFTyp location cD ctyp - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/check.ml", lines 834-868, characters 4-35: - 834 | ....function - 835 | | TypBase (loc, c, mS) -> - 836 | let { Store.Cid.CompTyp.Entry.kind = cK; _ } = Store.Cid.CompTyp.get c in - 837 | checkMetaSpine loc cD mS (cK, C.m_id) - 838 | - ... - 865 | end; - 866 | checkTyp (I.Dec (cD, cdecl)) tau' - 867 | - 868 | | TypInd tau -> checkTyp cD tau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypDef (_, _, _)|TypClo (_, _)) - File "src/core/check.ml", lines 880-882, characters 21-54: - 880 | .....................(x, (I.Decl d), t) = - 881 | let typ' = C.cnormMTyp (d.typ, t) in - 882 | I.Dec (cD, I.Decl { d with name = x; typ = typ' }) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, DeclOpt _, _) - File "src/core/check.ml", lines 899-916, characters 12-15: - 899 | ............begin match e2 with - 900 | | Box (_, cM, cU) | AnnBox (_, cM, cU) -> - 901 | dprintf - 902 | begin fun p -> - 903 | p.fmt "[useIH] @[<v>check whether compatible IH exists@,\ - ... - 913 | | Option.None -> Total.filter cD cG cIH (loc, E) - 914 | end - 915 | | Hole _ -> Total.drop_arg cIH - 916 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Fn (_, _, _)|Fun (_, _)|MLam (_, _, _, _)|Tuple (_, _)|LetTuple (_, _, _)| - Let (_, _, _)|Case (_, _, _, _)|Impossible (_, _)) - File "src/core/check.ml", lines 1114-1276, characters 4-45: - 1114 | ....function - 1115 | | Var (loc, x) as e -> - 1116 | let (f,tau', _) = lookup cG x in - 1117 | Typeinfo.Comp.add loc (Typeinfo.Comp.mk_entry cD (tau', C.m_id)) - 1118 | (Format.asprintf "Var %a" (P.fmt_ppr_cmp_exp cD cG P.l0) e); - ... - 1273 | - 1274 | | AnnBox (_, cM, cT) -> - 1275 | checkMetaObj cD cM cT C.m_id; - 1276 | (None, TypBox (getLoc cM, cT), C.m_id) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Fn (_, _, _)|Fun (_, _)|MLam (_, _, _, _)|LetTuple (_, _, _)|Let (_, _, _)| - Box (_, _, _)|Case (_, _, _, _)|Impossible (_, _)|Hole (_, _, _)) - File "src/core/check.ml", lines 1350-1357, characters 7-10: - 1350 | .......begin match (tau, theta) with - 1351 | | (TypArr (_, tau1, tau2), theta) -> - 1352 | checkPattern cD cG pat (tau1, theta); - 1353 | synPatSpine cD cG pat_spine (tau2, theta) - 1354 | | (TypPiBox (_, cdecl, tau), theta) -> - 1355 | let theta' = checkPatAgainstCDecl cD pat (cdecl, theta) in - 1356 | synPatSpine cD cG pat_spine (tau, theta') - 1357 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((TypBase (_, _, _)|TypCobase (_, _, _)|TypDef (_, _, _)|TypBox (_, _)| - TypCross (_, _)|TypClo (_, _)|TypInd _), - _) - File "src/core/check.ml", lines 1373-1375, characters 53-38: - 1373 | .....................................................(I.Decl { typ = ctyp; _ }, theta) = - 1374 | LF.checkMetaObj cD mO (ctyp, theta); - 1375 | I.MDot (metaObjToMFront mO, theta) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (DeclOpt _, _) - File "src/core/check.ml", lines 1373-1375, characters 30-38: - 1373 | ..............................(PatMetaObj (loc, mO)) (I.Decl { typ = ctyp; _ }, theta) = - 1374 | LF.checkMetaObj cD mO (ctyp, theta); - 1375 | I.MDot (metaObjToMFront mO, theta) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, T (_, _, _))| - PatAnn (_, _, _, _)) - File "src/core/check.ml", lines 1665-1667, characters 4-42: - 1665 | ....let { cD = cD'; cG = cG'; cIH = I.Empty } = h in - 1666 | let (cD, cG) = validate_contexts loc (cD, cD') (cG, cG') in - 1667 | proof mcid cD cG cIH total_decs p ttau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - {cIH=Dec (_, WfRec (_, _, _)); _ } - File "src/core/check.ml", lines 1678-1743, characters 4-13: - 1678 | ....match d with - 1679 | | Intros hyp -> - 1680 | let tau = Whnf.cnormCTyp ttau in - 1681 | let (cD', cG', cIH', tau', t) = unroll cD cG cIH tau in - 1682 | dprintf - ... - 1740 | end; - 1741 | proof mcid cD cG cIH total_decs p (tau, Whnf.m_id) - 1742 | end - 1743 | args - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ImpossibleSplit _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Lfrecon.cmx -c -impl src/core/lfrecon.ml) - File "src/core/lfrecon.ml", lines 253-262, characters 2-29: - 253 | ..function - 254 | | Apx.LF.BVar _ -> "BVar" - 255 | | Apx.LF.Const _ -> "Const" - 256 | | Apx.LF.MVar _ -> "MVar" - 257 | | Apx.LF.PVar (Apx.LF.Offset _, _) -> "PVar Offset " - 258 | | Apx.LF.PVar (Apx.LF.MInst _, _) -> "PVar PInst " - 259 | | Apx.LF.Proj (head, _) -> "Proj " ^ what_head head - 260 | | Apx.LF.FVar _ -> "FVar" - 261 | | Apx.LF.FMVar _ -> "FMVar" - 262 | | Apx.LF.FPVar _ -> "FPVar" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Hole - File "src/core/lfrecon.ml", lines 275-276, characters 5-19: - 275 | .....let (None, d) = Context.dctxToHat cPsi in - 276 | Int.LF.Shift d - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Some _, _) - File "src/core/lfrecon.ml", lines 311-333, characters 8-80: - 311 | ........let CTyp s_cid = mmvar1.typ in - 312 | if d = d' - 313 | then - 314 | begin - 315 | begin match c_var with - ... - 330 | true - 331 | end - 332 | else - 333 | Error.raise_not_implemented "[unify_phat] ctx_var with a full context" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (_, _) - File "src/core/lfrecon.ml", lines 358-359, characters 9-42: - 358 | .........let (_, Int.LF.Decl { typ = Int.LF.CTyp (Some s_cid); _ }) = Store.FCVar.get n in - 359 | Store.Cid.Schema.get_schema s_cid - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp None; _ }) - File "src/core/lfrecon.ml", lines 352-366, characters 2-92: - 352 | ..match ctxvar with - 353 | | Some (Int.LF.CtxOffset _ as phi) -> - 354 | Store.Cid.Schema.get_schema (Context.lookupCtxVarSchema cD phi) - 355 | | Some (Int.LF.CtxName n) -> - 356 | begin - ... - 363 | - 364 | | Some Int.LF.(CInst ({ typ = CTyp (Some s_cid); _ }, _)) -> - 365 | Store.Cid.Schema.get_schema s_cid - 366 | | None -> Error.raise_violation "No context variable for which we could retrieve a schema" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (CInst ({typ=CTyp None; _ }, _)) - File "src/core/lfrecon.ml", lines 372-376, characters 2-44: - 372 | ..function - 373 | | Int.LF.Atom _ -> m - 374 | | Int.LF.PiTyp ((Int.LF.TypDecl (x, _), _, _), tA) -> - 375 | dprint (fun () -> "eta FMV - add Lam "); - 376 | Apx.LF.Lam (loc, x, addPrefix loc m tA) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/lfrecon.ml", lines 385-389, characters 4-62: - 385 | ....function - 386 | | Int.LF.Atom _ -> (k, s) - 387 | | Int.LF.PiTyp (_, tA) -> - 388 | let (k', s') = go (k + 1) s tA in - 389 | (k' - 1, Apx.LF.Dot (Apx.LF.Head (Apx.LF.BVar k'), s')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _|TClo _) - File "src/core/lfrecon.ml", lines 391-395, characters 2-18: - 391 | ..match tA, s with - 392 | | Int.LF.Atom _, _ -> (k, s) - 393 | | Int.LF.PiTyp _, None -> - 394 | let (k', s') = go k Apx.LF.Id tA in - 395 | (k', Some s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiTyp (_, _), Some _) - File "src/core/lfrecon.ml", lines 399-401, characters 20-71: - 399 | ....................(Apx.LF.MVar (x, s)) tA = - 400 | let (_, s') = etaExpSub 0 s tA in - 401 | addPrefix loc (Apx.LF.Root (loc, Apx.LF.MVar (x, s'), Apx.LF.Nil)) tA - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Hole|BVar _|Const _|Proj (_, _)|PVar (_, _)|FVar _|FMVar (_, _)| - FPVar (_, _)) - File "src/core/lfrecon.ml", lines 406-410, characters 4-52: - 406 | ....function - 407 | | Int.LF.Atom _ -> (k, tS) - 408 | | Int.LF.PiTyp (_, tA') -> - 409 | let tN = Int.LF.Root (loc, Int.LF.BVar k, Int.LF.Nil, Plicity.explicit) in - 410 | etaExpSpine (k + 1) (Int.LF.App (tN, tS)) tA' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _|TClo _) - File "src/core/lfrecon.ml", lines 414-417, characters 4-54: - 414 | ....match tA with - 415 | | Int.LF.Atom _ -> tM - 416 | | Int.LF.PiTyp ((Int.LF.TypDecl (x, _), _, _), tA') -> - 417 | Int.LF.Lam (loc, x, etaExpPrefix loc (tM, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/lfrecon.ml", lines 422-424, characters 4-24: - 422 | ....match h with - 423 | | Int.LF.BVar x -> Int.LF.BVar (x + k - 1) - 424 | | Int.LF.FVar _ -> h - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MPVar _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfrecon.ml", lines 457-461, characters 4-55: - 457 | ....function - 458 | | Int.LF.Atom _ -> (k, tS) - 459 | | Int.LF.PiTyp (_, tA') -> - 460 | let tN = Apx.LF.Root (loc, Apx.LF.BVar k, Apx.LF.Nil) in - 461 | etaExpApxSpine (k + 1) (Apx.LF.App (tN, tS)) tA' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Sigma _|TClo _) - File "src/core/lfrecon.ml", lines 464-468, characters 4-57: - 464 | ....match tA with - 465 | | Int.LF.Atom _ -> tM - 466 | | Int.LF.PiTyp ((Int.LF.TypDecl (x, _), _, _), tA') -> - 467 | dprint (fun () -> "eta - add Lam "); - 468 | Apx.LF.Lam (loc, x, etaExpApxPrefix loc (tM, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/lfrecon.ml", lines 613-614, characters 2-33: - 613 | ..let Int.LF.TypDecl (_, Int.LF.Sigma recA) = tp in - 614 | getProjIndex loc cD cPsi recA k - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDecl (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _))) - File "src/core/lfrecon.ml", lines 617-630, characters 2-19: - 617 | ..match h with - 618 | | Apx.LF.BVar k -> Apx.LF.BVar (ConvSigma.map conv_list k) - 619 | - 620 | | Apx.LF.Proj (Apx.LF.BVar k, p) -> - 621 | let tp = - ... - 627 | let j = getProjIndexFromType loc cD cPsi tp p in - 628 | dprintf (fun p -> p.fmt "flattenProjPat Proj Case: k = %d j = %d@\n" k j); - 629 | let k' = ConvSigma.map conv_list k - j + 1 in - 630 | Apx.LF.BVar k' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Proj - ((Hole|Const _|MVar (_, _)|Proj (_, _)|PVar (_, _)|FVar _|FMVar (_, _)| - FPVar (_, _)), - _) - File "src/core/lfrecon.ml", lines 637-643, characters 7-41: - 637 | .......function - 638 | | Apx.LF.Id -> Apx.LF.Id - 639 | | Apx.LF.EmptySub -> Apx.LF.EmptySub - 640 | | Apx.LF.Dot (Apx.LF.Head h, s) -> - 641 | let s' = go s in - 642 | let h' = flattenProjPatHead loc cD h conv_list cPsi in - 643 | Apx.LF.Dot (Apx.LF.Head h', s') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dot (Obj _, _) - File "src/core/lfrecon.ml", lines 679-691, characters 2-38: - 679 | ..match s with - 680 | | Apx.LF.Id -> s - 681 | - 682 | | Apx.LF.EmptySub -> s - 683 | - ... - 688 | Apx.LF.Dot (Apx.LF.Head h, flattenSub s) - 689 | - 690 | | Apx.LF.Dot (Apx.LF.Obj (Apx.LF.Tuple (_, tM)), s) -> - 691 | flattenVarTuple tM (flattenSub s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dot (Obj (Lam (_, _, _)|Root (_, _, _)|LFHole (_, _)|Ann (_, _, _)), _) - File "src/core/lfrecon.ml", lines 697-698, characters 2-77: - 697 | ..function - 698 | | Apx.LF.Root (_, Apx.LF.BVar k, Apx.LF.Nil) -> Apx.LF.Head (Apx.LF.BVar k) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Root (_, BVar _, App (_, _)) - File "src/core/lfrecon.ml", lines 827-829, characters 5-60: - 827 | .....let Int.LF.TypDecl (x, Int.LF.Sigma typRec) = tp in - 828 | let sQ = Int.LF.getType h' (typRec, S.LF.id) j in - 829 | Int.LF.TypDecl (x, Int.LF.TClo sQ), Int.LF.Proj (h', j) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDecl (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _))) - File "src/core/lfrecon.ml", lines 822-829, characters 2-60: - 822 | ..function - 823 | | Apx.LF.BVar k -> Context.ctxDec cPsi k, Int.LF.BVar k - 824 | | Apx.LF.Proj (h, nj) -> - 825 | let (tp, h') = synHead cD loc cPsi h in - 826 | let j = getProjIndexFromType loc cD cPsi tp nj in - 827 | let Int.LF.TypDecl (x, Int.LF.Sigma typRec) = tp in - 828 | let sQ = Int.LF.getType h' (typRec, S.LF.id) j in - 829 | Int.LF.TypDecl (x, Int.LF.TClo sQ), Int.LF.Proj (h', j) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Hole|Const _|MVar (_, _)|PVar (_, _)|FVar _|FMVar (_, _)|FPVar (_, _)) - File "src/core/lfrecon.ml", lines 858-867, characters 5-8: - 858 | .....begin match synHead cD loc cPsi h with - 859 | | (Int.LF.TypDecl (x, tA), h') -> - 860 | let tA' = - 861 | pruningTyp loc cD cPsi (Context.dctxToHat cPsi) - 862 | (tA, S.LF.id) (Int.LF.MShift 0, ss) - 863 | in - 864 | ( Int.LF.DDec (cPhi, Int.LF.TypDecl (x, tA')) - 865 | , Int.LF.Dot (Int.LF.Head h', s') - 866 | ) - 867 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypDeclOpt _, _) - File "src/core/lfrecon.ml", lines 884-890, characters 2-66: - 884 | ..function - 885 | | Apx.LF.Typ -> Int.LF.Typ - 886 | | Apx.LF.PiKind ((Apx.LF.TypDecl (x, a), depend, plicity), k) -> - 887 | let tA = elTyp Pi (*cD=*)Int.LF.Empty cPsi a in - 888 | let cPsi' = Int.LF.DDec (cPsi, Int.LF.TypDecl (x, tA)) in - 889 | let tK = elKind cD cPsi' k in - 890 | Int.LF.PiKind ((Int.LF.TypDecl (x, tA), depend, plicity), tK) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiKind ((TypDeclOpt _, _, _), _) - File "src/core/lfrecon.ml", lines 909-925, characters 2-25: - 909 | ..function - 910 | | Apx.LF.Atom (loc, a, s) -> - 911 | let { Store.Cid.Typ.Entry.kind = tK; implicit_arguments = i; _ } = Store.Cid.Typ.get a in - 912 | let s' = mkShift recT cPsi in - 913 | (* let s' = S.LF.id in *) - ... - 922 | - 923 | | Apx.LF.Sigma typRec -> - 924 | let typRec' = elTypRec recT cD cPsi typRec in - 925 | Int.LF.Sigma typRec' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/lfrecon.ml", lines 977-1023, characters 2-34: - 977 | ..match (m, sA) with - 978 | | (Apx.LF.Lam (loc, x, m), (Int.LF.PiTyp ((Int.LF.TypDecl _ as decl, _, _), tB), s)) -> - 979 | (* cPsi' = cPsi, x:tA *) - 980 | let cPsi' = Int.LF.DDec (cPsi, S.LF.decSub decl s) in - 981 | let tM = elTerm recT cD cPsi' m (tB, S.LF.dot1 s) in - ... - 1020 | | (Apx.LF.LFHole (loc, m_name), tA) -> - 1021 | let id = Holes.allocate () in - 1022 | let name = HoleId.name_of_option m_name in - 1023 | Int.LF.LFHole (loc, id, name) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _), (PiTyp ((TypDeclOpt _, _, _), _), _)) - File "src/core/lfrecon.ml", lines 1081-1091, characters 9-12: - 1081 | .........let Int.LF.TypDecl (_, tA) = Context.ctxDec cPsi x in - 1082 | let (tS, sQ) = elSpine loc recT cD cPsi spine (tA, S.LF.id) in - 1083 | begin - 1084 | try - 1085 | Unify.unifyTyp cD cPsi sQ sP; - ... - 1088 | | Unify.Failure msg -> - 1089 | throw loc (TypMismatchElab (cD, cPsi, sP, sQ)) - 1090 | | _ -> throw loc (TypMismatchElab (cD, cPsi, sP, sQ)) - 1091 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfrecon.ml", lines 1213-1280, characters 9-12: - 1213 | .........let (cD_d, Int.LF.Decl { typ = Int.LF.ClTyp (Int.LF.MTyp tQ, cPhi); _ }) = Store.FCVar.get u in - 1214 | dprintf - 1215 | begin fun p -> - 1216 | p.fmt "[elTerm'] @[<v>FMV %a of type %a[%a]@,in cD_d = %a@,and cD = %a@]" - 1217 | Name.pp u - ... - 1277 | raise (Check.LF.Error (loc, Check.LF.TypMismatch (cD, cPsi, (tR, S.LF.id), (tQ', s''), sP))) - 1278 | |_ -> - 1279 | raise (Check.LF.Error (loc, Check.LF.TypMismatch (cD, cPsi, (tR, S.LF.id), (tQ', s''), sP))) - 1280 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((PTyp _|STyp (_, _)), _); _ }) - File "src/core/lfrecon.ml", lines 1476-1500, characters 9-12: - 1476 | .........let (cD_d, Int.LF.Decl { typ = Int.LF.ClTyp (Int.LF.PTyp tA, cPhi); _ }) = Store.FCVar.get p in - 1477 | let d = Context.length cD - Context.length cD_d in - 1478 | let (tA, cPhi) = - 1479 | if d = 0 - 1480 | then (tA, cPhi) - ... - 1497 | raise (Check.LF.Error (loc, Check.LF.TypMismatch (cD, cPsi, (tR, S.LF.id), sQ, sP))) - 1498 | | _ -> - 1499 | raise (Check.LF.Error (loc, Check.LF.TypMismatch (cD, cPsi, (tR, S.LF.id), sQ, sP))) - 1500 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((MTyp _|STyp (_, _)), _); _ }) - File "src/core/lfrecon.ml", lines 1571-1607, characters 9-12: - 1571 | .........let (cD_d, Int.LF.Decl { typ = Int.LF.ClTyp (Int.LF.PTyp ((Int.LF.Sigma typRec) as tA), cPhi); _ }) = - 1572 | Store.FCVar.get p - 1573 | in - 1574 | let d = Context.length cD - Context.length cD_d in - 1575 | let (tA, cPhi) = - ... - 1604 | throw loc (TypMismatchElab (cD, cPsi, sP, sQ)) - 1605 | | _ -> - 1606 | throw loc (TypMismatchElab (cD, cPsi, sP, sQ)) - 1607 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, - Decl - {typ=ClTyp (PTyp (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _)), _); _ }) - File "src/core/lfrecon.ml", lines 1808-1813, characters 10-13: - 1808 | ..........begin match S.LF.bvarSub k s'' with - 1809 | | Int.LF.Head (Int.LF.BVar j) -> - 1810 | Int.LF.Root (loc, Int.LF.BVar j, tS, Plicity.explicit) - 1811 | | Int.LF.Head (Int.LF.PVar (p, r')) -> - 1812 | Int.LF.Root (loc, Int.LF.PVar (p, S.LF.comp r' s''), tS, Plicity.explicit) - 1813 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfrecon.ml", lines 1806-1817, characters 7-10: - 1806 | .......begin match h with - 1807 | | Int.LF.BVar k -> - 1808 | begin match S.LF.bvarSub k s'' with - 1809 | | Int.LF.Head (Int.LF.BVar j) -> - 1810 | Int.LF.Root (loc, Int.LF.BVar j, tS, Plicity.explicit) - ... - 1814 | | Int.LF.PVar (p, r) -> - 1815 | Int.LF.Root (loc, Int.LF.PVar (p, S.LF.comp r s''), tS, Plicity.explicit) - 1816 | (* | Int.LF.Proj (Int.LF.PVar (p, r), i) -> Int.LF.Root (loc, Int.LF) *) - 1817 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfrecon.ml", lines 1857-1879, characters 5-8: - 1857 | .....let Int.LF.TypDecl (_, Int.LF.Sigma recA) = - 1858 | try - 1859 | Context.ctxSigmaDec cPsi x - 1860 | with - 1861 | | _ -> - ... - 1876 | with - 1877 | | Unify.Failure msg -> - 1878 | throw loc (TypMismatchElab (cD, cPsi, sP, sQ)) - 1879 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDecl (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _))) - File "src/core/lfrecon.ml", lines 1882-1910, characters 5-8: - 1882 | .....begin - 1883 | match Whnf.mctxPDec cD p with - 1884 | | (_, Int.LF.Sigma recA, cPsi') -> - 1885 | let t' = elSub loc recT cD cPsi t Int.LF.Subst cPsi' in - 1886 | let k = getProjIndex loc cD cPsi recA proj in - ... - 1907 | end - 1908 | | (_, Int.LF.PiTyp _, _) -> throw loc (IllTypedElab (cD, cPsi, sP, VariantPi)) - 1909 | | (_, Int.LF.Atom _, _) -> throw loc (IllTypedElab (cD, cPsi, sP, VariantAtom)) - 1910 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, TClo _, _) - File "src/core/lfrecon.ml", lines 1941-1951, characters 12-15: - 1941 | ............begin match S.LF.bvarSub y s'' with - 1942 | | Int.LF.Head (Int.LF.BVar x) -> - 1943 | Int.LF.Root (loc, Int.LF.Proj (Int.LF.BVar x, k), tS, Plicity.explicit) - 1944 | | Int.LF.Head (Int.LF.PVar (p, r')) -> - 1945 | Int.LF.Root - ... - 1948 | , tS - 1949 | , Plicity.explicit - 1950 | ) - 1951 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Head - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfrecon.ml", lines 1939-1959, characters 9-12: - 1939 | .........begin match h with - 1940 | | Int.LF.BVar y -> - 1941 | begin match S.LF.bvarSub y s'' with - 1942 | | Int.LF.Head (Int.LF.BVar x) -> - 1943 | Int.LF.Root (loc, Int.LF.Proj (Int.LF.BVar x, k), tS, Plicity.explicit) - ... - 1956 | , tS - 1957 | , Plicity.explicit - 1958 | ) - 1959 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Const _|MMVar _|MPVar _|MVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)) - File "src/core/lfrecon.ml", lines 1044-1980, characters 2-25: - 1044 | ..match r with - 1045 | | Apx.LF.Ann (_loc, m, a) -> - 1046 | elTerm' recT cD cPsi m sP - 1047 | - 1048 | | Apx.LF.LFHole (location, m_name) -> - ... - 1977 | - 1978 | | Apx.LF.Root (loc, h, _) -> - 1979 | dprintf (fun p -> p.fmt "[elTerm' **] h = %s@\n" (what_head h)); - 1980 | throw loc CompTypAnn - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _)|Tuple (_, _)) - File "src/core/lfrecon.ml", lines 2102-2104, characters 5-65: - 2102 | .....let Int.LF.TypDecl (_, tA) = Context.ctxDec cPsi x in - 2103 | let (tS, sQ) = elSpine loc recT cD cPsi spine (tA, S.LF.id) in - 2104 | (Int.LF.Root (loc, Int.LF.BVar x, tS, Plicity.explicit), sQ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfrecon.ml", lines 2159-2169, characters 5-82: - 2159 | .....let Int.LF.TypDecl (_, Int.LF.Sigma recA) = Context.ctxSigmaDec cPsi x in - 2160 | let k = getProjIndex loc cD cPsi recA proj in - 2161 | let sA = - 2162 | try - 2163 | Int.LF.getType (Int.LF.BVar x) (recA, S.LF.id) k - ... - 2166 | throw loc (ProjNotValid (cD, cPsi, k, (Int.LF.Sigma recA, S.LF.id))) - 2167 | in - 2168 | let (tS, sQ) = elSpine loc recT cD cPsi spine sA in - 2169 | (Int.LF.Root (loc, Int.LF.Proj (Int.LF.BVar x, k), tS, Plicity.explicit), sQ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDecl (_, (Atom (_, _, _)|PiTyp ((_, _, _), _)|TClo (_, _))) - File "src/core/lfrecon.ml", lines 2276-2310, characters 11-14: - 2276 | ...........let (cD_d, Int.LF.Decl { typ = Int.LF.ClTyp (Int.LF.STyp (cl0, cPhi0), cPsi0); _ }) = - 2277 | Store.FCVar.get s_name - 2278 | in - 2279 | svar_le (cl0, cl); - 2280 | let d = Context.length cD - Context.length cD_d in - ... - 2307 | with - 2308 | | Unify.Failure msg -> - 2309 | throw loc (IllTypedSubVar (cD, cPsi, cPhi)) - 2310 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((MTyp _|PTyp _), _); _ }) - File "src/core/lfrecon.ml", lines 2514-2516, characters 9-40: - 2514 | .........let Int.LF.TypDecl (_, tA') = Context.ctxDec (Whnf.cnormDCtx (cPsi, Whnf.m_id)) x in - 2515 | dprint (fun () -> "[elHead] done"); - 2516 | (Int.LF.BVar x, (tA', S.LF.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfrecon.ml", lines 2574-2576, characters 9-59: - 2574 | .........let (offset, Int.LF.ClTyp (Int.LF.MTyp tP, cPhi)) = Whnf.mctxMVarPos cD u in - 2575 | let s' = elSub loc recT cD cPsi s Int.LF.Subst cPhi in - 2576 | (Int.LF.MVar (Int.LF.Offset offset, s'), (tP, s')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, ClTyp ((PTyp _|STyp (_, _)), _)) - File "src/core/lfrecon.ml", lines 2583-2585, characters 5-41: - 2583 | .....let (offset, Int.LF.ClTyp (Int.LF.PTyp tA, cPhi)) = Whnf.mctxMVarPos cD p in - 2584 | let s' = elSub loc recT cD cPsi s cl cPhi in - 2585 | (Int.LF.PVar (offset, s'), (tA, s')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, ClTyp ((MTyp _|STyp (_, _)), _)) - File "src/core/lfrecon.ml", lines 2643-2674, characters 4-36: - 2643 | ....match (sA, recT) with - 2644 | | ((Int.LF.PiTyp ((Int.LF.TypDecl (n, tA), _, _), tB), s), Pi) -> - 2645 | (* cPsi' |- tA <= typ - 2646 | * cPsi |- s <= cPsi' cPsi |- tN <= [s]A - 2647 | * - ... - 2671 | in - 2672 | - 2673 | let (spine', sP) = elSpineI loc recT cD cPsi spine (i - 1) (tB, Int.LF.Dot (Int.LF.Obj tN, s)) in - 2674 | (Int.LF.App (tN, spine'), sP) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((PiTyp ((TypDeclOpt _, _, _), _), _), _) - File "src/core/lfrecon.ml", lines 2705-2708, characters 4-25: - 2705 | ....function - 2706 | | Int.LF.Atom _ -> 0 - 2707 | | Int.LF.PiTyp (_, tB2) -> 1 + typLength tB2 - 2708 | | Int.LF.Sigma _ -> 0........................................................ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TClo _ - File "src/core/lfrecon.ml", lines 2725-2732, characters 4-32: - 2725 | ....match (spine, Whnf.whnfTyp sA) with - 2726 | | (Apx.LF.Nil, sP) -> - 2727 | (Int.LF.Nil, sP) (* errors are postponed to reconstruction phase *) - 2728 | - 2729 | | (Apx.LF.App (m, spine), (Int.LF.PiTyp ((Int.LF.TypDecl (_, tA), _, _), tB), s)) -> - 2730 | let tM = elTerm recT cD cPsi m (tA, s) in - 2731 | let (tS, sP) = elSpine loc recT cD cPsi spine (tB, Int.LF.Dot (Int.LF.Obj tM, s)) in - 2732 | (Int.LF.App (tM, tS), sP) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (App (_, _), (PiTyp ((TypDeclOpt _, _, _), _), _)) - File "src/core/lfrecon.ml", lines 2741-2760, characters 4-30: - 2741 | ....match (sK, recT) with - 2742 | | ((Int.LF.PiKind ((Int.LF.TypDecl (n, tA), _, _), tK), s), Pi) -> - 2743 | (* let sshift = mkShift recT cPsi in *) - 2744 | (* let tN = Whnf.etaExpandMV Int.LF.Null (tA, s) sshift in *) - 2745 | let tN = Whnf.etaExpandMV cPsi (tA, s) n S.LF.id Plicity.implicit Inductivity.not_inductive in - ... - 2757 | Whnf.etaExpandMMV Location.ghost cD cPsi (tA, s) n S.LF.id Plicity.implicit Inductivity.not_inductive - 2758 | in - 2759 | let spine' = elKSpineI loc recT cD cPsi spine (i - 1) (tK, Int.LF.Dot (Int.LF.Obj tN, s)) in - 2760 | Int.LF.App (tN, spine') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ((PiKind ((TypDeclOpt _, _, _), _), _), _) - File "src/core/lfrecon.ml", lines 2834-2863, characters 5-32: - 2834 | .....let Int.LF.TypDecl (_, tA) = Context.ctxDec cPsi x in - 2835 | (* cPsi |- tA : type - 2836 | * cPsi |- s' : cPsi' - 2837 | *) - 2838 | let ss = S.LF.invert s' in - ... - 2860 | in - 2861 | - 2862 | let tN' = etaExpandHead loc (Int.LF.BVar x) tA' in - 2863 | (Int.LF.App (tN', tS), tB') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/lfrecon.ml", lines 2824-2863, characters 2-32: - 2824 | ..match (spine, sP) with - 2825 | | (Apx.LF.Nil, _) -> - 2826 | let ss = S.LF.invert s' in - 2827 | let tQ = pruningTyp Location.ghost cD cPsi (Context.dctxToHat cPsi) sP (Int.LF.MShift 0, ss) in - 2828 | (* PROBLEM: [s'][ss] [s]P is not really P; in fact [ss][s]P may not exist; - ... - 2860 | in - 2861 | - 2862 | let tN' = etaExpandHead loc (Int.LF.BVar x) tA' in - 2863 | (Int.LF.App (tN', tS), tB') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (App (Root (_, BVar _, App (_, _)), _), _) - File "src/core/lfrecon.ml", lines 2943-2998, characters 5-8: - 2943 | .....begin match instantiation.contents with - 2944 | | None -> - 2945 | begin - 2946 | try - 2947 | let tA = Store.FVar.get x in - ... - 2995 | | _ -> - 2996 | throw loc (UnboundName x) - 2997 | end - 2998 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (IHead _|ISub _|ICtx _) - File "src/core/lfrecon.ml", lines 2939-2998, characters 2-8: - 2939 | ..function - 2940 | | [] -> () - 2941 | | ((_, Apx.LF.(Root (loc, FVar x, spine)), - 2942 | Int.LF.(Inst {instantiation; typ = ClTyp (MTyp tP, cPsi); _})) :: cnstrs) -> - 2943 | begin match instantiation.contents with - ... - 2995 | | _ -> - 2996 | throw loc (UnboundName x) - 2997 | end - 2998 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Root (_, FVar _, _), Inst {typ=ClTyp ((PTyp _|STyp (_, _)), _); _ })::_ - File "src/core/lfrecon.ml", lines 3020-3025, characters 7-99: - 3020 | .......let (cD_d, Int.LF.(Decl { typ = ClTyp (MTyp _tP, cPhi); _ })) = - 3021 | lookup_fcvar loc u - 3022 | in - 3023 | let cPhi = weakenAppropriately cD_d cPhi in - 3024 | let s'' = elSub loc cPsi s cPhi in - 3025 | Int.LF.(v.instantiation := Some (INorm (Root (loc, FMVar (u, s''), Nil, Plicity.explicit)))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((PTyp _|STyp (_, _)), _); _ }) - File "src/core/lfrecon.ml", lines 3027-3033, characters 7-98: - 3027 | .......let (cD_d, Int.LF.(Decl { typ = ClTyp (PTyp tA, cPhi); _ })) = - 3028 | lookup_fcvar loc x - 3029 | in - 3030 | let cPhi = weakenAppropriately cD_d cPhi in - 3031 | let s'' = elSub loc cPsi s cPhi in - 3032 | let (tS, _) = elSpine loc Pibox Int.LF.(v.cD) cPsi spine (tA, s'') in - 3033 | Int.LF.(v.instantiation := Some (INorm (Root (loc, FPVar (x, s''), tS, Plicity.explicit)))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=ClTyp ((MTyp _|STyp (_, _)), _); _ }) - File "src/core/lfrecon.ml", lines 3017-3033, characters 4-98: - 3017 | ....match tM, Int.LF.(v.typ) with - 3018 | | Apx.LF.(Root (loc, FMVar (u, s), _nil_spine)), Int.LF.(ClTyp (MTyp _, cPsi)) -> - 3019 | assert (match _nil_spine with Apx.LF.Nil -> true | _ -> false); - 3020 | let (cD_d, Int.LF.(Decl { typ = ClTyp (MTyp _tP, cPhi); _ })) = - 3021 | lookup_fcvar loc u - ... - 3030 | let cPhi = weakenAppropriately cD_d cPhi in - 3031 | let s'' = elSub loc cPsi s cPhi in - 3032 | let (tS, _) = elSpine loc Pibox Int.LF.(v.cD) cPsi spine (tA, s'') in - 3033 | Int.LF.(v.instantiation := Some (INorm (Root (loc, FPVar (x, s''), tS, Plicity.explicit)))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Root (_, FMVar (_, _), _), ClTyp ((PTyp _|STyp (_, _)), _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Reconstruct.cmx -c -impl src/core/reconstruct.ml) - File "src/core/reconstruct.ml", lines 55-179, characters 20-41: - 55 | ....................function - 56 | | NotImplemented f -> - 57 | Format.dprintf "@[<v 2>Not implemented:@,@[%a@]@]" - 58 | f () - 59 | | MCtxIllformed cD -> - ... - 176 | @, @[%a@]\ - 177 | @]" - 178 | P.(fmt_ppr_cmp_meta_obj cD l0) mC_p - 179 | P.(fmt_ppr_cmp_meta_obj cD l0) mC - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - IllegalSubstMatch - File "src/core/reconstruct.ml", lines 217-218, characters 2-45: - 217 | ..function - 218 | | Int.LF.Decl d -> Name.mk_some_name d.name - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/reconstruct.ml", lines 258-267, characters 4-26: - 258 | ....match tau, n with - 259 | | _, 0 -> 0 - 260 | | I.TypPiBox (_, Int.LF.Decl { name = u; typ = cU; inductivity = Inductivity.Inductive; _ }, tau), n -> - 261 | Error.raise_violation (Format.asprintf "[%s] impossible LF.Inductive" __FUNCTION__) - 262 | | I.TypPiBox (_, Int.LF.Decl { name = u; typ = cU; plicity = Plicity.Implicit; _ }, tau), n -> - 263 | 1 + skip tau n (* implicits are free *) - 264 | | I.TypPiBox (_, Int.LF.Decl { name = u; typ = cU; plicity = Plicity.Explicit; _ }, tau), n -> - 265 | 1 + skip tau (n - 1) (* explicits pi-types cost 1 *) - 266 | | I.TypArr (_, _, tau), n -> - 267 | 1 + skip tau (n - 1).............................. - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypPiBox (_, DeclOpt _, _), 1) - File "src/core/reconstruct.ml", lines 292-298, characters 9-92: - 292 | .........let (_, Int.LF.Decl { typ = Int.LF.CTyp (Some s_cid'); _ }) = Store.FCVar.get psi in - 293 | if Id.cid_schema_equal s_cid s_cid' - 294 | then Int.LF.CtxVar (Int.LF.CtxName psi) - 295 | else - 296 | let { Store.Cid.Schema.Entry.name; schema } = Store.Cid.Schema.get s_cid in - 297 | let c_var' = Int.LF.CtxName psi in - 298 | Check.LF.(CtxVarMismatch (cD, c_var', name, schema) |> throw (Name.location psi)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, Decl {typ=CTyp None; _ }) - File "src/core/reconstruct.ml", lines 343-361, characters 7-10: - 343 | .......let Int.LF.CTyp (Some s_cid) = Int.LF.(v.typ) in - 344 | begin - 345 | let cPsi = elDCtxAgainstSchema loc Lfrecon.Pibox cD cPsi s_cid in - 346 | Unify.instantiateCtxVar (Int.LF.(v.instantiation), cPsi); - 347 | match Context.ctxVar cPsi with - ... - 358 | } - 359 | ) - 360 | | _ -> () - 361 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp None - File "src/core/reconstruct.ml", lines 396-400, characters 2-23: - 396 | ..match cG, k with - 397 | | Int.LF.Dec (_cG', Int.Comp.CTypDecl (_, tau, _)), 1 -> - 398 | Whnf.cnormCTyp (tau, Whnf.m_id) - 399 | | Int.LF.Dec (cG', Int.Comp.CTypDecl (_, _tau, _)), k -> - 400 | lookup cG' (k - 1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Dec (_, CTypDeclOpt _), _) - File "src/core/reconstruct.ml", lines 410-416, characters 2-32: - 410 | ..function - 411 | | Apx.LF.Empty -> Int.LF.Empty - 412 | | Apx.LF.Dec (ctx, Apx.LF.TypDecl (name, typ)) -> - 413 | let ctx' = elTypDeclCtx cD ctx in - 414 | let tA = Lfrecon.elTyp Lfrecon.Pi cD (Context.projectCtxIntoDctx ctx') typ in - 415 | let typDecl' = Int.LF.TypDecl (name, tA) in - 416 | Int.LF.Dec (ctx', typDecl') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, TypDeclOpt _) - File "src/core/reconstruct.ml", lines 459-466, characters 20-5: - 459 | ....................(Apx.LF.Decl (u, ctyp, plicity)) = - 460 | let ctyp' = elCTyp recT cD ctyp in - 461 | Int.LF.Decl - 462 | { name = u - 463 | ; typ = ctyp' - 464 | ; plicity - 465 | ; inductivity = Inductivity.not_inductive - 466 | } - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/reconstruct.ml", lines 519-557, characters 4-26: - 519 | ....function - 520 | | (Int.LF.Typ, _s) -> - 521 | Int.LF.Nil - 522 | - 523 | | (Int.LF.(PiKind ((TypDecl (u, tA1), depend, plicity), kK), s)) -> - ... - 554 | (P.fmt_ppr_lf_typ cD cPsi P.l0) (Whnf.normTyp (tA1, s)) - 555 | end; - 556 | let tS = genSpine (kK, Int.LF.Dot (Int.LF.Obj tR, s)) in - 557 | Int.LF.App (tR, tS) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind ((TypDeclOpt _, _, _), _), _) - File "src/core/reconstruct.ml", lines 563-575, characters 2-8: - 563 | ..function - 564 | | Int.LF.Atom (_, a, _) -> - 565 | mgAtomicTyp cD cPsi a (Store.Cid.Typ.get a).Store.Cid.Typ.Entry.kind - 566 | - 567 | | Int.LF.Sigma trec -> - ... - 572 | Int.LF.PiTyp - 573 | ( (tdecl', depend, plicity) - 574 | , mgTyp cD (Int.LF.DDec (cPsi, tdecl')) tA - 575 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TClo _ - File "src/core/reconstruct.ml", lines 578-580, characters 2-41: - 578 | ..function - 579 | | Int.LF.TypDecl (x, tA) -> - 580 | Int.LF.TypDecl (x, mgTyp cD cPsi tA) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypDeclOpt _ - File "src/core/reconstruct.ml", lines 637-640, characters 5-18: - 637 | .....let Int.LF.Root (_, h, Int.LF.Nil, _) = - 638 | Lfrecon.elTerm Lfrecon.Pibox cD cPsi' tM (tA', LF.id) - 639 | in - 640 | Int.LF.PObj h - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Root (_, _, (App (_, _)|SClo (_, _)), _) - File "src/core/reconstruct.ml", lines 647-650, characters 5-18: - 647 | .....let Int.LF.Root (_, h, Int.LF.Nil, _) = - 648 | Lfrecon.elTerm Lfrecon.Pibox cD cPsi' tM (tA', LF.id) - 649 | in - 650 | Int.LF.PObj h - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Root (_, _, (App (_, _)|SClo (_, _)), _) - File "src/core/reconstruct.ml", lines 711-727, characters 2-104: - 711 | ..match (s, cKt) with - 712 | | (Apx.Comp.MetaNil, (Int.Comp.Ctype _, _)) -> - 713 | Int.Comp.MetaNil - 714 | - 715 | | (Apx.Comp.MetaNil, (Int.Comp.PiKind (_, cdecl, _cK), theta)) -> - ... - 724 | - 725 | | (Apx.Comp.MetaApp (m, s), (Int.Comp.PiKind (_, Int.LF.Decl { typ = ctyp; _ }, cK), theta)) -> - 726 | let (mO, t') = elMetaObjCTyp loc cD m theta ctyp in - 727 | Int.Comp.MetaApp(mO, Whnf.cnormMTyp (ctyp, theta), elMetaSpine loc cD s (cK, t'), Plicity.explicit) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (MetaApp (_, _), (PiKind (_, DeclOpt _, _), _)) - File "src/core/reconstruct.ml", lines 798-803, characters 4-65: - 798 | ....function - 799 | | (Int.Comp.Ctype _, _t) -> Int.Comp.MetaNil - 800 | | (Int.Comp.PiKind (loc', Int.LF.Decl { name = u; typ = cU; plicity; inductivity }, cK), t) -> - 801 | let (mO, t') = Whnf.dotMMVar loc cD t (u, cU, plicity, inductivity) in - 802 | let mS = genMetaSpine (cK, t') in - 803 | Int.Comp.MetaApp (mO, Whnf.cnormMTyp (cU, t), mS, plicity) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PiKind (_, DeclOpt _, _), _) - File "src/core/reconstruct.ml", lines 830-842, characters 2-49: - 830 | ..match cPsi with - 831 | | Int.LF.CtxVar (Int.LF.CtxOffset psi_var) -> - 832 | let (n, sW) = Whnf.mctxCDec cD psi_var in - 833 | let v = - 834 | let open Int.LF in - ... - 839 | | Int.LF.DDec (cPsi, Int.LF.TypDecl (x, tA)) -> - 840 | let cPsi' = mgCtx cD' (cD, cPsi) in - 841 | let tA' = mgTyp cD' cPsi' tA in - 842 | Int.LF.DDec (cPsi', Int.LF.TypDecl (x, tA')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar (CtxName _|CInst _) - File "src/core/reconstruct.ml", lines 921-939, characters 7-54: - 921 | .......let Int.Comp.TypBox (_, mT) = tau_p' in - 922 | dprintf - 923 | begin fun p -> - 924 | p.fmt "[synPatRefine] @[<v>unifying scrutinee and pattern:\ - 925 | @,mC = @[%a@]\ - ... - 936 | (mT, Whnf.m_id) - 937 | with - 938 | | Unify.Failure msg -> - 939 | throw loc (ImpossiblePattern (cD, mC_p, mC)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypBase (_, _, _)|TypCobase (_, _, _)|TypDef (_, _, _)|TypArr (_, _, _)| - TypCross (_, T (_, _, _))|TypPiBox (_, _, _)|TypClo (_, _)|TypInd _) - File "src/core/reconstruct.ml", lines 916-939, characters 4-54: - 916 | ....match caseT with - 917 | | DataObj -> () (* not dependent pattern matching; nothing to do *) - 918 | | IndexObj (Int.Comp.(PatMetaObj (_, mC_p) | PatAnn (_, PatMetaObj (_, mC_p), _, _)), mC) -> - 919 | let mC_p = Whnf.cnormMetaObj (mC_p, Whnf.m_id) in - 920 | (* tau_p' _has_ to be a box type if caseT is an IndexObj *) - ... - 936 | (mT, Whnf.m_id) - 937 | with - 938 | | Unify.Failure msg -> - 939 | throw loc (ImpossiblePattern (cD, mC_p, mC)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - IndexObj - (PatAnn - (_, - (PatConst (_, _, _)|PatFVar (_, _)|PatVar (_, _)|PatTuple (_, _)| - PatAnn (_, _, _, _)), _, _), - _) - File "src/core/reconstruct.ml", lines 1369-1376, characters 7-22: - 1369 | .......match id with - 1370 | | None -> true - 1371 | | Some Apx.LF.Id -> true - 1372 | | Some Apx.LF.EmptySub -> - 1373 | let (_, cPsi, _, cPhi) = Whnf.mctxSDec cD k in - 1374 | match cPhi, cPsi with - 1375 | | Int.LF.Null, Int.LF.Null -> true - 1376 | | _ -> false - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Some (Dot (_, _)|SVar (_, _)|FSVar (_, _)) - File "src/core/reconstruct.ml", lines 1393-1416, characters 6-9: - 1393 | ......let Apx.LF.MInst (Int.LF.SObj s0, Int.LF.ClTyp (Int.LF.STyp (cl, cPsi), cPhi)) = s in - 1394 | let cPhi2 = Lfrecon.elDCtx Lfrecon.Pibox cD phi2 in - 1395 | let s' = Lfrecon.elSub loc Lfrecon.Pibox cD cPhi2 s' cl cPhi in - 1396 | let s0' = Substitution.LF.comp s0 s' in - 1397 | begin match s0' with - ... - 1413 | else - 1414 | throw loc IllegalSubstMatch - 1415 | | _ -> throw loc IllegalSubstMatch - 1416 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MInst (SObj _, ClTyp ((MTyp _|PTyp _), _)) - File "src/core/reconstruct.ml", lines 1421-1442, characters 5-8: - 1421 | .....begin - 1422 | match cpsi with - 1423 | | Apx.LF.CtxVar (ctxvar) -> - 1424 | let c_var = Lfrecon.elCtxVar ctxvar in - 1425 | let cM = (loc', Int.LF.CObj (Int.LF.CtxVar c_var)) in - ... - 1439 | end - 1440 | |> throw loc - 1441 | end - 1442 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Null|CtxHole|DDec (_, _)) - File "src/core/reconstruct.ml", lines 1194-1458, characters 2-6: - 1194 | ..match i with - 1195 | | Apx.Comp.Var (loc, offset) -> - 1196 | let tau = lookup cG offset in - 1197 | dprintf - 1198 | begin fun p -> - ... - 1455 | , ( Int.Comp.TypCross (loc, ttaus') - 1456 | , C.m_id - 1457 | ) - 1458 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Box - (_, (_, ClObj (_, Dot (Head _, (Id|Dot (_, _)|SVar (_, _)|FSVar (_, _)))))) - File "src/core/reconstruct.ml", lines 1524-1600, characters 2-8: - 1524 | ..match (pat, ttau) with - 1525 | | (Apx.Comp.PatVar (loc, name, x), (tau, theta)) -> - 1526 | let tau' = Whnf.cnormCTyp (tau, theta) in - 1527 | dprintf - 1528 | begin fun p -> - ... - 1597 | | Unify.Failure msg -> - 1598 | dprint (fun () -> "Unify Error: " ^ msg); - 1599 | raise (Check.Comp.Error (loc, Check.Comp.SynMismatch (cD, ttau, ttau'))) - 1600 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatFVar (_, _), _) - File "src/core/reconstruct.ml", lines 1603-1613, characters 2-57: - 1603 | ..function - 1604 | | Apx.Comp.PatAnn (loc, pat, tau) -> - 1605 | let tau' = elCompTyp cD tau in - 1606 | let (cG', pat') = elPatChk cD cG pat (tau', Whnf.m_id) in - 1607 | (cG', Int.Comp.PatAnn (loc, pat', tau', Plicity.explicit), (tau', Whnf.m_id)) - ... - 1610 | let { Store.Cid.CompConst.Entry.typ = tau; _ } = Store.Cid.CompConst.get c in - 1611 | dprintf (fun p -> p.fmt "[elPat] PatConst = %s@\n" (R.render_cid_comp_const c)); - 1612 | let (cG1, pat_spine', ttau') = elPatSpine cD cG pat_spine (tau, Whnf.m_id) in - 1613 | (cG1, Int.Comp.PatConst (loc, c, pat_spine'), ttau') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PatMetaObj (_, _)|PatFVar (_, _)|PatVar (_, _, _)|PatTuple (_, _)) - File "src/core/reconstruct.ml", lines 1690-1733, characters 5-8: - 1690 | .....begin match ttau with - 1691 | | (Int.Comp.TypCobase (_, _, _), _) -> - 1692 | let { Store.Cid.CompDest.Entry.name - 1693 | ; mctx = cD' - 1694 | ; obs_type = tau0 - ... - 1730 | let (cG', pat_spine', ttau2) = elPatSpine cD cG pat_spine ttau' in - 1731 | (cG', Int.Comp.PatApp (loc, pat', pat_spine'), ttau2) - 1732 | (* | _ -> raise (Error (loc, TypMismatch (cD, ttau, (tau1, Whnf.m_id)))) *) - 1733 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypPiBox (_, Decl {plicity=Explicit; _ }, _), _) - File "src/core/reconstruct.ml", lines 1749-1756, characters 5-68: - 1749 | .....let Int.Comp.TypBox (_, Int.LF.ClTyp (Int.LF.MTyp _tQ, cPsi_s)) = tau_s in - 1750 | let cPsi = inferCtxSchema loc (cD_s, cPsi_s) (cD, psi) in - 1751 | let tP = Lfrecon.elTyp (Lfrecon.Pibox) cD cPsi a in - 1752 | let tau' = Int.Comp.TypBox(loc', Int.LF.ClTyp (Int.LF.MTyp tP, cPsi)) in - 1753 | let ttau' = (tau', Whnf.m_id) in - 1754 | let (cG', pat') = elPatChk cD Int.LF.Empty pat' ttau' in - 1755 | (* Return annotated pattern? Int.Comp.PatAnn (l, pat', tau') *) - 1756 | (cG', Int.Comp.PatAnn (l, pat', tau', Plicity.explicit), ttau') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypBox (_, ClTyp ((PTyp _|STyp (_, _)), _)) - File "src/core/reconstruct.ml", lines 1784-1801, characters 10-13: - 1784 | ..........begin match mT with - 1785 | | Int.LF.(MTyp (Atom _ | Sigma _ as tA))-> - 1786 | let cPsi' = inferCtxSchema loc (cD_s, cPsi) (cD, psi) in - 1787 | let tP' = mgTyp cD cPsi' tA in - 1788 | (loc', Int.LF.ClTyp (Int.LF.MTyp tP', cPsi')) - ... - 1798 | fixParamTyp in check.ml, and it is only used for - 1799 | coverage checking. *) - 1800 | Error.raise_violation "[recPatObj'] scrutinee PTyp should be impossible" - 1801 | end - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MTyp (TClo _) - File "src/core/reconstruct.ml", lines 2084-2106, characters 2-5: - 2084 | ..let { I.cD = cD'; cG = cG'; cIH = Int.LF.Empty } as h' = - 2085 | elHypotheses h - 2086 | in - 2087 | dprintf - 2088 | begin fun p -> - ... - 2103 | ( loc - 2104 | , h' - 2105 | , elProof cD cG label p ttau - 2106 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - {cIH=Dec (_, WfRec (_, _, _)); _ } - File "src/core/reconstruct.ml", lines 2288-2301, characters 11-29: - 2288 | ...........match k, tA' with - 2289 | | Some k, Int.LF.Sigma tRec -> - 2290 | (* Compute the type of the kth projection of tRec. *) - 2291 | Int.LF.getType h (tRec, LF.id) k - 2292 | |> Whnf.normTyp - ... - 2298 | A projected case #n.k is required. - 2299 | *) - 2300 | assert false - 2301 | | None, tA' -> tA' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Some _, (Atom (_, _, _)|PiTyp (_, _)|TClo _)) - File "src/core/reconstruct.ml", lines 2339-2420, characters 7-56: - 2339 | .......let Int.LF.MTyp tP = cU in - 2340 | let (cD', (cPsi', tR_p, tA_p), t) = - 2341 | match Coverage.genObj (cD, cPsi, tP) (Int.LF.Const cid, tA, k) with - 2342 | | None -> assert false - 2343 | (* FIXME: throw an appropriate error - ... - 2417 | cD_b |- [t o t']tau <= type - 2418 | *) - 2419 | in - 2420 | I.SplitBranch (l', (Int.LF.Empty, pat), t', hyp') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PTyp _|STyp (_, _)) - File "src/core/reconstruct.ml", lines 2428-2463, characters 7-57: - 2428 | .......let Int.LF.MTyp tA = cU in - 2429 | let (cD', (cPsi', tM, sA), t) = - 2430 | match Coverage.genBVar (cD, cPsi, tA) 1 with - 2431 | | [x] -> x - 2432 | | _ -> - ... - 2460 | let l' = `bvar in - 2461 | let pb' = I.SubgoalPath.(append pb (build_meta_split i l')) in - 2462 | let hyp' = elHypothetical cD_b cG_b pb' hyp ttau_b in - 2463 | I.SplitBranch (l', (Int.LF.Empty, pat'), t', hyp') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (PTyp _|STyp (_, _)) - File "src/core/reconstruct.ml", lines 2545-2547, characters 5-44: - 2545 | .....let Some w = w in - 2546 | let ctx_branches = List.map (make_ctx_branch w) bs in - 2547 | I.ContextSplit (i, tau_i, ctx_branches) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/reconstruct.ml", lines 2562-2568, characters 5-17: - 2562 | .....let (cD', cG', Int.LF.Empty, tau', _) = - 2563 | Check.Comp.unroll cD cG Int.LF.Empty (Whnf.cnormCTyp ttau) - 2564 | in - 2565 | let hyp = - 2566 | elHypothetical cD' cG' I.SubgoalPath.(append pb build_intros) hyp (tau', Whnf.m_id) - 2567 | in - 2568 | I.Intros hyp - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, _, Dec (_, WfRec (_, _, _)), _, _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/sedlex -I src/html/.beluga_html.objs/byte -I src/html/.beluga_html.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Beluga -o src/core/.beluga.objs/native/beluga__Logic.cmx -c -impl src/core/logic.ml) - File "src/core/logic.ml", lines 190-203, characters 4-36: - 190 | ....match tN with - 191 | | LF.Lam (l, n, tN') -> - 192 | begin - 193 | incr lR; - 194 | let tM = LF.Lam (l, n, shiftNormal tN' k) in - ... - 200 | | LF.Clo (tN, s) -> - 201 | LF.Clo (shiftNormal tN k, s) - 202 | | LF.Tuple (l, tP) -> - 203 | LF.Tuple (l, shiftTuple tP k) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - LFHole (_, _, _) - File "src/core/logic.ml", lines 241-251, characters 4-8: - 241 | ....match tA with - 242 | | LF.PiTyp ((tD, _, Plicity.Implicit), tA') -> - 243 | typToClause' (LF.DDec (eV, tD)) cG tA' (cS, dS, dR) - 244 | | LF.PiTyp ((LF.TypDecl (_, tA), _, Plicity.Explicit), tB) -> - 245 | typToClause' eV (Conjunct (cG, typToGoal tA (cS, dS, dR))) - ... - 248 | { tHead = (Shift.shiftAtom tA (-cS, -dS, dR)) - 249 | ; eVars = eV - 250 | ; subGoals = cG - 251 | } - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, Explicit), _) - File "src/core/logic.ml", lines 297-306, characters 4-30: - 297 | ....match tA with - 298 | | LF.PiTyp ((tdec, _, Plicity.Implicit), tA') -> - 299 | All (tdec, typToGoal tA' (cS, dS, dR + 1)) - 300 | | LF.PiTyp ((LF.TypDecl (x, tA) as tdec, _, Plicity.Explicit), tB) -> - 301 | Impl ((typToRes tA (cS, dS, dR), tdec), typToGoal tB (cS, dS, dR + 1)) - 302 | | LF.Atom _ -> - 303 | Atom (Shift.shiftAtom tA (-cS, -dS, dR)) - 304 | | LF.TClo (tA, s) -> - 305 | dprintf begin fun p -> p.fmt "[typToGoal] TClo" end; - 306 | raise NotImplementedYet - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, Explicit), _) - File "src/core/logic.ml", lines 309-315, characters 4-47: - 309 | ....match tM with - 310 | | LF.PiTyp ((tD, _, Plicity.Implicit), tM') -> - 311 | Exists (tD, typToRes tM' (cS, dS, dR + 1)) - 312 | | LF.PiTyp ((LF.TypDecl (_, tA), _, Plicity.Explicit), tB) -> - 313 | And (typToGoal tA (cS, dS, dR), typToRes tB (cS + 1, dS + 1, dR + 1)) - 314 | | LF.Atom _ -> - 315 | Head (Shift.shiftAtom tM (-cS, -dS, dR)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, Explicit), _) - File "src/core/logic.ml", lines 326-348, characters 4-34: - 326 | ....match tau with - 327 | | Comp.TypBox (_loc, LF.ClTyp (LF.MTyp tA, cPsi)) -> - 328 | (* Invariant: tA will always be atomic in our implementation *) - 329 | Box (cPsi, Atom tA, Some M) - 330 | (* possibly needs to have PiBox variables shifted; - ... - 345 | let typ_dec = Comp.CTypDecl (name, tau1 , true) in - 346 | Implies ((cr1, typ_dec), cg2) - 347 | | Comp.TypBase (_, comp_cid, s) -> - 348 | Atomic (comp_cid, msToAs s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - TypBox (_, CTyp _) - File "src/core/logic.ml", lines 351-358, characters 4-47: - 351 | ....match tau with - 352 | | Comp.TypBox (_) | Comp.TypBase(_) -> - 353 | Base tau - 354 | | Comp.TypArr (_, tau1, tau2) -> - 355 | CAnd (comptypToCompGoal tau1, comptypToCompRes tau2) - 356 | | Comp.TypPiBox (_, typ_dec, tau') -> - 357 | CExists (typ_dec, comptypToCompRes tau') - 358 | | Comp.TypInd tau' -> comptypToCompRes tau' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypCobase (_, _, _)|TypDef (_, _, _)|TypCross (_, _)|TypClo (_, _)) - File "src/core/logic.ml", lines 394-402, characters 4-30: - 394 | ....match box with - 395 | | Box (cPsi, Atom tA, Some M) -> - 396 | let loc = Location.ghost in - 397 | let ctyp = LF.ClTyp (LF.MTyp tA, cPsi) in - 398 | Comp.TypBox (loc, ctyp) - 399 | | Box (cPsi, Atom tA, Some P) -> - 400 | let loc = Location.ghost in - 401 | let ctyp = LF.ClTyp (LF.PTyp tA, cPsi) in - 402 | Comp.TypBox (loc, ctyp) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Box (_, Atom _, None) - File "src/core/logic.ml", lines 412-416, characters 4-34: - 412 | ....match atomic with - 413 | | Atomic (cid, aS) -> - 414 | let loc = Location.ghost in - 415 | let mS = asToMs aS in - 416 | Comp.TypBase (loc, cid, mS) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Box (_, _, _)|Implies ((_, _), _)|Forall (_, _)) - File "src/core/logic.ml", lines 434-443, characters 4-10: - 434 | ....match tA with - 435 | | LF.Atom _ -> - 436 | let u = LF.Inst (Whnf.newMMVar None (cD, cPsi, LF.TClo (tA, s)) Plicity.implicit Inductivity.not_inductive) in - 437 | LF.Root (Location.ghost, LF.MVar (u, S.id), LF.Nil, Plicity.explicit) - 438 | | LF.PiTyp ((LF.TypDecl (x, tA) as tD, _, _), tB) -> - 439 | LF.Lam - 440 | ( Location.ghost - 441 | , x - 442 | , etaExpand cD (LF.DDec (cPsi, S.decSub tD s)) (tB, S.dot1 s) - 443 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - PiTyp ((TypDeclOpt _, _, _), _) - File "src/core/logic.ml", lines 462-470, characters 4-68: - 462 | ....match eV with - 463 | | LF.DDec (eV', LF.TypDecl (_, tA)) -> - 464 | let (s', fS') = dctxToSub cD cPsi (eV', s) fS in - 465 | let tM' = etaExpand cD cPsi (tA, s') in - 466 | (LF.Dot (LF.Obj tM', s'), (fun tS -> fS' (LF.App (tM', tS)))) - 467 | | LF.Null -> (s, fS) - 468 | | LF.CtxVar _ -> - 469 | invalid_arg - 470 | "Logic.Convert.dctxToSub: Match conflict with LF.CtxVar _." - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/logic.ml", lines 475-481, characters 4-28: - 475 | ....match eV with - 476 | | LF.DDec (eV', LF.TypDecl (_, tA)) -> - 477 | let (s', fS') = dctxToSub' cD cPsi (eV', s) fS in - 478 | let tM' = etaExpand cD cPsi (tA, s') in - 479 | (LF.Dot (LF.Obj tM', s'), (fun tS -> fS' (LF.App (tM', tS)))) - 480 | | LF.Null -> (s, fS) - 481 | | LF.CtxVar _ -> (s, fS) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DDec (_, TypDeclOpt _) - File "src/core/logic.ml", lines 500-501, characters 6-52: - 500 | ......match lst with - 501 | | (cPsi, k) :: lst' -> (shift lst' (-1), cPsi) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 510-513, characters 6-20: - 510 | ......match dctx with - 511 | | LF.DDec (dctx', _) -> find_ctxvar_offset dctx' - 512 | | LF.CtxVar (LF.CtxOffset k) -> k - 513 | | LF.Null -> 0 - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CtxVar (CtxName _|CInst _) - File "src/core/logic.ml", lines 697-709, characters 9-47: - 697 | .........(match mtyp with - 698 | | LF.ClTyp (LF.MTyp _, _) -> - 699 | let mmV = Whnf.newMMVar' (Some x) (LF.Empty, mtyp) plicity inductivity in - 700 | let mfront = Whnf.mmVarToMFront loc mmV mtyp in - 701 | comptypToMQuery' (tau', i-1) (LF.MDot (mfront, ms)) - ... - 706 | comptypToMQuery' (tau', i-1) (LF.MDot (mfront, ms)) - 707 | ((x, (loc, mfront)) :: xs) - 708 | | LF.CTyp cid_opt -> - 709 | comptypToMQuery' (tau', i-1) ms xs) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (STyp (_, _), _) - File "src/core/logic.ml", lines 696-709, characters 9-47: - 696 | .........let LF.Decl { name = x; typ = mtyp; plicity; inductivity } = mdecl in - 697 | (match mtyp with - 698 | | LF.ClTyp (LF.MTyp _, _) -> - 699 | let mmV = Whnf.newMMVar' (Some x) (LF.Empty, mtyp) plicity inductivity in - 700 | let mfront = Whnf.mmVarToMFront loc mmV mtyp in - ... - 706 | comptypToMQuery' (tau', i-1) (LF.MDot (mfront, ms)) - 707 | ((x, (loc, mfront)) :: xs) - 708 | | LF.CTyp cid_opt -> - 709 | comptypToMQuery' (tau', i-1) ms xs) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - DeclOpt _ - File "src/core/logic.ml", lines 1084-1094, characters 4-72: - 1084 | ....match r with - 1085 | | Head tH -> - 1086 | fmt_ppr_typ cD cPsi ppf (tH, s) - 1087 | | And (g, r') -> - 1088 | fprintf ppf "%a -> %a" - ... - 1091 | | Exists (LF.TypDecl (_, _tA) as tD, r') -> - 1092 | fprintf ppf "(∃%a. %a)" - 1093 | (fmt_ppr_decl cD cPsi) (tD, s) - 1094 | (fmt_ppr_res cD (LF.DDec (cPsi, S.decSub tD s))) (r', S.dot1 s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Exists (TypDeclOpt _, _) - File "src/core/logic.ml", lines 1305-1332, characters 4-19: - 1305 | ....match s with - 1306 | | LF.Shift _ -> true - 1307 | | LF.Dot (LF.Head (((LF.MMVar ((mmvar, ms'), s)) as hd)), s') -> - 1308 | if uninstantiated hd then false - 1309 | else check_sub s' - ... - 1329 | if uninstantiated hd then false - 1330 | else check_sub s' - 1331 | | LF.Dot (_, s') -> - 1332 | check_sub s' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub|Undefs|SVar (_, _, _)|FSVar (_, _)|MSVar (_, _)) - File "src/core/logic.ml", lines 1337-1339, characters 6-48: - 1337 | ......match cD with - 1338 | | LF.Dec (_, LF.Decl d) when k = 1 -> d.plicity - 1339 | | LF.Dec (cD', _) -> get_plicity cD' (k-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Empty - File "src/core/logic.ml", lines 1394-1412, characters 4-30: - 1394 | ....match g with - 1395 | | Atom tA -> - 1396 | matchAtom dPool cD (cPsi, k) (tA, s) sc (currDepth, maxDepth) - 1397 | - 1398 | | Impl ((r, (LF.TypDecl (x, _) as tD)), g') -> - ... - 1409 | So we just prove the conclusion in an extended context. *) - 1410 | gSolve dPool cD (LF.DDec (cPsi, S.decSub tD s), k + 1) (g', S.dot1 s) - 1411 | (fun (u, tM) -> sc (u, LF.Lam (Location.ghost, x, tM))) - 1412 | (currDepth, maxDepth) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Impl ((_, TypDeclOpt _), _) - File "src/core/logic.ml", lines 1444-1446, characters 17-29: - 1444 | .................match cltyp with - 1445 | | LF.MTyp tau -> tau - 1446 | | LF.PTyp tau -> tau - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 1439-1483, characters 4-96: - 1439 | ....match cD with - 1440 | | LF.Empty -> raise NoSolution - 1441 | | LF.Dec (cD', LF.Decl { typ = LF.CTyp _ ; _}) -> - 1442 | solve_sub_delta (cD_all, cD', k+1, cPhi, dPool) (tA, s, curr_sub) (u, s_all) (goal, s_goal) - 1443 | | LF.Dec (cD', LF.Decl { typ = LF.ClTyp (cltyp, cPsi); plicity; _ }) -> - ... - 1480 | end - 1481 | with - 1482 | | U.Failure _ -> - 1483 | solve_sub_delta (cD_all, cD', k+1, cPhi, dPool) (tA, s, curr_sub) (u, s_all) (goal, s_goal) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/logic.ml", lines 1496-1600, characters 4-76: - 1496 | ....match s with - 1497 | | LF.Shift _ -> - 1498 | dprintf begin fun p -> - 1499 | p.fmt "[trivially_prove] s_all = %a" - 1500 | (P.fmt_ppr_lf_sub cD cPhi P.l0) s_all - ... - 1597 | with - 1598 | | U.Failure _ | NoSolution -> raise NoSolution) - 1599 | | LF.Dot (_, s') -> - 1600 | trivially_prove s' s_all cD (goal, cPhi, s_goal) dPool u (curr_sub+1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (EmptySub|Undefs|SVar (_, _, _)|FSVar (_, _)|MSVar (_, _)) - File "src/core/logic.ml", lines 2260-2263, characters 4-25: - 2260 | ....match cG with - 2261 | | LF.Dec (cG', Comp.CTypDecl (name, _, _)) when k = 1 -> name - 2262 | | LF.Dec (cG', Comp.CTypDecl (name, _, _)) -> - 2263 | get_name (k-1) cG' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/logic.ml", lines 2337-2340, characters 4-21: - 2337 | ....match cdecl with - 2338 | | Comp.CTypDecl (_, tau, _) -> - 2339 | let cc = {cHead = tau; cMVars = LF.Empty; cSubGoals = Proved} in - 2340 | (cc, k, Boxed) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/logic.ml", lines 2416-2417, characters 9-57: - 2416 | .........let (Full (Emp, cc')) = cnormCPool (Full (Emp, cc), ms) in - 2417 | update cP' cG' (prependToCPool cc' cP_ret) (k+1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Full (Full (_, (_, _, _)), (_, _, _)) - File "src/core/logic.ml", lines 2407-2418, characters 6-33: - 2407 | ......match (cP, cG) with - 2408 | | (Emp, LF.Dec(cG', cdecl)) -> - 2409 | let cc = decToCC cdecl 1 in - 2410 | let cP_ret' = shift_cPool cP_ret 1 in - 2411 | update cP cG' (prependToCPool cc cP_ret') (k+1) - ... - 2415 | if pos' = k then unbox cc else cc in - 2416 | let (Full (Emp, cc')) = cnormCPool (Full (Emp, cc), ms) in - 2417 | update cP' cG' (prependToCPool cc' cP_ret) (k+1) - 2418 | | (Emp, LF.Empty) -> cP_ret - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Full (_, _), Empty) - File "src/core/logic.ml", lines 2470-2476, characters 6-36: - 2470 | ......match tA with - 2471 | | LF.Atom (l, cid, sp) -> - 2472 | LF.Atom (l, cid, remove_sp sp) - 2473 | | LF.PiTyp ((td, depend, plicity), tA') -> - 2474 | LF.PiTyp ((td, depend, plicity), remove_typ tA) - 2475 | | LF.TClo (tA', s) -> - 2476 | LF.TClo (remove_typ tA', s) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Sigma _ - File "src/core/logic.ml", lines 2495-2508, characters 6-49: - 2495 | ......match tau with - 2496 | | Comp.TypBase (l, cid, mS) -> - 2497 | Comp.TypBase (l, cid, remove_mS mS) - 2498 | | Comp.TypBox (l, mT) -> - 2499 | (match mT with - ... - 2505 | | Comp.TypArr (l, tau1, tau2) -> - 2506 | Comp.TypArr (l, remove_tau tau1, remove_tau tau2) - 2507 | | Comp.TypPiBox (l, cdec, tau') -> - 2508 | Comp.TypPiBox (l, cdec, remove_tau tau') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypCobase (_, _, _)|TypDef (_, _, _)|TypCross (_, _)|TypClo (_, _)|TypInd _) - File "src/core/logic.ml", lines 2731-2741, characters 9-52: - 2731 | .........let LF.ClTyp (LF.MTyp tA, cPsi) = mmvar.LF.typ in - 2732 | let mmvar' = - 2733 | Whnf.newMMVar None (mmvar.LF.cD, cPsi, tA) mmvar.LF.plicity - 2734 | mmvar.LF.inductivity in - 2735 | let norm = LF.Root (noLoc, - ... - 2738 | let mf = LF.ClObj (dctx_hat, LF.MObj norm) in - 2739 | let x = Comp.M ((noLoc, mf), mT) in - 2740 | let (xs, sub) = gen_new_ih_args lst' ys in - 2741 | (x :: xs, (mmvar.LF.mmvar_id, norm) :: sub) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/logic.ml", lines 2752-2762, characters 9-52: - 2752 | .........let LF.ClTyp (LF.MTyp tA, cPsi) = mmvar.LF.typ in - 2753 | let mmvar' = - 2754 | Whnf.newMMVar None (mmvar.LF.cD, cPsi, tA) mmvar.LF.plicity - 2755 | mmvar.LF.inductivity in - 2756 | let norm = LF.Root (noLoc, LF.MMVar - ... - 2759 | let mf = LF.ClObj (dctx_hat, LF.MObj norm) in - 2760 | let x = Comp.M ((noLoc, mf), mT) in - 2761 | let (xs, sub) = gen_new_ih_args lst' ys in - 2762 | (x :: xs, (mmvar.LF.mmvar_id, norm) :: sub) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((PTyp _|STyp (_, _)), _) - File "src/core/logic.ml", lines 2771-2779, characters 9-58: - 2771 | .........let LF.ClTyp (LF.PTyp tA, cPsi) = mmvar.LF.typ in - 2772 | let mmvar' = - 2773 | Whnf.newMPVar None (mmvar.LF.cD, cPsi, tA) mmvar.LF.plicity - 2774 | mmvar.LF.inductivity in - 2775 | let hd = LF.MPVar ((mmvar', LF.MShift 0), LF.Shift 0) in - 2776 | let mf = LF.ClObj (dctx_hat, LF.PObj hd) in - 2777 | let x = Comp.M ((noLoc, mf), mT) in - 2778 | let (xs, sub) = gen_new_ih_args lst' ys in - 2779 | (x :: xs, (mmvar.LF.mmvar_id, LF.head hd) :: sub) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp ((MTyp _|STyp (_, _)), _) - File "src/core/logic.ml", lines 2842-2843, characters 11-44: - 2842 | ...........let (LF.Root(_, hd',_,_)) = sub_norm (LF.head hd) sub in - 2843 | (loc, LF.ClObj (dh, LF.PObj hd')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)) - File "src/core/logic.ml", lines 2920-2921, characters 6-42: - 2920 | ......match i with - 2921 | | Comp.Var(l, k) -> Comp.Var(l, k+1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Fn (_, _, _)|Fun (_, _)|MLam (_, _, _, _)|Tuple (_, T (_, _, _))| - LetTuple (_, _, (T (_, _, _), _))|Let (_, _, (_, _))|Box (_, (_, _), _)| - Case (_, _, _, _)|Impossible (_, _)|Hole (_, _, _)|DataConst (_, _)| - Obs (_, _, _, _)|Const (_, _)|Apply (_, _, _)|MApp (_, _, (_, _), _, _)| - AnnBox (_, (_, _), _)) - File "src/core/logic.ml", lines 2977-2978, characters 6-37: - 2977 | ......match cltyp with - 2978 | | LF.MTyp tA | LF.PTyp tA -> tA - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 2998-3001, characters 6-58: - 2998 | ......match cG_a with - 2999 | | [] -> false - 3000 | | (Comp.CTypDecl (name2, _ ,_), _, _, _, _, _) :: cG_a' -> - 3001 | (Name.equal name name2) || (old_split name cG_a') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (CTypDeclOpt _, _, _, _, _, _)::_ - File "src/core/logic.ml", lines 3005-3009, characters 6-37: - 3005 | ......match cG_a with - 3006 | | (Comp.CTypDecl (name2, _ ,_), _, con, _, thm, bool) :: cG_a' - 3007 | when Name.equal name name2 -> - 3008 | (con, thm, bool) - 3009 | | x :: xs -> find_split name xs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 3013-3065, characters 6-30: - 3013 | ......match (cG, cPool) with - 3014 | | (LF.Dec(cG', - 3015 | ((Comp.CTypDecl (name, Comp.TypBox - 3016 | (_, LF.ClTyp (cltyp, cPsi)), _wf)) - 3017 | as cdecl)), - ... - 3062 | | (LF.Dec (cG', _), Full (cPool', _)) -> - 3063 | update (cG', cPool', ret) - 3064 | - 3065 | | (LF.Empty, Emp) -> ret - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Dec (_, _), Emp) - File "src/core/logic.ml", lines 3084-3087, characters 6-38: - 3084 | ......match cD_a with - 3085 | | (LF.Decl d, Option.Some _, _, _, _, _) as x :: cD_a' - 3086 | when Name.equal d.name n -> x - 3087 | | _ :: cD_a' -> retrieve n cD_a' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 3103-3108, characters 21-41: - 3103 | .....................match cltyp with - 3104 | | LF.MTyp tA -> - 3105 | LF.MObj (LF.Root (noLoc, LF.MVar (LF.Offset 1, S.id), - 3106 | LF.Nil, Plicity.explicit)) - 3107 | | LF.PTyp tA -> - 3108 | LF.PObj (LF.PVar (1, S.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 3094-3118, characters 9-31: - 3094 | .........let (LF.Decl { typ = tau2; _ }, _, con, pos, thm, bool) = - 3095 | retrieve name cD_a in - 3096 | let (con', bool') = - 3097 | if bool then - 3098 | try - ... - 3115 | let tdecl' = Whnf.cnormCDecl (tdecl, LF.MShift 1) in - 3116 | let x = (tdecl', Some i, con', 1, thm, bool') in - 3117 | let ret' = shift_cD_a ret in - 3118 | update cD' (x :: ret') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (DeclOpt _, _, _, _, _, _) - File "src/core/logic.ml", lines 3126-3131, characters 21-41: - 3126 | .....................match cltyp with - 3127 | | LF.MTyp tA -> - 3128 | LF.MObj (LF.Root (noLoc, LF.MVar (LF.Offset 1, S.id), - 3129 | LF.Nil, Plicity.explicit)) - 3130 | | LF.PTyp tA -> - 3131 | LF.PObj (LF.PVar (1, S.id)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 3090-3157, characters 6-23: - 3090 | ......match cD with - 3091 | | LF.Dec (cD', ((LF.Decl { name; typ = ((LF.ClTyp (cltyp, cPsi)) as ctyp) - 3092 | ; plicity = Plicity.Explicit; _ }) as tdecl)) - 3093 | when is_in name cD_a -> - 3094 | let (LF.Decl { typ = tau2; _ }, _, con, pos, thm, bool) = - ... - 3154 | let x = (tdecl', None, con, 1, None, bool) in - 3155 | let ret' = shift_cD_a ret in - 3156 | update cD' (x :: ret') - 3157 | | LF.Empty -> ret - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/core/logic.ml", lines 3243-3251, characters 6-44: - 3243 | ......match cG_a with - 3244 | | (Comp.CTypDecl (n, tau, _wf), Some i, no, k, thm_var, true) :: cG_a' - 3245 | when Name.equal name n -> - 3246 | (tau, i, thm_var, - 3247 | (Comp.CTypDecl (n, tau, _wf), Some i, no, k, thm_var, false) - 3248 | :: cG_a', k) - 3249 | | x :: cG_a' -> - 3250 | let (tau, i, thm_var, cG_a'', pos) = remove_var name cG_a' in - 3251 | (tau, i, thm_var, x :: cG_a'', pos) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 3256-3264, characters 6-39: - 3256 | ......match cD_a with - 3257 | | (LF.Decl d, Option.Some i, no, k, thm_var, true) - 3258 | :: cD_a' when Name.equal name d.name -> - 3259 | let tau = Comp.TypBox(noLoc, d.typ) in - 3260 | (tau, i, thm_var, (LF.Decl d, Option.some i, no, k, thm_var, false) - 3261 | :: cD_a') - 3262 | | x :: cD_a' -> - 3263 | let (tau, i, thm_var, cD_a'') = remove_mvar name cD_a' in - 3264 | (tau, i, thm_var, x :: cD_a'') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 3330-3332, characters 9-42: - 3330 | .........let (Some n) = find_mvar k cD_a in - 3331 | let (tau, i, thm_var, cD_a') = remove_mvar n cD_a in - 3332 | (tau, i, thm_var, cD_a', cG_a, 0). - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 3358-3365, characters 8-50: - 3358 | ........match cG_a with - 3359 | | (((Comp.CTypDecl (name2, _ ,_)) as cdecl), _, con, _, thm, bool) - 3360 | :: cG_a' when Name.equal name name2 -> - 3361 | (cdecl, con, thm, bool, cG_a') - 3362 | | x :: xs -> - 3363 | let (tdecl, num, thm_var, bool, cG_a') = - 3364 | remove xs in - 3365 | (tdecl, num, thm_var, bool, x :: cG_a') - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 3374-3399, characters 7-25: - 3374 | .......(match cltyp with - 3375 | | LF.MTyp tA -> - 3376 | let tdecl' = LF.Decl { name; typ = ctyp; plicity = Plicity.explicit; inductivity = Inductivity.not_inductive } in - 3377 | let norm = - 3378 | LF.Root (noLoc, LF.MVar (LF.Offset 1, S.id), LF.Nil, Plicity.explicit) in - ... - 3396 | let i = Comp.AnnBox(noLoc, mobj, ctyp) in - 3397 | let cD_a' = (tdecl', Some i, num_con, 1, thm_var, bool) - 3398 | :: (shift_cD_a cD_a) in - 3399 | (cD_a', cG_a')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 3403-3428, characters 7-25: - 3403 | .......(match cltyp with - 3404 | | LF.MTyp _ -> - 3405 | let tdecl' = LF.Decl { name; typ = ctyp; plicity = Plicity.explicit; inductivity = Inductivity.inductive } in - 3406 | let norm = - 3407 | LF.Root (noLoc, LF.MVar (LF.Offset 1, S.id), LF.Nil, Plicity.explicit) in - ... - 3425 | let i = Comp.AnnBox(noLoc, mobj, ctyp) in - 3426 | let cD_a' = (tdecl', Some i, num_con, 1, thm_var, bool) - 3427 | :: (shift_cD_a cD_a) in - 3428 | (cD_a', cG_a')) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 3489-3525, characters 7-31: - 3489 | .......(match cltyp with - 3490 | | LF.MTyp _ -> - 3491 | let norm = - 3492 | LF.Root (noLoc, LF.MVar (LF.Offset 1, S.id), - 3493 | LF.Nil, plicity) in - ... - 3522 | | false -> None - 3523 | in - 3524 | (tdecl', Some i, consOfLFTyp cltyp, 1, thm_var, true) - 3525 | :: (shift_cD_a cD_a)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - STyp (_, _) - File "src/core/logic.ml", lines 3646-3651, characters 4-46: - 3646 | ....match cG with - 3647 | | LF.Empty -> cPool - 3648 | | LF.Dec (cG', Comp.CTypDecl (_, tau, _)) -> - 3649 | let clause = {cHead = tau; cMVars = LF.Empty; cSubGoals = Proved} in - 3650 | let cc = (clause, (lengthCPool cPool) + 1, Boxed) in - 3651 | gen_cPool cG' (prependToCPool cc cPool) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/core/logic.ml", lines 3898-3900, characters 6-46: - 3898 | ......match cD with - 3899 | | LF.Dec (_, LF.Decl { name; _ }) when k = 1 -> name - 3900 | | LF.Dec (cD', _) -> find_name cD' (k-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Empty - File "src/core/logic.ml", lines 4037-4047, characters 22-64: - 4037 | ......................match mobj with - 4038 | | LF.MObj (LF.Root (_, LF.MMVar ((mmvar, _), _), _, _)) - 4039 | | LF.MObj (LF.Root (_, LF.MPVar ((mmvar, _), _), _, _)) -> - 4040 | mmvar.LF.instantiation := - 4041 | Some (LF.INorm (LF.Root (noLoc, - ... - 4044 | | LF.PObj LF.MPVar ((mmvar, _), _) - 4045 | | LF.PObj LF.MMVar ((mmvar, _), _) -> - 4046 | mmvar.LF.instantiation := - 4047 | Some (LF.IHead (LF.MVar (LF.Offset k, LF.Shift 0))) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MObj - (Root - (_, - (BVar _|Const _|MVar _|PVar _|AnnH (_, _)|Proj (_, _)|FVar _|FMVar _| - FPVar _|HClo (_, _, _)|HMClo (_, _)), _, _)) - File "src/core/logic.ml", lines 4051-4057, characters 6-26: - 4051 | ......match ih_args with - 4052 | | (Comp.M ((_, LF.ClObj (_, ((LF.PObj hd) as mobj))), _)) :: xs -> - 4053 | if Solver.uninstantiated hd then mobj else grab xs - 4054 | | (Comp.M ((_, LF.ClObj (_, ((LF.MObj (LF.Root (_,hd,_,_))) as mobj))), _)) - 4055 | :: xs-> - 4056 | if Solver.uninstantiated hd then mobj else grab xs - 4057 | | _ :: xs -> grab xs - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] - File "src/core/logic.ml", lines 4060-4064, characters 14-56: - 4060 | ..............match mobj with - 4061 | | LF.MObj (LF.Root (_, LF.MMVar ((mmvar, _), _), _, _)) - 4062 | | LF.MObj (LF.Root (_, LF.MPVar ((mmvar, _), _), _, _)) - 4063 | | LF.PObj LF.MPVar ((mmvar, _), _) - 4064 | | LF.PObj LF.MMVar ((mmvar, _), _) -> mmvar.LF.typ... - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MObj - (Root - (_, - (BVar _|Const _|MVar (_, _)|PVar (_, _)|AnnH (_, _)|Proj (_, _)| - FVar _|FMVar (_, _)|FPVar (_, _)|HClo (_, _, _)| - HMClo (_, (({instantiation=_; constraints=_; _ }, _), _))), _, _)) - File "src/core/logic.ml", lines 4079-4090, characters 6-88: - 4079 | ......let Some cid = thm_cid in - 4080 | let i = Comp.Const(noLoc, cid) in - 4081 | let sc' = (fun e -> sc (Comp.Case (noLoc, - 4082 | Comp.PragmaNotCase, - 4083 | Whnf.cnormExp (fS i, LF.MShift 0), - ... - 4087 | pattern, - 4088 | LF.MShift 0, - 4089 | e)]))) in - 4090 | find_all_occurances dec (cG', cPool', cG_a') sc' cD thm_cid thm lst' cIH' cIH_all' - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 4126-4128, characters 21-40: - 4126 | .....................match (currDepth, maxDepth) with - 4127 | | (Some k, None) -> (k, 0) - 4128 | | (Some k1, Some k2) -> (k1, k2) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (None, _) - File "src/core/logic.ml", lines 4290-4311, characters 9-83: - 4290 | .........let Some cid = thm_cid in - 4291 | let i = arg_builder (Comp.Const(noLoc, cid)) in - 4292 | let (ms', fS) = - 4293 | C.mctxToMSub cD (cMVars, LF.MShift 0) (fun s -> s) in - 4294 | let ms'' = rev_ms ms' 0 in - ... - 4308 | with - 4309 | | U.Failure _ | DepthReached _ | End_Of_Search -> - 4310 | focusIH (cD, cD_a) (cG, cPool, cG_a) (cIH', cIH_all) cg ms sc - 4311 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) (thm, td, thm_cid)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 4595-4597, characters 6-57: - 4595 | ......match cG with - 4596 | | LF.Dec (_, Comp.CTypDecl (_, tau, _)) when k = 1 -> tau - 4597 | | LF.Dec (cG', _) -> find_comp_assumption cG' (k-1) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Empty - File "src/core/logic.ml", lines 4895-4905, characters 10-31: - 4895 | ..........let [(cD, cD_b, cD_a, cG, cG_p, cG_a, cIH_b, cPool, - 4896 | ms_b, pat, td_b, cid)] = blist in - 4897 | - 4898 | invert_all (cD, cD_a) (cG, cPool, cG_a) cIH_b - 4899 | (normCompGoal (cg, ms)) ms_b - ... - 4902 | [Comp.Branch(noLoc, LF.Empty, (cD, cG), pat, - 4903 | ms_b, e)]))) - 4904 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 4905 | (ind, thm, td, cid) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, _, _, _, _, _, _, _, _, _, _, _)::(_, _, _, _, _, _, _, _, _, _, _, _)::_ - File "src/core/logic.ml", lines 4976-5015, characters 7-35: - 4976 | .......let Atom tA = g' in - 4977 | let cltyp = LF.MTyp tA in - 4978 | let sc' = - 4979 | (fun (cPsi', tM) -> - 4980 | let dctx_hat = Context.dctxToHat cPsi' in - ... - 5012 | split (cD, cD_a) (cG, cPool, cG_a) cIH cg ms sc - 5013 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 5014 | (ind, thm, td, thm_cid); - 5015 | raise End_Of_Search) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Impl ((_, _), _)|All (_, _)) - File "src/core/logic.ml", lines 4975-5015, characters 7-35: - 4975 | .......let Box(cPsi',g',_) = cg' in - 4976 | let Atom tA = g' in - 4977 | let cltyp = LF.MTyp tA in - 4978 | let sc' = - 4979 | (fun (cPsi', tM) -> - ... - 5012 | split (cD, cD_a) (cG, cPool, cG_a) cIH cg ms sc - 5013 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 5014 | (ind, thm, td, thm_cid); - 5015 | raise End_Of_Search) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Implies ((_, _), _)|Forall (_, _)|Atomic (_, _)) - File "src/core/logic.ml", lines 5024-5029, characters 11-51: - 5024 | ...........let LF.Root (_,hd,_,_) = tM in - 5025 | let dctx_hat = Context.dctxToHat cPsi' in - 5026 | let mfront = LF.ClObj (dctx_hat, LF.PObj hd) in - 5027 | let meta_obj = (noLoc, mfront) in - 5028 | let meta_typ = LF.ClTyp (cltyp, cPsi') in - 5029 | sc (Comp.Box(noLoc, meta_obj, meta_typ)). - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)) - File "src/core/logic.ml", lines 5020-5060, characters 7-34: - 5020 | .......let Atom tA = g' in - 5021 | let cltyp = LF.PTyp tA in - 5022 | let sc' = - 5023 | (fun (cPsi', tM) -> - 5024 | let LF.Root (_,hd,_,_) = tM in - ... - 5057 | split (cD, cD_a) (cG, cPool, cG_a) cIH cg ms sc - 5058 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 5059 | (ind, thm, td, thm_cid); - 5060 | raise End_Of_Search) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Impl ((_, _), _)|All (_, _)) - File "src/core/logic.ml", lines 5019-5060, characters 7-34: - 5019 | .......let Box(_,g',_) = cg' in - 5020 | let Atom tA = g' in - 5021 | let cltyp = LF.PTyp tA in - 5022 | let sc' = - 5023 | (fun (cPsi', tM) -> - ... - 5057 | split (cD, cD_a) (cG, cPool, cG_a) cIH cg ms sc - 5058 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 5059 | (ind, thm, td, thm_cid); - 5060 | raise End_Of_Search) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (Implies ((_, _), _)|Forall (_, _)|Atomic (_, _)) - File "src/core/logic.ml", lines 4969-5085, characters 4-30: - 4969 | ....match cg with - 4970 | | Box (cPsi, g, Some M) -> - 4971 | (* We apply the msub here in case there are FREE MVARS that - 4972 | appear from unify *) - 4973 | let ms = Whnf.cnormMSub ms in - ... - 5082 | split (cD, cD_a) (cG, cPool, cG_a) cIH cg ms sc - 5083 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) - 5084 | (ind, thm, td, thm_cid); - 5085 | raise End_Of_Search - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Box (_, _, None) - File "src/core/logic.ml", lines 5223-5246, characters 7-36: - 5223 | .......let Some cid = thm_cid in - 5224 | let cIH_all' = Total.shift cIH_all in - 5225 | let cIH'' = Total.shift cIH' in - 5226 | let i = Comp.Const(noLoc, cid) in - 5227 | (try - ... - 5243 | | End_Of_Search | DepthReached _ -> - 5244 | blurIH (cD, cD_a) (cG, cPool, cG_a) (cIH', cIH_all) cg ms sc - 5245 | (cDepth, mDepth, currSplitDepth, maxSplitDepth) - 5246 | (ind, thm, td, thm_cid)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5263-5286, characters 7-32: - 5263 | .......let Some cid = thm_cid in - 5264 | let i = Comp.Const(noLoc, cid) in - 5265 | let cIH'' = Total.shift cIH' in - 5266 | let cIH_all' = Total.shift cIH_all in - 5267 | let exp = Whnf.cnormExp (fS i, LF.MShift 0) in - ... - 5283 | in - 5284 | blurIH (cD, cD_a) (cG', cPool', cG_a') (cIH'', cIH_all') cg ms sc' - 5285 | (cDepth, mDepth, currSplitDepth, maxSplitDepth) - 5286 | (ind, thm, td, thm_cid) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5393-5394, characters 6-46: - 5393 | ......match cp with - 5394 | | (_cc, _k, Boxed) -> (_cc, _k, Unboxed) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, _, Unboxed) - File "src/core/logic.ml", lines 5441-5458, characters 10-49: - 5441 | ..........match r with - 5442 | | LF.ClTyp (LF.MTyp _, cPsi) -> - 5443 | let tM = - 5444 | LF.Root - 5445 | ( noLoc - ... - 5455 | LF.ClObj (Context.dctxToHat (Whnf.cnormDCtx (cPsi, LF.MShift 1)), - 5456 | LF.PObj hd) - 5457 | | LF.CTyp _ -> - 5458 | LF.CObj (LF.CtxVar (LF.CtxOffset 1)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (STyp (_, _), _) - File "src/core/logic.ml", lines 5549-5554, characters 7-37: - 5549 | .......let Comp.CTypDecl (name, _, _) = tdecl in - 5550 | let sc' = (fun e -> sc (Comp.Fn (noLoc, name, e))) in - 5551 | let cIH' = Total.shift cIH in - 5552 | uniform_right (cD, cD_a) (cG', cPool', cG_a') cIH' cg' ms sc' - 5553 | (currDepth, maxDepth, currSplitDepth, maxSplitDepth) (k+1) - 5554 | (ind, thm, td, thm_cid) blur - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTypDeclOpt _ - File "src/core/logic.ml", lines 5587-5590, characters 24-19: - 5587 | ........................match sp with - 5588 | | 0 -> Some 0 (* No splitting. *) - 5589 | | 1 -> None (* Only inversions. *) - 5590 | | 2 -> Some 1........................ - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - 3 - File "src/core/logic.ml", lines 5795-5798, characters 9-40: - 5795 | .........let Some iterm = !(mmvar.LF.instantiation) in - 5796 | (match iterm with - 5797 | | LF.IHead hd -> hd - 5798 | | _ -> raise NotImplementedYet) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5800-5803, characters 9-40: - 5800 | .........let Some iterm = !(mmvar.LF.instantiation) in - 5801 | (match iterm with - 5802 | | LF.IHead hd -> hd - 5803 | | _ -> raise NotImplementedYet) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5805-5808, characters 9-40: - 5805 | .........let Some iterm = !(mmvar.LF.instantiation) in - 5806 | (match iterm with - 5807 | | LF.IHead hd -> hd - 5808 | | _ -> raise NotImplementedYet) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5834-5835, characters 11-16: - 5834 | ...........let Some iterm = !(mmvar.LF.instantiation) in - 5835 | iterm - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5837-5838, characters 11-16: - 5837 | ...........let Some iterm = !(mmvar.LF.instantiation) in - 5838 | iterm - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5840-5841, characters 11-16: - 5840 | ...........let Some iterm = !(mmvar.LF.instantiation) in - 5841 | iterm - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - None - File "src/core/logic.ml", lines 5847-5849, characters 9-33: - 5847 | .........(match remove_head_mvars hd with - 5848 | | LF.IHead hd -> LF.Root (l, hd, remove_spine_mvars spine, p) - 5849 | | LF.INorm norm -> norm) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (ISub _|ICtx _) - File "src/core/logic.ml", lines 6066-6076, characters 8-33: - 6066 | ........match tau with - 6067 | | Comp.TypPiBox (_, LF.Decl { inductivity = Inductivity.Inductive; _ }, _) -> Option.some n - 6068 | | Comp.TypPiBox (_, _, tau') -> ind_index tau' (n + 1) - 6069 | | Comp.TypInd (_) -> Option.some n - 6070 | | Comp.TypBox (_, _) -> Option.none - ... - 6073 | let ind = ind_index tau1 n in - 6074 | match ind with - 6075 | | Option.None -> ind_index tau2 (n + 1) - 6076 | | Option.Some _ -> ind - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (TypCobase (_, _, _)|TypDef (_, _, _)|TypCross (_, _)|TypClo (_, _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/harpoon/.harpoon.objs/byte -I src/harpoon/.harpoon.objs/native -I /home/opam/.opam/4.14.1/lib/dune-build-info -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/linenoise -I /home/opam/.opam/4.14.1/lib/sedlex -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I src/optparser/.optparser.objs/byte -I src/optparser/.optparser.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Harpoon -o src/harpoon/.harpoon.objs/native/harpoon__Translate.cmx -c -impl src/harpoon/translate.ml) - File "src/harpoon/translate.ml", lines 25-26, characters 5-58: - 25 | .....let LF.Dec (cG', Comp.CTypDecl (x, _, _)) = cG' in - 26 | (cD', cG', fun e -> Comp.Fn (Location.ghost, x, f e)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, CTypDeclOpt _) - File "src/harpoon/translate.ml", lines 29-33, characters 5-6: - 29 | .....let LF.Dec (cD', LF.Decl { name = x; plicity; _ }) = cD' in - 30 | ( cD' - 31 | , cG' - 32 | , fun e -> Comp.MLam (Location.ghost, x, f e, plicity) - 33 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Dec (_, DeclOpt _) - File "src/harpoon/translate.ml", lines 56-68, characters 10-40: - 56 | ..........match cU with - 57 | | (ClTyp ( (MTyp _ | PTyp _), cPsi )) -> - 58 | let tM = - 59 | Root - 60 | ( Location.ghost - ... - 65 | in - 66 | ClObj (Context.dctxToHat (Whnf.cnormDCtx (cPsi, t)), MObj tM) - 67 | | CTyp _ -> - 68 | CObj (CtxVar (CtxOffset 1)) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - ClTyp (STyp (_, _), _) - File "src/harpoon/translate.ml", lines 131-149, characters 5-8: - 131 | .....let (cD', cG', LF.Empty, tau', t) = - 132 | Check.Comp.unroll cD cG LF.Empty tau - 133 | in - 134 | (* cD' |- t : cD - 135 | is a weakening meta-substitution *) - ... - 146 | P.(fmt_ppr_cmp_gctx cD_orig l0) cG_orig - 147 | end; - 148 | assert (Whnf.convMCtx cD_orig cD && Whnf.convGCtx (cG_orig, Whnf.m_id) (cG, t)); - 149 | f e - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - (_, _, Dec (_, WfRec (_, _, _)), _, _) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/harpoon/.harpoon.objs/byte -I src/harpoon/.harpoon.objs/native -I /home/opam/.opam/4.14.1/lib/dune-build-info -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/linenoise -I /home/opam/.opam/4.14.1/lib/sedlex -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I src/optparser/.optparser.objs/byte -I src/optparser/.optparser.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Harpoon -o src/harpoon/.harpoon.objs/native/harpoon__Tactic.cmx -c -impl src/harpoon/tactic.ml) - File "src/harpoon/tactic.ml", lines 227-231, characters 7-55: - 227 | .......match cG with - 228 | | LF.Dec (cG', Comp.CTypDecl (n, tA, _)) when k == 1 -> - 229 | LF.Dec (cG', Comp.CTypDecl (n, tA, false)) - 230 | | LF.Dec (cG', decl) -> - 231 | LF.Dec (unmark_inductive_var cG' (k-1), decl) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - Empty - File "src/harpoon/tactic.ml", lines 453-468, characters 12-72: - 453 | ............let LF.(MObj (Root (_, h, _, _))) = tM in - 454 | match h with - 455 | | LF.PVar (n, s) -> `pvar None - 456 | | LF.(Proj (PVar (n, s), k)) -> `pvar (Some k) - 457 | | LF.Const cid -> `ctor cid - ... - 465 | P.(fmt_ppr_cmp_pattern cD cG l0) pat - 466 | end; - 467 | Error.raise_violation - 468 | "[make_meta_branch] head neither pvar (proj) nor const" - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - MObj (Lam (_, _, _)|LFHole (_, _, _)|Clo (_, _)|Tuple (_, _)) - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/harpoon/.harpoon.objs/byte -I src/harpoon/.harpoon.objs/native -I /home/opam/.opam/4.14.1/lib/dune-build-info -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/linenoise -I /home/opam/.opam/4.14.1/lib/sedlex -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I src/optparser/.optparser.objs/byte -I src/optparser/.optparser.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -open Harpoon -o src/harpoon/.harpoon.objs/native/harpoon__Automation.cmx -c -impl src/harpoon/automation.ml) - File "src/harpoon/automation.ml", lines 107-115, characters 7-10: - 107 | .......let LF.ClTyp (_, cPsi) as cU = Whnf.cnormMTyp (cU, t) in - 108 | let head = MVar (Offset idx, S.LF.id) in - 109 | let clobj = MObj (Root (Location.ghost, head, Nil, Plicity.explicit)) in - 110 | let psi_hat = Context.dctxToHat cPsi in - 111 | Box - 112 | ( Location.ghost - 113 | , (Location.ghost, ClObj (psi_hat, clobj)) - 114 | , cU - 115 | ) - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - CTyp _ - (cd _build/default && /home/opam/.opam/4.14.1/bin/ocamlopt.opt -w -40 -g -I src/harpoon/.main.eobjs/byte -I src/harpoon/.main.eobjs/native -I /home/opam/.opam/4.14.1/lib/dune-build-info -I /home/opam/.opam/4.14.1/lib/extlib -I /home/opam/.opam/4.14.1/lib/gen -I /home/opam/.opam/4.14.1/lib/linenoise -I /home/opam/.opam/4.14.1/lib/sedlex -I src/core/.beluga.objs/byte -I src/core/.beluga.objs/native -I src/harpoon/.harpoon.objs/byte -I src/harpoon/.harpoon.objs/native -I src/optparser/.optparser.objs/byte -I src/optparser/.optparser.objs/native -I src/parser/.beluga_parser.objs/byte -I src/parser/.beluga_parser.objs/native -I src/support/.support.objs/byte -I src/support/.support.objs/native -I src/syntax/.beluga_syntax.objs/byte -I src/syntax/.beluga_syntax.objs/native -I src/syntax/synapx/.synapx.objs/byte -I src/syntax/synapx/.synapx.objs/native -I src/syntax/syncom/.syncom.objs/byte -I src/syntax/syncom/.syncom.objs/native -I src/syntax/synext/.synext.objs/byte -I src/syntax/synext/.synext.objs/native -I src/syntax/synint/.synint.objs/byte -I src/syntax/synint/.synint.objs/native -intf-suffix .ml -no-alias-deps -o src/harpoon/.main.eobjs/native/dune__exe__Main.cmx -c -impl src/harpoon/main.ml) - File "src/harpoon/main.ml", lines 15-39, characters 2-71: - 15 | ..let (arg0 :: args) = Array.to_list Sys.argv in - 16 | let open Options in - 17 | let options = parse_arguments args in - 18 | - 19 | if Debug.is_enabled () then Debug.init (Option.some "debug.out"); - ... - 36 | Repl.start - 37 | (disambiguation_states, last_disambiguation_state) - 38 | (indexing_states, last_indexing_state) - 39 | options.save_back options.test_stop options.path all_paths stubs io - Warning 8 [partial-match]: this pattern-matching is not exhaustive. - Here is an example of a case that is not matched: - [] -> compiled beluga.1.1.1 -> installed beluga.1.1.1 Done. 2024-07-02 17:50.48 ---> saved as "bf6e543ba4f8851d3343af065973037c66e530ef5b9da672111f68bd4b53b5db" Job succeeded