sci-mathematics:twelf-1.7.1-r1:20210721-215804.log

sci-mathematics:twelf-1.7.1-r1:20210721-215804.log (text/plain), 568.34 KB, created by Toralf Förster on 2021-07-21 22:15:48 UTC

 * Package:    sci-mathematics/twelf-1.7.1-r1
 * Repository: gentoo
 * Maintainer: [e-mail]
 * USE:        abi_x86_64 amd64 elibc_glibc emacs kernel_linux userland_GNU
 * FEATURES:   network-sandbox preserve-libs sandbox userpriv usersandbox

>>> Unpacking source...
>>> Unpacking twelf-src-1.7.1.tar.gz to /var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/work
>>> Source unpacked in /var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/work
>>> Preparing source in /var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/work/twelf ...
 * Applying twelf-1.7.1-doc-guide-twelf-dot-texi.patch ...
 [ ok ]
 * Applying twelf-1.7.1-doc-guide-Makefile.patch ...
 [ ok ]
 * Applying twelf-1.7.1-emacs-twelf.patch ...
 [ ok ]
 * Applying twelf-1.7.1-emacs-twelf-init.patch ...
 [ ok ]
 * Applying twelf-1.7.1-Makefile.patch ...
 [ ok ]
 * Applying twelf-1.7.1-mlton-mlb.patch ...
 [ ok ]
 * Applying twelf-1.7.1-mlton-20180207.patch ...
 [ ok ]
>>> Source prepared.
>>> Configuring source in /var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/work/twelf ...
>>> Source configured.
>>> Compiling source in /var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/work/twelf ...
make -j3 mlton 'CFLAGS=-pipe -march=native -fno-diagnostics-color -O2 ' 'LDFLAGS=-Wl,-O1 -Wl,--as-needed -Wl,--defsym=__gentoo_check_ldflags__=0 -fno-PIE' 
rm -Rf src/frontend/buildid.sml
mltonversion=`mlton -disable-ann nonexhaustiveMatch 2>&1 | awk 'NR==1 { print 0+$2 }'`;	\
if   [ $mltonversion -ge 20041109 ]; then			\
	cmfileid="twelf-server-mlton.mlb";			\
elif [ $mltonversion="MLTONVERSION" ]; then			\
	cmfileid="twelf-server-mlton.mlb";			\
else								\
	echo; echo "Error: MLton >= 20041109 required";	echo;	\
	exit 1;							\
fi;								\
mlton -disable-ann nonexhaustiveMatch -cc-opt -pipe -cc-opt -march=native -cc-opt -fno-diagnostics-color -cc-opt -O2 -link-opt -Wl,-O1 -link-opt -Wl,--as-needed -link-opt -Wl,--defsym=__gentoo_check_ldflags__=0 -link-opt -fno-PIE -as-opt -Wa,--noexecstack -output bin/twelf-server build/${cmfileid}
bin/buildid >src/frontend/buildid.sml
*************************************************
Twelf Server
*************************************************
*************************************************
Twelf Emacs Integration
*************************************************
Add

(setq twelf-root "/var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/work/twelf/")
(load (concat twelf-root "emacs/twelf-init.el"))

to your .emacs file
*************************************************
Warning: src/lambda/intsyn.fun 22.7-22.30.
  Function is not exhaustive.
    missing pattern: Null
    in: fun ctxPop (Decl (G, D)) = G
Warning: src/lambda/intsyn.fun 29.7-30.57.
  Function is not exhaustive.
    missing pattern: (Null, _)
    in: fun ctxLookup (Decl (G', D), 1) =  ...  Lookup (G', k' - 1))
Warning: src/lambda/intsyn.fun 251.7-255.44.
  Function is not exhaustive.
    missing pattern: BlockDef _
    in: fun conDecImp (ConDec (_, _, i, _  ...  ec (_, _, _, _)) = 0
Warning: src/lambda/intsyn.fun 267.7-270.45.
  Function is not exhaustive.
    missing pattern: BlockDec _ | BlockDef _
    in: fun conDecType (ConDec (_, _, _,   ...  (_, _, _, V, _)) = V
Warning: src/lambda/intsyn.fun 280.7-280.62.
  Function is not exhaustive.
    missing pattern: AbbrevDef _ | BlockDef _ | ConDec _ | ConDef _ | SkoDec _
    in: fun conDecBlock (BlockDec (_, _, Gsome, Lpi)) = (Gsome, Lpi)
Warning: src/lambda/intsyn.fun 289.7-292.44.
  Function is not exhaustive.
    missing pattern: BlockDec _ | BlockDef _
    in: fun conDecUni (ConDec (_, _, _, _  ...  (_, _, _, _, L)) = L
Warning: src/lambda/intsyn.fun 369.3-373.51.
  Case is not exhaustive.
    missing pattern: BlockDef _
    in: case sgnLookup cid of ConDec (n,   ...  c (new, m, i, e, u))
Warning: src/lambda/intsyn.fun 382.6-383.37.
  Case is not exhaustive.
    missing pattern: BlockDec _ | BlockDef _ | ConDec _ | SkoDec _
    in: case sgnLookup d of ConDef (_, _,  ...   _, _, U, _, _) => U
Warning: src/lambda/intsyn.fun 463.6-464.24.
  Case is not exhaustive.
    missing pattern: Axp _ | Exp _ | Undef
    in: case bvarSub (k, s) of Idx k' => (Bidx k') | Block B => B
Warning: src/lambda/intsyn.fun 493.7-496.55.
  Function is not exhaustive.
    missing pattern: (Axp _, _)
    in: and frontSub (Idx n, s) = (bvarSu  ...  k (blockSub (B, s)))
Warning: src/lambda/intsyn.fun 514.7-516.63.
  Function is not exhaustive.
    missing pattern: (ADec _, _)
    in: fun decSub (Dec (x, V), s) = (Dec  ...  , (l, comp (t, s))))
Warning: src/lambda/intsyn.fun 556.6-558.52.
  Function is not exhaustive.
    missing pattern: (Null, _)
    in: fun ctxDec' (Decl (G', Dec (x, V'  ...  txDec' (G', k' - 1))
Warning: src/lambda/intsyn.fun 573.7-584.7.
  Function is not exhaustive.
    missing pattern: (_, Inst _ | LVar _, _)
    in: fun blockDec (G, v as Bidx k, i)   ...  s, Lblock, i, 1) end
Warning: src/lambda/intsyn.fun 575.11-575.26.
  Declaration is not exhaustive.
    missing pattern: ADec _ | Dec _ | NDec _
    in: val BDec (_, (l, s)) = ctxDec (G, k)
Warning: src/lambda/intsyn.fun 578.11-581.17.
  Function is not exhaustive.
    missing pattern: (_, nil, _, _)
    in: fun blockDec' (t, D :: L, 1, j) =  ...  ), L, n - 1, j + 1))
Warning: src/lambda/intsyn.fun 614.6-615.43.
  Case is not exhaustive.
    missing pattern: AbbrevDef _ | BlockDec _ | BlockDef _ | ConDec _ | SkoDec _
    in: case sgnLookup d of ConDef (_, _,  ...  , height + 1, cOpt))
Warning: src/lambda/intsyn.fun 624.6-624.41.
  Case is not exhaustive.
    missing pattern: AbbrevDef _ | BlockDec _ | BlockDef _ | ConDec _ | SkoDec _
    in: case sgnLookup d of ConDef (_, _, _, _, _, _, anc) => anc
Warning: src/table/hash-table.sml 26.6-29.24.
  Function is not exhaustive.
    missing pattern: Nil
    in: fun insertB (Cons (r' as ref (has  ...  ) else insertBR br')
Warning: src/table/hash-table.sml 26.6-29.24.
  Function is not exhaustive.
    missing pattern: Nil
    in: fun insertB (Cons (r' as ref (has  ...  ) else insertBR br')
Warning: src/lambda/whnf.fun 102.9-110.45.
  Function is not exhaustive.
    missing pattern: (Axp _ | Block _, _)
    in: fun dotEta (Ft as Idx _, s) = (Do  ...  , s) = (Dot (Ft, s))
Warning: src/lambda/whnf.fun 140.9-160.44.
  Function is not exhaustive.
    missing pattern: ((EClo _ | NVar _ | Redex _, _), (App _ | Nil, _))
    in: fun whnfRedex (Us, (SClo (S, s2')  ...   (Pi _, s1), _) = Us
Warning: src/lambda/whnf.fun 197.9-201.92.
  Function is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: and lowerEVar (X as EVar (r, G, V  ...  not be simplified"))
Warning: src/lambda/whnf.fun 216.8-217.50.
  Case is not exhaustive.
    missing pattern: Axp _ | Block _ | Undef
    in: case bvarSub (k, s) of Idx k => (  ...  nf (U, id), (S, s)))
Warning: src/lambda/whnf.fun 265.9-291.62.
  Function is not exhaustive.
    missing pattern: (NVar _, _)
    in: and whnf (U as Uni _, s) = (U, s)  ...   (EClo (U, s))), id)
Warning: src/lambda/whnf.fun 305.9-307.46.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Uni _,
                      _)
                     | (Root (BVar _
                              | Const _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
    in: and expandDef (Root (Def d, S), s  ...  Def d, id), (S, s)))
Warning: src/lambda/whnf.fun 333.9-334.72.
  Function is not exhaustive.
    missing pattern: (SClo _, _)
    in: fun spineToSub (Nil, s) = s | spi  ...   dotEta (Exp U, s)))
Warning: src/lambda/whnf.fun 346.9-350.73.
  Function is not exhaustive.
    missing pattern: ((App _, _),
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _
                       | Uni _,
                       _))
    in: fun inferSpine ((Nil, _), Vs) = V  ...  Clo (U, s1)), s2))))
Warning: src/lambda/whnf.fun 354.9-356.46.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _
    in: fun inferCon (Const cid) = (const  ...  d) = (constType cid)
Warning: src/lambda/whnf.fun 368.9-372.67.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _))
    in: fun etaExpand' (U, (Root _, s)) =  ...  ndDef (V, dot1 s))))
Warning: src/lambda/whnf.fun 383.9-384.65.
  Function is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Uni _
    in: fun etaExpandRoot (U as Root (H,   ...   (inferCon H, id))))
Warning: src/lambda/whnf.fun 405.9-410.47.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _))
                     | ((Lam _, _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Redex _
                         | Uni _,
                         _))
    in: and whnfEtaW (UsVs as (_, (Root _  ...  ), Nil))), id), Vs2)
Warning: src/lambda/whnf.fun 424.9-436.88.
  Function is not exhaustive.
    missing pattern: (EClo _ | NVar _ | Redex _, _)
    in: and normalizeExpW (U as Uni L, s)  ...   ; raise (Error ""))
Warning: src/lambda/whnf.fun 446.9-448.53.
  Function is not exhaustive.
    missing pattern: (ADec _ | NDec _, _)
    in: and normalizeDec (Dec (xOpt, V),   ...  Sub (comp (t, s)))))
Warning: src/lambda/whnf.fun 454.9-461.54.
  Function is not exhaustive.
    missing pattern: Dot (Axp _ | Block _ | Undef, _)
    in: and normalizeSub (s as Shift _) =  ...  )), normalizeSub s))
Warning: src/lambda/whnf.fun 478.6-482.29.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Exp _, _), _)
    in: fun lookup (n, Shift _, p) = NONE  ...  okup (n + 1, s', p))
Warning: src/lambda/whnf.fun 503.9-516.47.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Exp _, _), _)
                     | (Dot (Idx _, _), Null)
                     | (Dot (Undef, _), Null)
    in: fun strengthen (Shift n, Null) =   ...   Shift (n + 1)), G))
Warning: src/lambda/whnf.fun 606.8-610.20.
  Function is not exhaustive.
    missing pattern: Dot (Axp _ | Block _ | Exp _, _)
    in: fun checkBVar (Shift k) = (n <= k  ...  ')) = (checkBVar s')
Warning: src/lambda/conv.fun 163.9-165.64.
  Function is not exhaustive.
    missing pattern: ((ADec _ | NDec _, _), _)
                     | ((BDec _, _), (ADec _ | Dec _ | NDec _, _))
                     | ((Dec _, _), (ADec _ | BDec _ | NDec _, _))
    in: and convDec ((Dec (_, V1), s1), (  ...  1), comp (s2, t2))))
Warning: src/lambda/tomega.fun 111.7-111.27.
  Case is not exhaustive.
    missing pattern: ForDec _
    in: case lemmaLookup lemma of ValDec (_, P, _) => P
Warning: src/lambda/tomega.fun 149.9-152.36.
  Function is not exhaustive.
    missing pattern: Axp _
    in: fun embedFront (I.Idx k) = (Idx k  ...  ront I.Undef = Undef
Warning: src/lambda/tomega.fun 176.9-179.38.
  Function is not exhaustive.
    missing pattern: Axp _
    in: fun revCoerceFront (I.Idx k) = (I  ...  ront I.Undef = Undef
Warning: src/lambda/tomega.fun 189.9-191.45.
  Function is not exhaustive.
    missing pattern: Decl (_, ADec _ | Dec _ | NDec _)
    in: fun revCoerceCtx I.Null = I.Null   ...  rceCtx Psi, UDec D))
Warning: src/lambda/tomega.fun 205.9-213.45.
  Function is not exhaustive.
    missing pattern: (Block _ | Prg _, _)
    in: fun dotEta (Ft as Idx _, s) = (Do  ...  , s) = (Dot (Ft, s))
Warning: src/lambda/tomega.fun 274.11-276.58.
  Function is not exhaustive.
    missing pattern: (Arg _, Lex _ | Simul _)
                     | (Lex _, Arg _ | Simul _)
                     | (Simul _, Arg _ | Lex _)
    in: fun convTC' (O.Arg (Us1, _), O.Ar  ...  (convTCs (Os1, Os2))
Warning: src/lambda/tomega.fun 277.11-279.48.
  Function is not exhaustive.
    missing pattern: (:: _, nil) | (nil, :: _)
    in: and convTCs (nil, nil) = true | c  ...   (convTCs (L1, L2)))
Warning: src/lambda/tomega.fun 295.8-295.19.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.ctxDec (G, k')
Warning: src/lambda/tomega.fun 304.9-309.63.
  Function is not exhaustive.
    missing pattern: (_, All ((PDec _, _), _), _)
                     | (_, And _, nil)
                     | (_, Ex _, :: (_, :: _))
                     | (_, Ex _, nil)
                     | (_, FClo _ | FVar _ | True | World _, _)
    in: fun transformTC (G, All ((UDec D,  ...  ransformTC' (G, O)))
Warning: src/lambda/tomega.fun 338.9-341.67.
  Function is not exhaustive.
    missing pattern: (Undef, _)
    in: and frontSub (Idx n, t) = (varSub  ...  b (B, coerceSub t)))
Warning: src/lambda/tomega.fun 399.9-412.31.
  Function is not exhaustive.
    missing pattern: (FVar _, _)
    in: fun forSub (All ((D, Q), F), t) =  ...  Sub (True, _) = True
Warning: src/lambda/tomega.fun 423.9-429.61.
  Function is not exhaustive.
    missing pattern: (PDec (_, _, _, SOME _), _)
    in: and decSub (PDec (x, F, TC1, NONE  ...  b (D, coerceSub t)))
Warning: src/lambda/tomega.fun 476.6-480.29.
  Function is not exhaustive.
    missing pattern: (_, Dot (Block _ | Exp _ | Prg _, _), _)
    in: fun lookup (n, Shift _, p) = NONE  ...  okup (n + 1, s', p))
Warning: src/lambda/tomega.fun 558.9-563.26.
  Function is not exhaustive.
    missing pattern: ((PDec _, _), (UDec _, _)) | ((UDec _, _), (PDec _, _))
    in: and convDec ((UDec D1, t1), (UDec  ...  nvTCOpt (TC2, TC2'))
Warning: src/lambda/tomega.fun 589.6-593.54.
  Function is not exhaustive.
    missing pattern: (Null, _)
    in: fun ctxDec' (I.Decl (G', UDec (I.  ...  txDec' (G', k' - 1))
Warning: src/lambda/tomega.fun 615.9-632.4.
  Function is not exhaustive.
    missing pattern: Decl (_, ADec _ | Dec _ | NDec _)
    in: fun deblockify I.Null = (I.Null,   ...  ) in (G'', t''') end
Warning: src/lambda/tomega.fun 647.9-653.38.
  Function is not exhaustive.
    missing pattern: (FVar _, _)
    in: fun whnfFor (Ft as (All (D, _), t  ...  t as (True, _)) = Ft
Warning: src/lambda/tomega.fun 673.9-692.71.
  Function is not exhaustive.
    missing pattern: (Box _
                      | Case _
                      | Choose _
                      | Const _
                      | LetPairExp _
                      | LetUnit _
                      | Let _
                      | New _
                      | Redex _,
                      _)
    in: fun normalizePrg (Var n, t) = (ca  ...  g (P, comp (t, t')))
Warning: src/lambda/tomega.fun 704.9-706.76.
  Function is not exhaustive.
    missing pattern: (PDec (_, _, _, SOME _), _)
    in: and normalizeDec (PDec (name, F,   ...  c (D, coerceSub t)))
Warning: src/lambda/tomega.fun 708.9-716.30.
  Function is not exhaustive.
    missing pattern: Dot (Undef, _)
    in: fun normalizeSub (s as Shift n) =  ...   k, normalizeSub s))
Warning: src/lambda/tomega.fun 733.9-750.72.
  Function is not exhaustive.
    missing pattern: Box _ | Choose _ | Const _ | New _ | PClo _
    in: fun derefPrg (Var n) = (Var n) |   ...  rg P1, derefPrg P2))
Warning: src/lambda/tomega.fun 759.9-765.38.
  Function is not exhaustive.
    missing pattern: SClo _
    in: and derefSpine Nil = Nil | derefS  ...  k (B, derefSpine S))
Warning: src/paths/paths.fun 181.7-206.36.
  Function is not exhaustive.
    missing pattern: (bind (_, NONE, _), Arg _ | Head)
                     | (bind (_, SOME _, _), Arg _ | Head)
    in: fun pathToRegion (u, Here) = (toR  ...  gion (leaf r, _) = r
Warning: src/paths/paths.fun 208.7-211.33.
  Function is not exhaustive.
    missing pattern: (nils, _, _)
    in: and pathToRegionSpine (app (u, s)  ...  ne (s, n - 1, path))
Warning: src/paths/paths.fun 219.7-227.5.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647, Arg _ | Head)
    in: fun skipImplicit (0, path) = path  ...  cit (n, Here) = Here
Warning: src/paths/paths.fun 233.7-234.63.
  Function is not exhaustive.
    missing pattern: (def _, _)
    in: fun occToRegionDec (dec (n, v)) o  ...  oPath (occ, Here))))
Warning: src/paths/paths.fun 239.7-240.63.
  Function is not exhaustive.
    missing pattern: (dec _, _)
    in: fun occToRegionDef1 (def (n, u, v  ...  oPath (occ, Here))))
Warning: src/paths/paths.fun 245.7-248.28.
  Function is not exhaustive.
    missing pattern: (dec _, _)
    in: fun occToRegionDef2 (def (n, u, S  ...  hToRegion (u, Here))
Warning: src/index/index.fun 16.9-17.33.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const c) = c | cidFromHead (I.Def c) = c
Warning: src/index/index.fun 47.9-51.22.
  Function is not exhaustive.
    missing pattern: (_,
                      BVar _
                      | Def _
                      | FVar _
                      | FgnConst _
                      | NSDef _
                      | Proj _
                      | Skonst _)
    in: fun install fromCS (H as I.Const   ...  I.Def c)) | _ => ())
Warning: src/index/index.fun 55.15-58.23.
  Case is not exhaustive.
    missing pattern: SOME (BVar _
                           | Def _
                           | FVar _
                           | FgnConst _
                           | NSDef _
                           | Proj _
                           | Skonst _,
                           _)
    in: case Queue.deleteEnd (Array.sub (  ...   a, queue') else ())
Warning: src/index/index-skolem.fun 16.9-17.33.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const c) = c | cidFromHead (I.Def c) = c
Warning: src/index/index-skolem.fun 47.9-55.15.
  Function is not exhaustive.
    missing pattern: (_, BVar _ | Def _ | FVar _ | FgnConst _ | NSDef _ | Proj _)
    in: fun install fromCS (H as I.Const   ...  d A), H)) | _ => ())
Warning: src/index/index-skolem.fun 59.15-65.23.
  Case is not exhaustive.
    missing pattern: SOME (BVar _
                           | Def _
                           | FVar _
                           | FgnConst _
                           | NSDef _
                           | Proj _,
                           _)
    in: case Queue.deleteEnd (Array.sub (  ...   a, queue') else ())
Warning: src/lambda/constraints.fun 51.9-52.71.
  Function is not exhaustive.
    missing pattern: nil
    in: fun namesToString (name :: nil) =  ...  namesToString names)
Warning: src/lambda/unify.fun 76.9-83.26.
  Function is not exhaustive.
    missing pattern: Add (ref nil)
    in: fun undo (Instantiate refU) = (re  ...  ) = (cnstr := Cnstr)
Warning: src/lambda/unify.fun 111.9-121.69.
  Function is not exhaustive.
    missing pattern: ((AVar _ | EClo _ | NVar _ | Redex _, _), _)
    in: fun delayExpW ((U as Uni L, s1),   ...  p ((U, s), cnstr))))
Warning: src/lambda/unify.fun 156.9-157.34.
  Function is not exhaustive.
    missing pattern: ((ADec _ | BDec _ | NDec _, _), _)
    in: and delayDec ((Dec (name, V), s),  ...  Exp ((V, s), cnstr))
Warning: src/lambda/unify.fun 194.9-201.45.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Exp _ | Undef, _), Dot _)
                     | (Dot (Idx _, _), Dot (Axp _ | Block _ | Exp _ | Undef, _))
    in: fun intersection (Dot (Idx k1, s1  ...  ift _, Shift _) = id
Warning: src/lambda/unify.fun 217.9-227.39.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Exp _, _), _)
    in: fun weakenSub (G, Shift n, ss) =   ...  (G, s', ss), shift))
Warning: src/lambda/unify.fun 223.9-224.44.
  Case is not exhaustive.
    missing pattern: Axp _ | Block _ | Exp _
    in: case bvarSub (n, ss) of Undef =>   ...  kenSub (G, s', ss)))
Warning: src/lambda/unify.fun 240.9-264.78.
  Function is not exhaustive.
    missing pattern: (_, (AVar _ | EClo _ | NVar _ | Redex _, _), _, _)
    in: and invertExpW (G, (U as Uni _, s  ...  , s), ss, rOccur))))
Warning: src/lambda/unify.fun 267.9-268.48.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _), _, _)
    in: and invertDec (G, (Dec (name, V),  ...  V, s), ss, rOccur)))
Warning: src/lambda/unify.fun 275.9-300.55.
  Function is not exhaustive.
    missing pattern: (_, NSDef _, _, _) | (_, Proj (Inst _, _), _, _)
    in: and invertHead (G, BVar k, ss, rO  ...  t _, ss, rOccur) = H
Warning: src/lambda/unify.fun 284.8-284.38.
  Case is not exhaustive.
    missing pattern: Inst _ | LVar _
    in: case blockSub (B, ss) of Bidx k' => (Proj (Bidx k', i))
Warning: src/lambda/unify.fun 277.8-278.24.
  Case is not exhaustive.
    missing pattern: Axp _ | Block _ | Exp _
    in: case bvarSub (k, ss) of Undef =>   ...   Idx k' => (BVar k')
Warning: src/lambda/unify.fun 306.9-317.38.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Undef, _), _, _)
    in: and invertSub (G, s as Shift n, s  ...  G, s', ss, rOccur)))
Warning: src/lambda/unify.fun 351.9-407.31.
  Function is not exhaustive.
    missing pattern: (_, (EClo _ | NVar _ | Redex _, _), _, _)
    in: and pruneExpW (G, (U as Uni _, s)  ...  y "Left-over AVar"))
Warning: src/lambda/unify.fun 411.9-413.48.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _, _), _, _)
    in: and pruneDec (G, (Dec (name, V),   ...  _), _, _) = (NDec x)
Warning: src/lambda/unify.fun 421.9-446.54.
  Function is not exhaustive.
    missing pattern: (_, NSDef _, _, _) | (_, Proj (Inst _, _), _, _)
    in: and pruneHead (G, BVar k, ss, rOc  ...  t _, ss, rOccur) = H
Warning: src/lambda/unify.fun 430.8-430.38.
  Case is not exhaustive.
    missing pattern: Inst _ | LVar _
    in: case blockSub (B, ss) of Bidx k' => (Proj (Bidx k', i))
Warning: src/lambda/unify.fun 423.8-424.24.
  Case is not exhaustive.
    missing pattern: Axp _ | Block _ | Exp _
    in: case bvarSub (k, ss) of Undef =>   ...   Idx k' => (BVar k')
Warning: src/lambda/unify.fun 452.9-463.37.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Undef, _), _, _)
    in: and pruneSub (G, s as Shift n, ss  ...  G, s', ss, rOccur)))
Warning: src/lambda/unify.fun 467.9-479.53.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Exp _, _), _, _)
                     | (Dot (Idx _, _), Null, _)
                     | (Dot (Undef, _), Null, _)
    in: and pruneCtx (Shift n, Null, rOcc  ...  n + 1)), G, rOccur))
Warning: src/lambda/unify.fun 519.25-525.77.
  Function is not exhaustive.
    missing pattern: Assign (_,
                             AVar _
                             | EClo _
                             | FgnExp _
                             | Lam _
                             | NVar _
                             | Pi _
                             | Redex _
                             | Root _
                             | Uni _,
                             _,
                             _)
    in: fun execOp (Assign (G, EVar (r, _  ...  xp ((U, id), cnstr))
Warning: src/lambda/unify.fun 502.25-509.51.
  Function is not exhaustive.
    missing pattern: Assign (_,
                             AVar _
                             | EClo _
                             | FgnExp _
                             | Lam _
                             | NVar _
                             | Pi _
                             | Redex _
                             | Root _
                             | Uni _,
                             _,
                             _)
    in: fun execResidual (Assign (G, EVar  ...  xp ((U, id), cnstr))
Warning: src/lambda/unify.fun 706.9-722.4.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        (Root (BVar _
                               | Const _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
                     | (_,
                        (Root (Def _, _), _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _))
                     | (_,
                        (Root (Def _, _), _),
                        (Root (BVar _
                               | Const _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _))
    in: and unifyDefDefW (G, Us1 as (Root  ...  ndDef Us1, Us2)) end
Warning: src/lambda/unify.fun 738.9-743.37.
  Function is not exhaustive.
    missing pattern: (_, (App _, _), (Nil, _)) | (_, (Nil, _), (App _, _))
    in: and unifySpine (G, (Nil, _), (Nil  ...  (S1, s1), (S2, s2)))
Warning: src/lambda/unify.fun 746.9-747.42.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _), _)
                     | (_, (Dec _, _), (ADec _ | BDec _ | NDec _, _))
    in: and unifyDec (G, (Dec (_, V1), s1  ...  (V1, s1), (V2, s2)))
Warning: src/lambda/unify.fun 770.7-775.88.
  Case is not exhaustive.
    missing pattern: (Axp _ | Block _ | Undef, _)
                     | (Exp _, Axp _ | Block _ | Undef)
                     | (Idx _, Axp _ | Block _ | Undef)
    in: case (Ft1, Ft2) of (Idx n1, Idx n  ...  il), id), (U2, id)))
Warning: src/lambda/unify.fun 786.9-816.9.
  Function is not exhaustive.
    missing pattern: (_, Bidx _, Inst _) | (_, Inst _, Bidx _ | Inst _)
    in: and unifyBlockW (G, LVar (r1, s1   ...  dex clash") else ())
Warning: src/lambda/unify.fun 76.9-83.26.
  Function is not exhaustive.
    missing pattern: Add (ref nil)
    in: fun undo (Instantiate refU) = (re  ...  ) = (cnstr := Cnstr)
Warning: src/lambda/unify.fun 111.9-121.69.
  Function is not exhaustive.
    missing pattern: ((AVar _ | EClo _ | NVar _ | Redex _, _), _)
    in: fun delayExpW ((U as Uni L, s1),   ...  p ((U, s), cnstr))))
Warning: src/lambda/unify.fun 156.9-157.34.
  Function is not exhaustive.
    missing pattern: ((ADec _ | BDec _ | NDec _, _), _)
    in: and delayDec ((Dec (name, V), s),  ...  Exp ((V, s), cnstr))
Warning: src/lambda/unify.fun 194.9-201.45.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Exp _ | Undef, _), Dot _)
                     | (Dot (Idx _, _), Dot (Axp _ | Block _ | Exp _ | Undef, _))
    in: fun intersection (Dot (Idx k1, s1  ...  ift _, Shift _) = id
Warning: src/lambda/unify.fun 217.9-227.39.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Exp _, _), _)
    in: fun weakenSub (G, Shift n, ss) =   ...  (G, s', ss), shift))
Warning: src/lambda/unify.fun 223.9-224.44.
  Case is not exhaustive.
    missing pattern: Axp _ | Block _ | Exp _
    in: case bvarSub (n, ss) of Undef =>   ...  kenSub (G, s', ss)))
Warning: src/lambda/unify.fun 240.9-264.78.
  Function is not exhaustive.
    missing pattern: (_, (AVar _ | EClo _ | NVar _ | Redex _, _), _, _)
    in: and invertExpW (G, (U as Uni _, s  ...  , s), ss, rOccur))))
Warning: src/lambda/unify.fun 267.9-268.48.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _), _, _)
    in: and invertDec (G, (Dec (name, V),  ...  V, s), ss, rOccur)))
Warning: src/lambda/unify.fun 275.9-300.55.
  Function is not exhaustive.
    missing pattern: (_, NSDef _, _, _) | (_, Proj (Inst _, _), _, _)
    in: and invertHead (G, BVar k, ss, rO  ...  t _, ss, rOccur) = H
Warning: src/lambda/unify.fun 284.8-284.38.
  Case is not exhaustive.
    missing pattern: Inst _ | LVar _
    in: case blockSub (B, ss) of Bidx k' => (Proj (Bidx k', i))
Warning: src/lambda/unify.fun 277.8-278.24.
  Case is not exhaustive.
    missing pattern: Axp _ | Block _ | Exp _
    in: case bvarSub (k, ss) of Undef =>   ...   Idx k' => (BVar k')
Warning: src/lambda/unify.fun 306.9-317.38.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Undef, _), _, _)
    in: and invertSub (G, s as Shift n, s  ...  G, s', ss, rOccur)))
Warning: src/lambda/unify.fun 351.9-407.31.
  Function is not exhaustive.
    missing pattern: (_, (EClo _ | NVar _ | Redex _, _), _, _)
    in: and pruneExpW (G, (U as Uni _, s)  ...  y "Left-over AVar"))
Warning: src/lambda/unify.fun 411.9-413.48.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _, _), _, _)
    in: and pruneDec (G, (Dec (name, V),   ...  _), _, _) = (NDec x)
Warning: src/lambda/unify.fun 421.9-446.54.
  Function is not exhaustive.
    missing pattern: (_, NSDef _, _, _) | (_, Proj (Inst _, _), _, _)
    in: and pruneHead (G, BVar k, ss, rOc  ...  t _, ss, rOccur) = H
Warning: src/lambda/unify.fun 430.8-430.38.
  Case is not exhaustive.
    missing pattern: Inst _ | LVar _
    in: case blockSub (B, ss) of Bidx k' => (Proj (Bidx k', i))
Warning: src/lambda/unify.fun 423.8-424.24.
  Case is not exhaustive.
    missing pattern: Axp _ | Block _ | Exp _
    in: case bvarSub (k, ss) of Undef =>   ...   Idx k' => (BVar k')
Warning: src/lambda/unify.fun 452.9-463.37.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Undef, _), _, _)
    in: and pruneSub (G, s as Shift n, ss  ...  G, s', ss, rOccur)))
Warning: src/lambda/unify.fun 467.9-479.53.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Exp _, _), _, _)
                     | (Dot (Idx _, _), Null, _)
                     | (Dot (Undef, _), Null, _)
    in: and pruneCtx (Shift n, Null, rOcc  ...  n + 1)), G, rOccur))
Warning: src/lambda/unify.fun 519.25-525.77.
  Function is not exhaustive.
    missing pattern: Assign (_,
                             AVar _
                             | EClo _
                             | FgnExp _
                             | Lam _
                             | NVar _
                             | Pi _
                             | Redex _
                             | Root _
                             | Uni _,
                             _,
                             _)
    in: fun execOp (Assign (G, EVar (r, _  ...  xp ((U, id), cnstr))
Warning: src/lambda/unify.fun 502.25-509.51.
  Function is not exhaustive.
    missing pattern: Assign (_,
                             AVar _
                             | EClo _
                             | FgnExp _
                             | Lam _
                             | NVar _
                             | Pi _
                             | Redex _
                             | Root _
                             | Uni _,
                             _,
                             _)
    in: fun execResidual (Assign (G, EVar  ...  xp ((U, id), cnstr))
Warning: src/lambda/unify.fun 706.9-722.4.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        (Root (BVar _
                               | Const _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
                     | (_,
                        (Root (Def _, _), _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _))
                     | (_,
                        (Root (Def _, _), _),
                        (Root (BVar _
                               | Const _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _))
    in: and unifyDefDefW (G, Us1 as (Root  ...  ndDef Us1, Us2)) end
Warning: src/lambda/unify.fun 738.9-743.37.
  Function is not exhaustive.
    missing pattern: (_, (App _, _), (Nil, _)) | (_, (Nil, _), (App _, _))
    in: and unifySpine (G, (Nil, _), (Nil  ...  (S1, s1), (S2, s2)))
Warning: src/lambda/unify.fun 746.9-747.42.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _), _)
                     | (_, (Dec _, _), (ADec _ | BDec _ | NDec _, _))
    in: and unifyDec (G, (Dec (_, V1), s1  ...  (V1, s1), (V2, s2)))
Warning: src/lambda/unify.fun 770.7-775.88.
  Case is not exhaustive.
    missing pattern: (Axp _ | Block _ | Undef, _)
                     | (Exp _, Axp _ | Block _ | Undef)
                     | (Idx _, Axp _ | Block _ | Undef)
    in: case (Ft1, Ft2) of (Idx n1, Idx n  ...  il), id), (U2, id)))
Warning: src/lambda/unify.fun 786.9-816.9.
  Function is not exhaustive.
    missing pattern: (_, Bidx _, Inst _) | (_, Inst _, Bidx _ | Inst _)
    in: and unifyBlockW (G, LVar (r1, s1   ...  dex clash") else ())
Warning: src/lambda/match.fun 34.9-44.39.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Exp _, _), _)
    in: fun weakenSub (G, Shift n, ss) =   ...  (G, s', ss), shift))
Warning: src/lambda/match.fun 40.9-41.44.
  Case is not exhaustive.
    missing pattern: Axp _ | Block _ | Exp _
    in: case bvarSub (n, ss) of Undef =>   ...  kenSub (G, s', ss)))
Warning: src/lambda/match.fun 61.9-118.31.
  Function is not exhaustive.
    missing pattern: (_, (EClo _ | NVar _ | Redex _, _), _, _)
    in: and pruneExpW (G, (U as Uni _, s)  ...  h "Left-over AVar"))
Warning: src/lambda/match.fun 122.9-124.48.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _, _), _, _)
    in: and pruneDec (G, (Dec (name, V),   ...  _), _, _) = (NDec x)
Warning: src/lambda/match.fun 132.9-157.54.
  Function is not exhaustive.
    missing pattern: (_, NSDef _, _, _) | (_, Proj (Inst _, _), _, _)
    in: and pruneHead (G, BVar k, ss, rOc  ...  t _, ss, rOccur) = H
Warning: src/lambda/match.fun 141.8-141.38.
  Case is not exhaustive.
    missing pattern: Inst _ | LVar _
    in: case blockSub (B, ss) of Bidx k' => (Proj (Bidx k', i))
Warning: src/lambda/match.fun 134.8-135.24.
  Case is not exhaustive.
    missing pattern: Axp _ | Block _ | Exp _
    in: case bvarSub (k, ss) of Undef =>   ...   Idx k' => (BVar k')
Warning: src/lambda/match.fun 163.9-174.37.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Undef, _), _, _)
    in: and pruneSub (G, s as Shift n, ss  ...  G, s', ss, rOccur)))
Warning: src/lambda/match.fun 178.9-190.53.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Exp _, _), _, _)
                     | (Dot (Idx _, _), Null, _)
                     | (Dot (Undef, _), Null, _)
    in: and pruneCtx (Shift n, Null, rOcc  ...  n + 1)), G, rOccur))
Warning: src/lambda/match.fun 230.25-236.77.
  Function is not exhaustive.
    missing pattern: Assign (_,
                             AVar _
                             | EClo _
                             | FgnExp _
                             | Lam _
                             | NVar _
                             | Pi _
                             | Redex _
                             | Root _
                             | Uni _,
                             _,
                             _)
    in: fun execOp (Assign (G, EVar (r, _  ...  xp ((U, id), cnstr))
Warning: src/lambda/match.fun 213.25-220.51.
  Function is not exhaustive.
    missing pattern: Assign (_,
                             AVar _
                             | EClo _
                             | FgnExp _
                             | Lam _
                             | NVar _
                             | Pi _
                             | Redex _
                             | Root _
                             | Uni _,
                             _,
                             _)
    in: fun execResidual (Assign (G, EVar  ...  xp ((U, id), cnstr))
Warning: src/lambda/match.fun 417.9-433.4.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        (Root (BVar _
                               | Const _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
                     | (_,
                        (Root (Def _, _), _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _))
                     | (_,
                        (Root (Def _, _), _),
                        (Root (BVar _
                               | Const _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _))
    in: and matchDefDefW (G, Us1 as (Root  ...  ndDef Us1, Us2)) end
Warning: src/lambda/match.fun 449.9-454.37.
  Function is not exhaustive.
    missing pattern: (_, (App _, _), (Nil, _)) | (_, (Nil, _), (App _, _))
    in: and matchSpine (G, (Nil, _), (Nil  ...  (S1, s1), (S2, s2)))
Warning: src/lambda/match.fun 457.9-458.42.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _), _)
                     | (_, (Dec _, _), (ADec _ | BDec _ | NDec _, _))
    in: and matchDec (G, (Dec (_, V1), s1  ...  (V1, s1), (V2, s2)))
Warning: src/lambda/match.fun 481.7-486.88.
  Case is not exhaustive.
    missing pattern: (Axp _ | Block _ | Undef, _)
                     | (Exp _, Axp _ | Block _ | Undef)
                     | (Idx _, Axp _ | Block _ | Undef)
    in: case (Ft1, Ft2) of (Idx n1, Idx n  ...  il), id), (U2, id)))
Warning: src/lambda/match.fun 497.9-536.9.
  Function is not exhaustive.
    missing pattern: (_, Bidx _, Inst _) | (_, Inst _, Bidx _ | Inst _)
    in: and matchBlockW (G, LVar (r1, Shi  ...  dex clash") else ())
Warning: src/lambda/abstract.fun 52.9-57.68.
  Function is not exhaustive.
    missing pattern: Decl ((_,
                            EV (AVar _
                                | EClo _
                                | FgnExp _
                                | Lam _
                                | NVar _
                                | Pi _
                                | Redex _
                                | Root _
                                | Uni _))
                           | (_, PV _))
    in: fun collectConstraints I.Null = n  ...  ollectConstraints G)
Warning: src/lambda/abstract.fun 136.9-141.96.
  Function is not exhaustive.
    missing pattern: (_, AVar _ | EClo _ | EVar _ | NVar _ | Redex _)
    in: fun occursInExp (k, I.Uni _) = I.  ...   (U, I.id))))) I.No)
Warning: src/lambda/abstract.fun 145.9-154.54.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | NSDef _, _)
    in: and occursInHead (k, I.BVar k', D  ...  _, I.Maybe) = I.Meta
Warning: src/lambda/abstract.fun 157.9-158.87.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and occursInSpine (_, I.Nil) = I.  ...  cursInSpine (k, S)))
Warning: src/lambda/abstract.fun 161.9-161.58.
  Function is not exhaustive.
    missing pattern: (_, ADec _ | BDec _ | NDec _)
    in: and occursInDec (k, I.Dec (_, V)) = (occursInExp (k, V))
Warning: src/lambda/abstract.fun 206.9-250.67.
  Function is not exhaustive.
    missing pattern: (_, (AVar _ | EClo _ | NVar _ | Redex _, _), _)
    in: fun collectExpW (G, (I.Uni L, s),  ...   (G, (U, s), K))) K)
Warning: src/lambda/abstract.fun 279.9-286.44.
  Function is not exhaustive.
    missing pattern: (_, (ADec _, _), _)
    in: and collectDec (G, (I.Dec (_, V),  ...  I.NDec _, s), K) = K
Warning: src/lambda/abstract.fun 295.9-300.44.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Undef, _), _)
    in: and collectSub (G, I.Shift _, K)   ...  ectBlock (G, B, K)))
Warning: src/lambda/abstract.fun 308.9-315.52.
  Function is not exhaustive.
    missing pattern: (_, Bidx _ | Inst _, _)
    in: and collectBlock (G, I.LVar (ref   ...   (t, sk), K), LV L))
Warning: src/lambda/abstract.fun 357.9-363.32.
  Function is not exhaustive.
    missing pattern: (Null, _, _)
    in: fun abstractEVar (I.Decl (K', EV   ...   (K', depth + 1, X))
Warning: src/lambda/abstract.fun 374.9-380.34.
  Function is not exhaustive.
    missing pattern: (Null, _, _)
    in: fun abstractFVar (I.Decl (K', FV   ...   (K', depth + 1, F))
Warning: src/lambda/abstract.fun 391.9-395.34.
  Function is not exhaustive.
    missing pattern: (Null, _, _)
    in: fun abstractLVar (I.Decl (K', LV   ...   (K', depth + 1, L))
Warning: src/lambda/abstract.fun 409.9-428.77.
  Function is not exhaustive.
    missing pattern: (_, _, (AVar _ | EClo _ | NVar _ | Redex _, _))
    in: fun abstractExpW (K, depth, (U as  ...  K, depth, (U, s)))))
Warning: src/lambda/abstract.fun 446.9-453.74.
  Function is not exhaustive.
    missing pattern: (_, _, Dot (Axp _ | Block _ | Undef, _), _)
    in: and abstractSub (K, depth, I.Shif  ...  th, (U, I.id)), S)))
Warning: src/lambda/abstract.fun 484.9-485.44.
  Function is not exhaustive.
    missing pattern: (_, _, (ADec _ | BDec _ | NDec _, _))
    in: and abstractDec (K, depth, (I.Dec  ...  (K, depth, (V, s))))
Warning: src/lambda/abstract.fun 501.9-510.64.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Undef, _))
                     | (_, Dot (Block (Bidx _ | Inst _), _))
    in: fun abstractSOME (K, I.Shift 0) =  ...  bstractSOME (K, s)))
Warning: src/lambda/abstract.fun 585.9-608.4.
  Function is not exhaustive.
    missing pattern: (Decl (_,
                            EV (AVar _
                                | EClo _
                                | FgnExp _
                                | Lam _
                                | NVar _
                                | Pi _
                                | Redex _
                                | Root _
                                | Uni _)),
                      _)
                     | (Decl (_, LV (Bidx _ | Inst _)), _)
                     | (Decl (_, PV _), _)
    in: fun abstractKPi (I.Null, V) = V |  ...  ), I.Maybe), V)) end
Warning: src/lambda/abstract.fun 622.9-630.84.
  Function is not exhaustive.
    missing pattern: (Decl (_,
                            EV (AVar _
                                | EClo _
                                | FgnExp _
                                | Lam _
                                | NVar _
                                | Pi _
                                | Redex _
                                | Root _
                                | Uni _)),
                      _)
                     | (Decl (_, LV _ | PV _), _)
    in: fun abstractKLam (I.Null, U) = U   ...  , (V', I.id))), U)))
Warning: src/lambda/abstract.fun 633.9-656.4.
  Function is not exhaustive.
    missing pattern: Decl ((_,
                            EV (AVar _
                                | EClo _
                                | FgnExp _
                                | Lam _
                                | NVar _
                                | Pi _
                                | Redex _
                                | Root _
                                | Uni _))
                           | (_, LV (Bidx _ | Inst _))
                           | (_, PV _))
    in: fun abstractKCtx I.Null = I.Null   ...  (NONE, (l, t'))) end
Warning: src/lambda/abstract.fun 732.9-735.21.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _))
    in: fun closedDec (G, (I.Dec (_, V),   ...  > true | _ => false)
Warning: src/lambda/abstract.fun 737.9-742.25.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Undef, _))
    in: fun closedSub (G, I.Shift _) = tr  ...  G, s)) | _ => false)
Warning: src/lambda/abstract.fun 754.9-758.94.
  Function is not exhaustive.
    missing pattern: (_, And _ | FClo _ | FVar _ | World _)
    in: fun closedFor (Psi, T.True) = tru  ...  Psi, T.UDec D), F)))
Warning: src/lambda/abstract.fun 791.9-795.66.
  Function is not exhaustive.
    missing pattern: (_,
                      Box _
                      | Case _
                      | Choose _
                      | Const _
                      | Lam _
                      | LetPairExp _
                      | LetUnit _
                      | Let _
                      | New _
                      | PClo _
                      | PairBlock _
                      | PairPrg _
                      | Rec _
                      | Redex _
                      | Var _,
                      _)
    in: fun collectPrg (_, P as T.EVar (P  ...  Psi, (U, I.id), K)))
Warning: src/lambda/abstract.fun 807.9-811.34.
  Function is not exhaustive.
    missing pattern: (Null, _, _)
    in: fun abstractPVar (I.Decl (K', PV   ...   (K', depth + 1, P))
Warning: src/lambda/abstract.fun 813.9-817.83.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      Box _
                      | Case _
                      | Choose _
                      | Const _
                      | Lam _
                      | LetPairExp _
                      | LetUnit _
                      | Let _
                      | New _
                      | PClo _
                      | PairBlock _
                      | PairPrg _
                      | Rec _
                      | Redex _
                      | Var _)
    in: fun abstractPrg (K, depth, X as T  ...  tPrg (K, depth, P)))
Warning: src/lambda/abstract.fun 819.9-825.45.
  Function is not exhaustive.
    missing pattern: Dot (Idx _ | Undef, _)
                     | Shift (~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun collectTomegaSub (T.Shift 0)   ...  collectTomegaSub t))
Warning: src/lambda/abstract.fun 854.9-862.41.
  Function is not exhaustive.
    missing pattern: (_, _, FClo _ | FVar _)
    in: and abstractFor (K, depth, T.True  ...  tFor (K, depth, F)))
Warning: src/lambda/abstract.fun 864.9-897.4.
  Function is not exhaustive.
    missing pattern: Decl ((_,
                            EV (AVar _
                                | EClo _
                                | FgnExp _
                                | Lam _
                                | NVar _
                                | Pi _
                                | Redex _
                                | Root _
                                | Uni _))
                           | (_, LV (Bidx _ | Inst _))
                           | (_,
                              PV (Box _
                                  | Case _
                                  | Choose _
                                  | Const _
                                  | Lam _
                                  | LetPairExp _
                                  | LetUnit _
                                  | Let _
                                  | New _
                                  | PClo _
                                  | PairBlock _
                                  | PairExp _
                                  | PairPrg _
                                  | Rec _
                                  | Redex _
                                  | Unit
                                  | Var _)))
    in: fun abstractPsi I.Null = I.Null |  ...  , F', TC1, TC2)) end
Warning: src/lambda/abstract.fun 908.9-917.38.
  Function is not exhaustive.
    missing pattern: (_, _, Dot (Idx _ | Undef, _))
                     | (_, _, Shift (~2147483648 .. ~1 | 1 .. 2147483647))
    in: and abstractTomegaSub' (K, depth,  ...  Sub' (K, depth, t)))
Warning: src/lambda/approx.fun 14.7-18.42.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | Proj _
    in: fun headConDec (I.Const c) = (I.s  ...  nConst (_, cd)) = cd
Warning: src/lambda/approx.fun 111.42-111.71.
  Function is not exhaustive.
    missing pattern: ((Arrow _ | Const _ | Undefined | Uni _, _, _), _)
    in: fn ((CVar r', _, _), _) => (r = r')
Warning: src/lambda/approx.fun 120.11-140.20.
  Function is not exhaustive.
    missing pattern: (Arrow _ | Const _ | Undefined | Uni _, _, _, _)
    in: fun getReplacementName (U as CVar  ...  )) end in try 1 end)
Warning: src/lambda/approx.fun 127.35-128.48.
  Case is not exhaustive.
    missing pattern: LVar _
                     | Level (~2147483648 .. 1 | 4 .. 2147483647)
                     | Next _
    in: case whnfUni L of Level 2 => "A" | Level 3 => "K"
Warning: src/lambda/approx.fun 147.17-147.36.
  Case is not exhaustive.
    missing pattern: NONE
    in: case varLookupName name of SOME (UVL, _) => UVL
Warning: src/lambda/approx.fun 160.7-185.43.
  Function is not exhaustive.
    missing pattern: AVar _
                     | EVar _
                     | FgnExp _
                     | NVar _
                     | Pi ((ADec _ | BDec _ | NDec _, _), _)
    in: fun expToApx (I.Uni L) = let val   ...  , _)) = (expToApx U)
Warning: src/lambda/approx.fun 193.13-193.19.
  Declaration is not exhaustive.
    missing pattern: Arrow _ | CVar _ | Const _ | Undefined
    in: val Uni L'' = whnf L'
Warning: src/lambda/approx.fun 218.13-229.15.
  Case is not exhaustive.
    missing pattern: BlockDec _ | BlockDef _ | ConDec _ | SkoDec _
    in: case I.sgnLookup d of I.ConDef (_  ...  expToApx U in V' end
Warning: src/lambda/approx.fun 234.7-235.34.
  Function is not exhaustive.
    missing pattern: LVar _
                     | Level (~2147483648 .. 0 | 3 .. 2147483647)
                     | Next _
    in: fun apxToUniW (Level 1) = I.Type   ...  W (Level 2) = I.Kind
Warning: src/lambda/approx.fun 245.7-267.77.
  Function is not exhaustive.
    missing pattern: (_, Undefined, _, _)
    in: fun apxToClassW (G, Uni L, _, all  ...  dConDec H), I.id))))
Warning: src/lambda/approx.fun 286.13-286.17.
  Declaration is not exhaustive.
    missing pattern: Arrow _ | CVar _ | Const _ | Undefined
    in: val Uni L = whnf L
Warning: src/lambda/approx.fun 289.14-301.16.
  Case is not exhaustive.
    missing pattern: LVar _
                     | Level (~2147483648 .. 0 | 3 .. 2147483647)
                     | Next _
    in: case whnfUni L of Level 1 => (I.n  ...   V', s'), I.Nil) end
Warning: src/lambda/approx.fun 363.15-376.60.
  Case is not exhaustive.
    missing pattern: (BVar _ | FVar _ | FgnConst _ | Proj _ | Skonst _,
                      BVar _ | Const _ | FVar _ | FgnConst _ | Proj _ | Skonst _)
                     | (Const _,
                        BVar _ | FVar _ | FgnConst _ | Proj _ | Skonst _)
    in: case (H1, H2) of (I.Const c1, I.C  ...  V1, constDefApx d2))
Warning: src/names/names.fun 108.7-115.27.
  Function is not exhaustive.
    missing pattern: (BlockDec _ | BlockDef _, _)
    in: fun checkArgNumber (IntSyn.ConDec  ...  ic (name, V, i + n))
Warning: src/names/names.fun 319.9-324.60.
  Function is not exhaustive.
    missing pattern: (_, nil)
    in: fun findStruct (structTable, [id]  ...  uctComps mid, ids)))
Warning: src/names/names.fun 326.9-331.60.
  Function is not exhaustive.
    missing pattern: nil
    in: fun findTopStruct [id] = (HashTab  ...  uctComps mid, ids)))
Warning: src/names/names.fun 333.9-340.75.
  Function is not exhaustive.
    missing pattern: (_, nil, _)
    in: fun findUndefStruct (structTable,  ...  , ids, id :: ids')))
Warning: src/names/names.fun 342.9-349.71.
  Function is not exhaustive.
    missing pattern: nil
    in: fun findTopUndefStruct [id] = (ca  ...  ps mid, ids, [id])))
Warning: src/names/names.fun 549.9-557.104.
  Function is not exhaustive.
    missing pattern: (Exist, SOME (BVar _ | FgnConst _ | Proj _ | Skonst _))
                     | (Univ _, SOME (BVar _ | FgnConst _ | Proj _ | Skonst _))
    in: fun namePrefOf' (Exist, NONE) = "  ...  amePrefArray, cid)))
Warning: src/names/names.fun 633.17-637.51.
  Function is not exhaustive.
    missing pattern: (_,
                      :: ((EClo _
                           | FgnExp _
                           | Lam _
                           | NVar _
                           | Pi _
                           | Redex _
                           | Root _
                           | Uni _,
                           _),
                          _))
    in: fun evlk (r, nil) = NONE | evlk (  ...  me else evlk (r, l))
Warning: src/names/names.fun 640.6-641.44.
  Case is not exhaustive.
    missing pattern: EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: case X of IntSyn.EVar (r, _, _, _  ...  vlk (r, ! evarList))
Warning: src/names/names.fun 761.9-776.4.
  Function is not exhaustive.
    missing pattern: (_,
                      EClo _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _
                      | Uni _)
    in: fun newEVarName (G, X as IntSyn.E  ...  X, name) ; name) end
Warning: src/names/names.fun 899.9-907.4.
  Function is not exhaustive.
    missing pattern: (_,
                      ~2147483648 .. ~1 | 1 .. 2147483647,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _)
                     | (_,
                        ~2147483648 .. ~1 | 1 .. 2147483647,
                        Pi ((_, Meta | No), _))
    in: fun pisEName' (G, 0, V) = V | pis  ...   D'), i - 1, V)) end
Warning: src/names/names.fun 918.9-926.4.
  Function is not exhaustive.
    missing pattern: (_,
                      ~2147483648 .. ~1 | 1 .. 2147483647,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Root _
                       | Uni _,
                       _))
                     | (_,
                        ~2147483648 .. ~1 | 1 .. 2147483647,
                        (Lam _,
                         AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Redex _
                         | Root _
                         | Uni _))
    in: fun defEName' (G, 0, UV) = UV | d  ...  i ((D', P), V')) end
Warning: src/style/style.fun 54.9-55.49.
  Function is not exhaustive.
    missing pattern: nil
    in: fun options (n :: nil) = n | opti  ...   ", " ^ (options l))
Warning: src/style/style.fun 76.9-83.49.
  Function is not exhaustive.
    missing pattern: (ADec _ | BDec _ | NDec _, _)
    in: fun checkVar (I.Dec (SOME n, V),   ...  , V), pol) = Correct
Warning: src/style/style.fun 90.9-95.39.
  Function is not exhaustive.
    missing pattern: FVar _ | Proj _
    in: fun implicitHead (I.BVar k) = 0 |  ...  d (I.FgnConst _) = 0
Warning: src/style/style.fun 109.9-116.58.
  Function is not exhaustive.
    missing pattern: (_,
                      (_, AVar _ | EClo _ | EVar _ | NVar _ | Pi _ | Redex _, _),
                      _)
    in: fun checkExp c ((G, P), I.Uni _,   ...  _, _), occ) err = []
Warning: src/style/style.fun 129.9-139.64.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       AVar _ | EClo _ | EVar _ | Lam _ | NVar _ | Redex _,
                       _,
                       _),
                      _)
                     | (_, (_, Pi ((_, Meta), _), _, _), _)
    in: and checkType c ((G, P), I.Uni _,  ...  , pol, occ) err = []
Warning: src/style/style.fun 153.9-158.4.
  Function is not exhaustive.
    missing pattern: ((_, ADec _ | BDec _ | NDec _, _), _)
    in: and checkDecImp ((G, P), D as I.D  ...  ecl (P, I)), []) end
Warning: src/style/style.fun 172.9-181.4.
  Function is not exhaustive.
    missing pattern: (_, (_, ADec _ | BDec _ | NDec _, _, _), _, _)
    in: and checkDec c ((G, P), D as I.De  ...  P, I)), E1 @ E2) end
Warning: src/style/style.fun 194.9-202.56.
  Function is not exhaustive.
    missing pattern: (_, (_, FVar _ | Proj _, _), _)
    in: and checkHead c ((G, P), I.BVar k  ...  nst _, occ) err = []
Warning: src/style/style.fun 217.9-222.46.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       _,
                       ~2147483648 .. ~1 | 1 .. 2147483647,
                       Nil | SClo _,
                       _),
                      _)
                     | (_, (_, _, 0, SClo _, _), _)
    in: and checkSpine c ((G, P), n, 0, I  ...   i - 1, S, occ) err)
Warning: src/style/style.fun 236.9-240.52.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       ~2147483648 .. ~1 | 1 .. 2147483647,
                       AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        (_,
                         ~2147483648 .. ~1 | 1 .. 2147483647,
                         Pi ((_, Meta | No), _),
                         _),
                        _)
    in: fun checkType' c ((G, P), 0, V, o  ...  , P.body occ) err)))
Warning: src/style/style.fun 272.9-276.51.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       ~2147483648 .. ~1 | 1 .. 2147483647,
                       AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _)
    in: fun checkDef c ((G, P), 0, U, occ  ...  , P.body occ) err)))
Warning: src/frontend/lexer.fun 229.9-267.105.
  Function is not exhaustive.
    missing pattern: (ABBREV
                      | ARROW
                      | ASSERT
                      | BACKARROW
                      | BLOCK
                      | CLAUSE
                      | COLON
                      | COMPILE
                      | COVERS
                      | DEFINE
                      | DETERMINISTIC
                      | DOT
                      | EOF
                      | EQUAL
                      | ESTABLISH
                      | FQUERY
                      | FREEZE
                      | INCLUDE
                      | INFIX
                      | KEEPTABLE
                      | LBRACE
                      | LBRACKET
                      | LPAREN
                      | MODE
                      | NAME
                      | OPEN
                      | PATHSEP
                      | POSTFIX
                      | PREFIX
                      | PROVE
                      | QUERYTABLED
                      | QUERY
                      | RBRACE
                      | RBRACKET
                      | REDUCES
                      | RPAREN
                      | SIG
                      | SOLVE
                      | STRING _
                      | STRUCT
                      | SUBORD
                      | TABLED
                      | TERMINATES
                      | THAW
                      | THEOREM
                      | TOTAL
                      | TRUSTME
                      | TYPE
                      | UNDERSCORE
                      | UNIQUE
                      | USE
                      | WHERE
                      | WORLDS,
                      _)
    in: and lexPragmaKey (ID (_, "infix")  ...  espace>' or `%%')"))
Warning: src/frontend/lexer.fun 344.7-394.30.
  Function is not exhaustive.
    missing pattern: EOF | ID _ | STRING _
    in: fun toString' DOT = "." | toStrin  ...  String' USE = "%use"
Warning: src/print/print.fun 45.6-45.57.
  Function is not exhaustive.
    missing pattern: (nil, _)
    in: fun find (r :: L) n = (if r = l then n else find L (n + 1))
Warning: src/print/print.fun 82.15-90.22.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Undef, _), _)
    in: fun sTS (I.Shift k, S) = (if k <   ...  S (s, I.App (U, S)))
Warning: src/print/print.fun 214.7-215.42.
  Function is not exhaustive.
    missing pattern: (nil, _)
    in: fun parmDec (D :: L, 1) = D | par  ...  (parmDec (L, j - 1))
Warning: src/print/print.fun 222.7-223.39.
  Case is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: case parmDec (Gblock, i) of I.Dec  ...   => (Int.toString i)
Warning: src/print/print.fun 226.7-239.10.
  Function is not exhaustive.
    missing pattern: (_,
                      BVar _
                      | Const _
                      | Def _
                      | FVar _
                      | FgnConst _
                      | NSDef _
                      | Skonst _)
    in: fun projName (G, I.Proj (I.Bidx k  ...  Inst iota, i)) = "*"
Warning: src/print/print.fun 228.6-228.35.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec (NONE, _) | Dec _ | NDec _
    in: val I.BDec (SOME bname, (cid, t)) = I.ctxLookup (G, k)
Warning: src/print/print.fun 264.7-292.11.
  Function is not exhaustive.
    missing pattern: (_, Proj (Inst _, _))
                     | (_, Proj (LVar (ref (SOME _), _, _), _))
    in: fun fmtCon (G, I.BVar n) = (Str0   ...  bol.const name)) end
Warning: src/print/print.fun 308.7-309.55.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun fst (I.App (U1, _), s) = (U1,  ...  (S, I.comp (s', s)))
Warning: src/print/print.fun 312.7-313.55.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun snd (I.App (U1, S), s) = (fst  ...  (S, I.comp (s', s)))
Warning: src/print/print.fun 355.7-359.67.
  Function is not exhaustive.
    missing pattern: (_, Infix (_, None), :: _) | (_, Nonfix, :: _)
    in: fun addAccum (fmt, _, nil) = fmt   ...  box ([fmt] @ accum))
Warning: src/print/print.fun 382.7-440.67.
  Function is not exhaustive.
    missing pattern: (_, _, _, (EClo _ | NVar _ | Redex _, _))
                     | (_, _, _, (Pi ((NDec _, _), _), _))
    in: fun fmtExpW (G, d, ctx, (I.Uni L,  ...  .apply csfe (), s)))
Warning: src/print/print.fun 536.7-541.48.
  Function is not exhaustive.
    missing pattern: (_, _, _, Dot (Axp _ | Block _ | Undef, _))
    in: and fmtSub'' (G, d, l, I.Shift k)  ...  b' (G, d, l + 1, s))
Warning: src/print/print.fun 586.7-679.9.
  Function is not exhaustive.
    missing pattern: (_, _, Ctxt _, (EtaLong _, _))
    in: and fmtLevel (G, d, Ctxt (fixity'  ...  ity', accum) end end
Warning: src/print/print.fun 715.7-731.25.
  Function is not exhaustive.
    missing pattern: (_, _, (NDec NONE, _))
    in: and fmtDec (G, d, (I.Dec (x, V),   ...  (F.HVbox [sym name])
Warning: src/print/print.fun 743.7-744.88.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _)
    in: fun skipI (0, G, V) = (G, V) | sk  ...  ecEName (G, D)), V))
Warning: src/print/print.fun 746.7-748.62.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      _)
                     | (~2147483648 .. ~1 | 1 .. 2147483647,
                        _,
                        Pi _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _
                        | Uni _)
    in: fun skipI2 (0, G, V, U) = (G, V,   ...  ame (G, D')), V, U))
Warning: src/print/clause-print.fun 93.7-95.62.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _)
    in: fun fmtClauseI (0, G, V) = (fmtCl  ...  ecEName (G, D)), V))
Warning: src/print/print.fun 45.6-45.57.
  Function is not exhaustive.
    missing pattern: (nil, _)
    in: fun find (r :: L) n = (if r = l then n else find L (n + 1))
Warning: src/print/print.fun 82.15-90.22.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Undef, _), _)
    in: fun sTS (I.Shift k, S) = (if k <   ...  S (s, I.App (U, S)))
Warning: src/print/print.fun 214.7-215.42.
  Function is not exhaustive.
    missing pattern: (nil, _)
    in: fun parmDec (D :: L, 1) = D | par  ...  (parmDec (L, j - 1))
Warning: src/print/print.fun 222.7-223.39.
  Case is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: case parmDec (Gblock, i) of I.Dec  ...   => (Int.toString i)
Warning: src/print/print.fun 226.7-239.10.
  Function is not exhaustive.
    missing pattern: (_,
                      BVar _
                      | Const _
                      | Def _
                      | FVar _
                      | FgnConst _
                      | NSDef _
                      | Skonst _)
    in: fun projName (G, I.Proj (I.Bidx k  ...  Inst iota, i)) = "*"
Warning: src/print/print.fun 228.6-228.35.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec (NONE, _) | Dec _ | NDec _
    in: val I.BDec (SOME bname, (cid, t)) = I.ctxLookup (G, k)
Warning: src/print/print.fun 264.7-292.11.
  Function is not exhaustive.
    missing pattern: (_, Proj (Inst _, _))
                     | (_, Proj (LVar (ref (SOME _), _, _), _))
    in: fun fmtCon (G, I.BVar n) = (Str0   ...  bol.const name)) end
Warning: src/print/print.fun 308.7-309.55.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun fst (I.App (U1, _), s) = (U1,  ...  (S, I.comp (s', s)))
Warning: src/print/print.fun 312.7-313.55.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun snd (I.App (U1, S), s) = (fst  ...  (S, I.comp (s', s)))
Warning: src/print/print.fun 355.7-359.67.
  Function is not exhaustive.
    missing pattern: (_, Infix (_, None), :: _) | (_, Nonfix, :: _)
    in: fun addAccum (fmt, _, nil) = fmt   ...  box ([fmt] @ accum))
Warning: src/print/print.fun 382.7-440.67.
  Function is not exhaustive.
    missing pattern: (_, _, _, (EClo _ | NVar _ | Redex _, _))
                     | (_, _, _, (Pi ((NDec _, _), _), _))
    in: fun fmtExpW (G, d, ctx, (I.Uni L,  ...  .apply csfe (), s)))
Warning: src/print/print.fun 536.7-541.48.
  Function is not exhaustive.
    missing pattern: (_, _, _, Dot (Axp _ | Block _ | Undef, _))
    in: and fmtSub'' (G, d, l, I.Shift k)  ...  b' (G, d, l + 1, s))
Warning: src/print/print.fun 586.7-679.9.
  Function is not exhaustive.
    missing pattern: (_, _, Ctxt _, (EtaLong _, _))
    in: and fmtLevel (G, d, Ctxt (fixity'  ...  ity', accum) end end
Warning: src/print/print.fun 715.7-731.25.
  Function is not exhaustive.
    missing pattern: (_, _, (NDec NONE, _))
    in: and fmtDec (G, d, (I.Dec (x, V),   ...  (F.HVbox [sym name])
Warning: src/print/print.fun 743.7-744.88.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _)
    in: fun skipI (0, G, V) = (G, V) | sk  ...  ecEName (G, D)), V))
Warning: src/print/print.fun 746.7-748.62.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      _)
                     | (~2147483648 .. ~1 | 1 .. 2147483647,
                        _,
                        Pi _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _
                        | Uni _)
    in: fun skipI2 (0, G, V, U) = (G, V,   ...  ame (G, D')), V, U))
Warning: src/print/clause-print.fun 93.7-95.62.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _)
    in: fun fmtClauseI (0, G, V) = (fmtCl  ...  ecEName (G, D)), V))
Warning: src/print/print-twega.fun 37.7-39.72.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _)
    in: fun fmtCon (G, I.BVar n) = (sexp   ...  Break, Integer cid])
Warning: src/print/print-twega.fun 56.7-82.9.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _ | EClo _ | EVar _ | FgnExp _ | NVar _ | Redex _, _))
                     | (_, (Pi ((ADec _ | BDec _ | NDec _, _), _), _))
    in: fun fmtExpW (G, (I.Uni L, s)) = (  ...   (U, I.dot1 s))] end
Warning: src/print/print-twega.fun 59.6-71.9.
  Case is not exhaustive.
    missing pattern: Meta
    in: case P of I.Maybe => let val D' =  ...  (V2, I.dot1 s))] end
Warning: src/print/print-twega.fun 98.7-101.67.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _))
    in: and fmtDec (G, (I.Dec (NONE, V),   ...  fmtExp (G, (V, s))])
Warning: src/print/print-twega.fun 108.7-135.9.
  Function is not exhaustive.
    missing pattern: BlockDec _ | BlockDef _
    in: fun fmtConDec (I.ConDec (name, pa  ...  Break, fmtUni L] end
Warning: src/print/print-twega.fun 138.7-139.91.
  Function is not exhaustive.
    missing pattern: FgnCnstr _ | Solved
    in: fun fmtEqn (I.Eqn (G, U1, U2)) =   ...  xp (G, (U2, I.id))])
Warning: src/print/print-twega.fun 145.7-146.48.
  Function is not exhaustive.
    missing pattern: FgnCnstr _ | Solved
    in: fun fmtEqnName (I.Eqn (G, U1, U2)  ...  xLUName G, U1, U2)))
Warning: src/print/print-xml.fun 38.7-46.67.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | NSDef _ | Proj _ | Skonst _)
    in: fun fmtCon (G, I.BVar n) = let va  ...  xp [Str "FngConst"])
Warning: src/print/print-xml.fun 40.6-40.22.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | Dec (NONE, _) | NDec _
    in: val I.Dec (SOME n, _) = I.ctxDec (G, n)
Warning: src/print/print-xml.fun 63.7-94.64.
  Function is not exhaustive.
    missing pattern: (_, (AVar _ | EClo _ | EVar _ | NVar _ | Redex _, _))
                     | (_, (Pi ((ADec _ | BDec _ | NDec _, _), _), _))
    in: fun fmtExpW (G, (I.Uni L, s)) = (  ...  sexp [Str "FgnExp"])
Warning: src/print/print-xml.fun 66.6-80.9.
  Case is not exhaustive.
    missing pattern: Meta
    in: case P of I.Maybe => let val D' =  ...   Str "</Arrow>"] end
Warning: src/print/print-xml.fun 111.7-114.86.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _))
    in: and fmtDec (G, (I.Dec (NONE, V),   ...   s)), Str "</Dec>"])
Warning: src/print/print-xml.fun 117.7-120.26.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _))
    in: and fmtDec' (G, (I.Dec (NONE, V),  ...  fmtExp (G, (V, s))])
Warning: src/print/print-xml.fun 128.7-157.55.
  Function is not exhaustive.
    missing pattern: BlockDef _
    in: fun fmtConDec (I.ConDec (name, pa  ...  ant " ^ name ^ ">"))
Warning: src/print/print-xml.fun 160.7-162.23.
  Function is not exhaustive.
    missing pattern: FgnCnstr _ | Solved
    in: fun fmtEqn (I.Eqn (G, U1, U2)) =   ...   Str "</Equation>"])
Warning: src/print/print-xml.fun 168.7-169.48.
  Function is not exhaustive.
    missing pattern: FgnCnstr _ | Solved
    in: fun fmtEqnName (I.Eqn (G, U1, U2)  ...  xLUName G, U1, U2)))
Warning: src/print/print-omdoc.fun 100.7-108.67.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | NSDef _ | Proj _ | Skonst _)
    in: fun fmtCon (G, I.BVar x) = let va  ...  xp [Str "FgnConst"])
Warning: src/print/print-omdoc.fun 102.6-102.22.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | Dec (NONE, _) | NDec _
    in: val I.Dec (SOME n, _) = I.ctxDec (G, x)
Warning: src/print/print-omdoc.fun 125.7-199.67.
  Function is not exhaustive.
    missing pattern: (_, (AVar _ | EClo _ | EVar _ | NVar _ | Redex _, _), _)
                     | (_, (FgnExp _, _), ~2147483648 .. ~1 | 1 .. 2147483647)
                     | (_, (Pi ((ADec _ | BDec _ | NDec _, _), _), _), _)
    in: fun fmtExpW (G, (I.Uni L, s), _)   ...  sexp [Str "FgnExp"])
Warning: src/print/print-omdoc.fun 187.6-187.34.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | Dec (NONE, _) | NDec _
    in: val D' as I.Dec (SOME name, V) = Names.decLUName (G, D)
Warning: src/print/print-omdoc.fun 128.6-148.9.
  Case is not exhaustive.
    missing pattern: Meta
    in: case P of I.Maybe => let val D' a  ...  Str "</om:OMA>"] end
Warning: src/print/print-omdoc.fun 129.9-129.39.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | Dec (NONE, _) | NDec _
    in: val D' as I.Dec (SOME name, V1') = Names.decLUName (G, D)
Warning: src/print/print-omdoc.fun 293.7-317.59.
  Function is not exhaustive.
    missing pattern: (_, BlockDef _)
    in: fun fmtConDec (cid, I.ConDec (nam  ...  t " ^ name ^ "-->"))
Warning: src/typecheck/typecheck.fun 23.9-29.60.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Undef, _))
                     | (_, Dot (Block (Bidx _ | Inst _), _))
    in: fun subToString (G, I.Dot (I.Idx   ...  ^" ^ Int.toString n)
Warning: src/typecheck/typecheck.fun 31.9-36.29.
  Function is not exhaustive.
    missing pattern: (_, Bidx _ | Inst _)
    in: and LVarToString (G, I.LVar (ref   ...  String (G, t) ^ "]")
Warning: src/typecheck/typecheck.fun 59.9-59.34.
  Function is not exhaustive.
    missing pattern: Kind
    in: and inferUni I.Type = I.Kind
Warning: src/typecheck/typecheck.fun 71.9-83.65.
  Function is not exhaustive.
    missing pattern: (_, (AVar _ | EClo _ | EVar _ | NVar _ | Redex _, _))
    in: and inferExpW (G, (I.Uni L, _)) =  ...  .apply csfe (), s)))
Warning: src/typecheck/typecheck.fun 132.9-150.67.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | NSDef _)
    in: and inferCon (G, I.BVar k') = let  ...  I.conDecType conDec)
Warning: src/typecheck/typecheck.fun 140.8-140.19.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.blockDec (G, B, i)
Warning: src/typecheck/typecheck.fun 134.8-134.19.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.ctxDec (G, k')
Warning: src/typecheck/typecheck.fun 163.9-214.63.
  Function is not exhaustive.
    missing pattern: (Decl _, Dot (Axp _ | Undef, _), Decl _)
                     | (Decl _, Dot (Block (Bidx _ | LVar _), _), Decl _)
                     | (Decl _,
                        Dot (Block (Inst _), _),
                        Decl (_, ADec _ | Dec _ | NDec _))
                     | (Decl _,
                        Dot (Exp _, _),
                        Decl (_, ADec _ | BDec _ | NDec _))
                     | (Decl _, Dot (Idx _, _), Decl (_, ADec _ | NDec _))
                     | (Null, Dot (Axp _ | Undef, _), Decl _)
                     | (Null, Dot (Block (Bidx _ | LVar _), _), Decl _)
                     | (Null,
                        Dot (Block (Inst _), _),
                        Decl (_, ADec _ | Dec _ | NDec _))
                     | (Null, Dot (Exp _, _), Decl (_, ADec _ | BDec _ | NDec _))
                     | (Null, Dot (Idx _, _), Decl (_, ADec _ | NDec _))
    in: and checkSub (I.Null, I.Shift 0,   ...  bToString (G', s))))
Warning: src/typecheck/typecheck.fun 193.8-193.27.
  Declaration is not exhaustive.
    missing pattern: ADec _ | Dec _ | NDec _
    in: val I.BDec (_, (l', s')) = I.ctxDec (G', w)
Warning: src/typecheck/typecheck.fun 173.8-173.20.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V1) = I.ctxDec (G', k)
Warning: src/typecheck/typecheck.fun 222.9-224.85.
  Function is not exhaustive.
    missing pattern: (_, :: _, (_, :: (ADec _ | BDec _ | NDec _, _)))
                     | (_, :: _, (_, nil))
                     | (_, nil, (_, :: _))
    in: and checkBlock (G, nil, (_, nil))  ...  t (I.Exp U, t), L)))
Warning: src/typecheck/strict.fun 48.9-64.52.
  Function is not exhaustive.
    missing pattern: (_, _, AVar _ | EClo _ | EVar _ | NVar _ | Redex _)
    in: fun strictExp (_, _, I.Uni _) = f  ...  p (cs, ops)) = false
Warning: src/typecheck/strict.fun 56.10-62.66.
  Case is not exhaustive.
    missing pattern: FVar _ | NSDef _ | Proj _ | Skonst _
    in: case H of I.BVar k' => (if k' = p  ...  rictSpine (k, p, S))
Warning: src/typecheck/strict.fun 76.9-78.58.
  Function is not exhaustive.
    missing pattern: (_, _, SClo _)
    in: and strictSpine (_, _, I.Nil) = f  ...  ictSpine (k, p, S)))
Warning: src/typecheck/strict.fun 80.9-81.29.
  Function is not exhaustive.
    missing pattern: (_, _, ADec _ | BDec _ | NDec _)
    in: and strictDec (k, p, I.Dec (_, V)) = (strictExp (k, p, V))
Warning: src/typecheck/strict.fun 94.9-97.64.
  Function is not exhaustive.
    missing pattern: (_, AVar _ | EClo _ | EVar _ | NVar _ | Redex _ | Uni _)
    in: fun strictArgParm (p, U as I.Root  ...  tArgParm (p + 1, U))
Warning: src/typecheck/strict.fun 102.9-103.59.
  Function is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: fun decToVarName (I.Dec (NONE, _)  ...   = ("variable " ^ x)
Warning: src/typecheck/strict.fun 117.17-130.70.
  Function is not exhaustive.
    missing pattern: (AVar _ | EClo _ | EVar _ | NVar _ | Redex _ | Uni _, _, _)
                     | (Lam _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Uni _,
                        _)
                     | (Lam _,
                        Root (BVar _
                              | Const _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
    in: fun strictArgParms (I.Root (I.BVa  ...  ef (V, I.id)), occ))
Warning: src/modes/modetable.fun 37.9-38.20.
  Case is not exhaustive.
    missing pattern: SOME nil
    in: case Table.lookup modeSignature a  ...  E mS) | NONE => NONE
Warning: src/modes/modedec.fun 64.9-74.4.
  Function is not exhaustive.
    missing pattern: Mapp (Marg (_, NONE), _)
    in: fun checkName M.Mnil = () | check  ...  in checkName' mS end
Warning: src/modes/modedec.fun 67.8-71.25.
  Function is not exhaustive.
    missing pattern: Mapp (Marg (_, NONE), _)
    in: fun checkName' M.Mnil = () | chec  ...   else checkName' mS)
Warning: src/modes/modedec.fun 105.9-107.72.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _)
    in: fun empty (0, ms, V) = (ms, V) |   ...  NE), Implicit)), V))
Warning: src/modes/modedec.fun 129.9-143.40.
  Function is not exhaustive.
    missing pattern: (Null, _, _)
    in: fun inferVar (I.Decl (ms, (M.Marg  ...  , mode, k - 1), md))
Warning: src/modes/modedec.fun 154.9-168.44.
  Function is not exhaustive.
    missing pattern: (_, _, AVar _ | EClo _ | EVar _ | NVar _ | Redex _ | Uni _)
                     | (_, _, Lam (ADec _ | BDec _ | NDec _, _))
                     | (_, _, Pi ((ADec _ | BDec _ | NDec _, _), _))
                     | (_, _, Root (FVar _ | NSDef _ | Proj _ | Skonst _, _))
    in: fun inferExp (ms, mode, I.Root (I  ...  de, I.FgnExp _) = ms
Warning: src/modes/modedec.fun 178.9-180.54.
  Function is not exhaustive.
    missing pattern: (_, _, SClo _)
    in: and inferSpine (ms, mode, I.Nil)   ...   mode, U), mode, S))
Warning: src/modes/modedec.fun 191.9-192.32.
  Function is not exhaustive.
    missing pattern: (_, _, ADec _ | BDec _ | NDec _)
    in: and inferDec (ms, mode, I.Dec (_,  ...  erExp (ms, mode, V))
Warning: src/modes/modedec.fun 239.6-243.62.
  Function is not exhaustive.
    missing pattern: AbbrevDef _ | BlockDec _ | BlockDef _ | SkoDec _
    in: fun calcImplicit' (I.ConDec (_, _  ...  .Null, V), mS), mS))
Warning: src/modes/modedec.fun 260.8-266.48.
  Case is not exhaustive.
    missing pattern: AbbrevDef _ | BlockDec _ | BlockDef _ | SkoDec _
    in: case I.sgnLookup a of I.ConDec (_  ...  .Null, V), mS) ; ())
Warning: src/modes/modecheck.fun 124.9-125.39.
  Function is not exhaustive.
    missing pattern: Existential (Free | Unknown, _)
    in: fun uniqueness (Existential (Grou  ...  s Universal = Unique
Warning: src/modes/modecheck.fun 130.9-132.38.
  Function is not exhaustive.
    missing pattern: Star
    in: fun ambiguate M.Plus = M.Plus | a  ...  e M.Minus1 = M.Minus
Warning: src/modes/modecheck.fun 173.9-177.15.
  Function is not exhaustive.
    missing pattern: (Nil, ~2147483648 .. ~1 | 1 .. 2147483647) | (SClo _, _)
    in: and etaSpine (I.Nil, 0) = () | et  ...  - 1) else raise Eta)
Warning: src/modes/modecheck.fun 187.9-197.6.
  Function is not exhaustive.
    missing pattern: (_, _, _, SClo _)
    in: fun checkPattern (D, k, args, I.N  ...  ) else raise Eta end
Warning: src/modes/modecheck.fun 214.9-232.53.
  Function is not exhaustive.
    missing pattern: (_, _, AVar _ | EClo _ | EVar _ | NVar _ | Redex _)
    in: fun strictExpN (D, _, I.Uni _) =   ...  p (cs, ops)) = false
Warning: src/modes/modecheck.fun 223.10-230.67.
  Case is not exhaustive.
    missing pattern: FVar _ | NSDef _ | Proj _ | Skonst _
    in: case H of I.BVar k' => (if k' = p  ...  ictSpineN (D, p, S))
Warning: src/modes/modecheck.fun 243.9-245.60.
  Function is not exhaustive.
    missing pattern: (_, _, SClo _)
    in: and strictSpineN (_, _, I.Nil) =   ...  ctSpineN (D, p, S)))
Warning: src/modes/modecheck.fun 247.9-248.30.
  Function is not exhaustive.
    missing pattern: (_, _, ADec _ | BDec _ | NDec _)
    in: and strictDecN (D, p, I.Dec (_, V)) = (strictExpN (D, p, V))
Warning: src/modes/modecheck.fun 270.9-282.101.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      AVar _ | EClo _ | EVar _ | NVar _ | Pi _ | Redex _ | Uni _,
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        Root (FVar _ | NSDef _ | Proj _ | Skonst _, _),
                        _,
                        _)
    in: fun freeExpN (D, d, mode, I.Root   ...  , occ, strictFun))))
Warning: src/modes/modecheck.fun 294.9-297.54.
  Function is not exhaustive.
    missing pattern: (_, _, _, SClo _, _, _)
    in: and freeSpineN (D, d, mode, I.Nil  ...  1, occ), strictFun))
Warning: src/modes/modecheck.fun 328.9-339.75.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _ | EClo _ | EVar _ | NVar _ | Pi _ | Redex _ | Uni _)
                     | (_, Root (FVar _ | NSDef _ | Proj _ | Skonst _, _))
    in: fun nonStrictExpN (D, I.Root (I.B  ...  checking freeness"))
Warning: src/modes/modecheck.fun 348.9-350.51.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and nonStrictSpineN (D, I.Nil) =   ...  rictExpN (D, U), S))
Warning: src/modes/modecheck.fun 359.9-364.42.
  Function is not exhaustive.
    missing pattern: (Null, ~2147483648 .. 0 | 2 .. 2147483647)
    in: and nonStrictVarD (I.Decl (D, Exi  ...  (D, k - 1), status))
Warning: src/modes/modecheck.fun 380.9-398.41.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _ | EClo _ | EVar _ | NVar _ | Pi _ | Redex _ | Uni _,
                      _)
                     | (_, Root (FVar _ | NSDef _ | Proj _ | Skonst _, _), _)
    in: fun updateExpN (D, I.Root (I.BVar  ...  , I.FgnExp _, u) = D
Warning: src/modes/modecheck.fun 407.9-409.51.
  Function is not exhaustive.
    missing pattern: (_, SClo _, _)
    in: and updateSpineN (D, I.Nil, u) =   ...  pN (D, U, u), S, u))
Warning: src/modes/modecheck.fun 418.9-421.42.
  Function is not exhaustive.
    missing pattern: (Null, _, _)
    in: and updateVarD (I.Decl (D, Existe  ...   k - 1, u), status))
Warning: src/modes/modecheck.fun 441.9-455.50.
  Function is not exhaustive.
    missing pattern: (_, Minus1, App _, Mnil, _)
                     | (_, Minus1, Nil, Mapp _, _)
                     | (_, Minus1, SClo _, _, _)
                     | (_, Minus, App _, Mnil, _)
                     | (_, Minus, Nil, Mapp _, _)
                     | (_, Minus, SClo _, _, _)
                     | (_, Plus, App _, Mnil, _)
                     | (_, Plus, Nil, Mapp _, _)
                     | (_, Plus, SClo _, _, _)
                     | (_, Star, App _, Mnil, _)
                     | (_, Star, Nil, Mapp _, _)
                     | (_, Star, SClo _, _, _)
    in: fun updateAtom' (D, mode, I.Nil,   ...  , mS, (p + 1, occ)))
Warning: src/modes/modecheck.fun 464.9-471.85.
  Function is not exhaustive.
    missing pattern: (_,
                      Minus1 | Plus | Star,
                      App _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _,
                      _)
                     | (_, Minus1 | Plus | Star, App _, (Pi _, _), Mnil, _)
                     | (_, Minus1 | Plus | Star, Nil, _, Mapp _, _)
                     | (_, Minus1 | Plus | Star, SClo _, _, _, _)
                     | (_,
                        Minus,
                        App _,
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Redex _
                         | Root _
                         | Uni _,
                         _),
                        _,
                        _)
                     | (_,
                        Minus,
                        App _,
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        Mnil,
                        _)
                     | (_, Minus, App _, (Pi ((Dec _, _), _), _), Mnil, _)
                     | (_, Minus, Nil, _, Mapp _, _)
                     | (_, Minus, SClo _, _, _, _)
    in: fun freeAtom (D, mode, I.Nil, Vs,  ...  , mS, (p + 1, occ)))
Warning: src/modes/modecheck.fun 502.9-514.110.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      AVar _ | EClo _ | EVar _ | NVar _ | Pi _ | Redex _ | Uni _,
                      _)
                     | (_, _, Root (FVar _ | NSDef _ | Proj _ | Skonst _, _), _)
    in: fun groundExpN (D, mode, I.Root (  ...  , occ), u))) Unique)
Warning: src/modes/modecheck.fun 532.9-535.45.
  Function is not exhaustive.
    missing pattern: (_, _, SClo _, _)
    in: and groundSpineN (D, mode, I.Nil,  ...  , S, (p + 1, occ))))
Warning: src/modes/modecheck.fun 592.9-603.49.
  Function is not exhaustive.
    missing pattern: (_, Minus1 | Star, App _, Mnil, _)
                     | (_, Minus1 | Star, Nil, Mapp _, _)
                     | (_, Minus1 | Star, SClo _, _, _)
                     | (_, Minus, App _, Mnil, _)
                     | (_, Minus, Nil, Mapp _, _)
                     | (_, Minus, SClo _, _, _)
                     | (_, Plus, App _, Mnil, _)
                     | (_, Plus, Nil, Mapp _, _)
                     | (_, Plus, SClo _, _, _)
    in: fun groundAtom (D, _, I.Nil, M.Mn  ...  , mS, (p + 1, occ)))
Warning: src/modes/modecheck.fun 616.34-616.51.
  Function is not exhaustive.
    missing pattern: Null
    in: fn I.Decl (D, m) => D
Warning: src/modes/modecheck.fun 636.9-691.13.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _,
                      _)
                     | (_, Pi ((ADec _ | BDec _ | NDec _, _), _), _, _)
                     | (_, Pi ((Dec _, Meta), _), _, _)
                     | (_,
                        Root (BVar _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _,
                        _)
    in: fun checkD1 (D, I.Pi ((I.Dec (nam  ...  lookup (d, occ)) end
Warning: src/modes/modecheck.fun 673.25-685.27.
  Function is not exhaustive.
    missing pattern: nil
    in: fun checkSome [D'] = (groundAtom   ...   Ds) ; checkAll mSs)
Warning: src/modes/modecheck.fun 648.25-660.27.
  Function is not exhaustive.
    missing pattern: nil
    in: fun checkSome [D'] = (groundAtom   ...   Ds) ; checkAll mSs)
Warning: src/modes/modecheck.fun 641.23-641.87.
  Function is not exhaustive.
    missing pattern: Null
    in: fn I.Decl (D', m) => (ctxPush (m,  ...  1, P.label occ, k)))
Warning: src/modes/modecheck.fun 638.23-638.59.
  Function is not exhaustive.
    missing pattern: Null
    in: fn I.Decl (D', m) => (ctxPush (m, k D'))
Warning: src/modes/modecheck.fun 707.9-771.13.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _,
                      _)
                     | (_, Pi ((ADec _ | BDec _ | NDec _, Meta | No), _), _, _)
                     | (_, Pi ((Dec _, Meta), _), _, _)
                     | (_,
                        Root (BVar _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _,
                        _)
    in: and checkG1 (D, I.Pi ((_, I.Maybe  ...  lookup (d, occ)) end
Warning: src/modes/modecheck.fun 713.31-713.67.
  Function is not exhaustive.
    missing pattern: Null
    in: fn I.Decl (D', m) => (ctxPush (m, k D'))
Warning: src/modes/modecheck.fun 709.31-709.67.
  Function is not exhaustive.
    missing pattern: Null
    in: fn I.Decl (D', m) => (ctxPush (m, k D'))
Warning: src/modes/modecheck.fun 789.9-790.33.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const a) = a | cidFromHead (I.Def a) = a
Warning: src/modes/modecheck.fun 802.8-807.44.
  Function is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Redex _
    in: fun checkable (I.Root (Ha, _)) =   ...   V)) = (checkable V)
Warning: src/modes/modecheck.fun 820.9-834.17.
  Function is not exhaustive.
    missing pattern: :: (BVar _
                         | FVar _
                         | FgnConst _
                         | NSDef _
                         | Proj _
                         | Skonst _,
                         _)
    in: fun checkAll nil = () | checkAll   ...  )) ; checkAll clist)
Warning: src/modes/modeprint.fun 28.9-29.41.
  Function is not exhaustive.
    missing pattern: (ADec _ | BDec _ | NDec _, Marg (_, SOME _))
    in: fun nameDec (I.Dec (_, V), M.Marg  ...  .Marg (_, NONE)) = D
Warning: src/modes/modeprint.fun 43.8-54.5.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      Mapp _)
    in: fun fmtModeDec' (G, _, M.Mnil) =   ...  G, D''), V', S)) end
Warning: src/modes/modeprint.fun 59.9-61.56.
  Function is not exhaustive.
    missing pattern: nil
    in: fun fmtModeDecs ((cid, mS) :: nil  ...  : fmtModeDecs mdecs)
Warning: src/table/hash-table.sml 26.6-29.24.
  Function is not exhaustive.
    missing pattern: Nil
    in: fun insertB (Cons (r' as ref (has  ...  ) else insertBR br')
Warning: src/subordinate/subordinate.fun 169.15-174.52.
  Case is not exhaustive.
    missing pattern: BlockDec _ | BlockDef _
    in: case IntSyn.sgnLookup a of IntSyn  ...  (IntSyn.constDef a))
Warning: src/subordinate/subordinate.fun 368.9-380.40.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _)
                     | (Pi ((ADec _ | BDec _ | NDec _, _), _), _)
    in: and installTypeN' (I.Pi ((D as I.  ...  ' (I.Root _, _) = ()
Warning: src/subordinate/subordinate.fun 388.9-392.25.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _,
                      _)
                     | (Pi ((ADec _ | BDec _ | NDec _, _), _), _)
    in: fun installKindN (I.Uni L, a) = (  ...  nstallKindN (V2, a))
Warning: src/subordinate/subordinate.fun 418.9-418.48.
  Function is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: fun installDec (I.Dec (_, V)) = (installTypeN V)
Warning: src/subordinate/subordinate.fun 427.8-427.30.
  Declaration is not exhaustive.
    missing pattern: AbbrevDef _ | BlockDef _ | ConDec _ | ConDef _ | SkoDec _
    in: val I.BlockDec (_, _, G, Ds) = I.sgnLookup b
Warning: src/subordinate/subordinate.fun 450.9-462.41.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _)
                     | (Pi ((ADec _ | BDec _ | NDec _, _), _), _)
    in: fun respectsTypeN' (I.Pi ((D as I  ...  ' (I.Root _, _) = ()
Warning: src/subordinate/subordinate.fun 489.9-496.4.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun weaken (I.Null, a) = I.id | w  ...  mp (w', I.shift) end
Warning: src/solvers/cs-eq-field.fun 327.22-327.44.
  Case is not exhaustive.
    missing pattern: NONE
    in: case fromString (conDecName conDe  ...   m => (Sum (m, nil))
Warning: src/solvers/cs-eq-field.fun 523.16-524.38.
  Function is not exhaustive.
    missing pattern: App (_, App _ | SClo _) | Nil | SClo _
    in: fn App (U, Nil) => (opSum (fromExp (U, id)))
Warning: src/solvers/cs-eq-field.fun 528.16-529.56.
  Function is not exhaustive.
    missing pattern: App ((_, App (_, App _ | SClo _)) | (_, Nil | SClo _))
                     | Nil
                     | SClo _
    in: fn App (U1, App (U2, Nil)) => (op  ...  , fromExp (U2, id)))
Warning: src/solvers/cs-ineq-field.fun 916.22-917.67.
  Case is not exhaustive.
    missing pattern: NONE
    in: case findTag tag'' of SOME pos''   ...  , geq00 (), false)))
Warning: src/solvers/cs-ineq-field.fun 945.33-945.67.
  Case is not exhaustive.
    missing pattern: NONE
    in: case isSubsumed row of SOME pos' => (update (G, pos', sum))
Warning: src/solvers/cs-ineq-field.fun 1129.9-1130.53.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun fst (App (U1, _), s) = (U1, s  ...  t (S, comp (s', s)))
Warning: src/solvers/cs-ineq-field.fun 1133.9-1134.53.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun snd (App (U1, S), s) = (fst (  ...  d (S, comp (s', s)))
Warning: src/solvers/cs-eq-strings.fun 136.22-137.58.
  Case is not exhaustive.
    missing pattern: NONE
    in: case fromString (conDecName conDe  ...  Concat [String str])
Warning: src/solvers/cs-eq-strings.fun 350.32-352.49.
  Case is not exhaustive.
    missing pattern: MultDelay _
    in: case unifyRigid' (AL1, AL2) of Mu  ...  | Failure => Failure
Warning: src/solvers/cs-eq-strings.fun 338.32-340.49.
  Case is not exhaustive.
    missing pattern: MultDelay _
    in: case unifyRigid' (AL1, AL2) of Mu  ...  | Failure => Failure
Warning: src/solvers/cs-eq-strings.fun 413.29-428.58.
  Case is not exhaustive.
    missing pattern: (MultAssign _, nil)
    in: case unifyString' (AL, candidates  ...  _) => (Failure, nil)
Warning: src/solvers/cs-eq-strings.fun 519.26-522.68.
  Case is not exhaustive.
    missing pattern: MultDelay _
    in: case unifyRigid (G, concat1, conc  ...  y ([U1, U2], cnstr))
Warning: src/solvers/cs-eq-strings.fun 618.16-619.59.
  Function is not exhaustive.
    missing pattern: App ((_, App (_, App _ | SClo _)) | (_, Nil | SClo _))
                     | Nil
                     | SClo _
    in: fn App (U1, App (U2, Nil)) => (op  ...  , fromExp (U2, id)))
Warning: src/solvers/cs-eq-bools.fun 127.9-129.51.
  Function is not exhaustive.
    missing pattern: Mon nil
    in: and toExpMon (Mon [Us]) = (toExpE  ...  UsL), toExpEClo Us))
Warning: src/solvers/cs-eq-bools.fun 316.9-318.53.
  Function is not exhaustive.
    missing pattern: Mon nil
    in: and normalizeMon (Mon [Us]) = (fr  ...  alizeMon (Mon UsL)))
Warning: src/solvers/cs-eq-bools.fun 484.16-485.38.
  Function is not exhaustive.
    missing pattern: App (_, App _ | SClo _) | Nil | SClo _
    in: fn App (U, Nil) => (opSum (fromExp (U, id)))
Warning: src/solvers/cs-eq-bools.fun 489.16-490.56.
  Function is not exhaustive.
    missing pattern: App ((_, App (_, App _ | SClo _)) | (_, Nil | SClo _))
                     | Nil
                     | SClo _
    in: fn App (U1, App (U2, Nil)) => (op  ...  , fromExp (U2, id)))
Warning: src/solvers/cs-eq-integers.fun 329.22-329.44.
  Case is not exhaustive.
    missing pattern: NONE
    in: case fromString (conDecName conDe  ...   m => (Sum (m, nil))
Warning: src/solvers/cs-eq-integers.fun 378.17-380.73.
  Function is not exhaustive.
    missing pattern: nil
    in: fun gcd_list (n1 :: nil) = n1 | g  ...  1, n2), gcd_list l))
Warning: src/solvers/cs-eq-integers.fun 459.18-483.44.
  Case is not exhaustive.
    missing pattern: SOME ((Mon (_, :: (_, :: _)), _, _) | (Mon (_, nil), _, _))
    in: case findMon invertMon (G, sum) o  ...   [delaySum (G, sum)]
Warning: src/solvers/cs-eq-integers.fun 461.26-482.61.
  Case is not exhaustive.
    missing pattern: SOME ((Mon (_, :: (_, :: _)), _, _) | (Mon (_, nil), _, _))
    in: case findMon invertMon (G, sum1)   ...  [delaySum (G, sum)])
Warning: src/solvers/cs-eq-integers.fun 496.17-507.27.
  Function is not exhaustive.
    missing pattern: (_,
                      Mon (_,
                           :: ((AVar _
                                | EClo _
                                | FgnExp _
                                | Lam _
                                | NVar _
                                | Pi _
                                | Redex _
                                | Root _
                                | Uni _,
                                _),
                               _)),
                      _)
                     | (_, Mon (_, :: ((EVar _, _), :: _)), _)
                     | (_, Mon (_, nil), _)
    in: fun invertMon (G, Mon (n, [(LHS a  ...   NONE end else NONE)
Warning: src/solvers/cs-eq-integers.fun 607.16-608.38.
  Function is not exhaustive.
    missing pattern: App (_, App _ | SClo _) | Nil | SClo _
    in: fn App (U, Nil) => (opSum (fromExp (U, id)))
Warning: src/solvers/cs-eq-integers.fun 612.16-613.56.
  Function is not exhaustive.
    missing pattern: App ((_, App (_, App _ | SClo _)) | (_, Nil | SClo _))
                     | Nil
                     | SClo _
    in: fn App (U1, App (U2, Nil)) => (op  ...  , fromExp (U2, id)))
Warning: src/solvers/cs-ineq-integers.fun 825.22-826.84.
  Case is not exhaustive.
    missing pattern: NONE
    in: case findTag tag'' of SOME pos''   ...  geqNExp zero_int))))
Warning: src/solvers/cs-ineq-integers.fun 854.33-854.67.
  Case is not exhaustive.
    missing pattern: NONE
    in: case isSubsumed row of SOME pos' => (update (G, pos', sum))
Warning: src/solvers/cs-ineq-integers.fun 1245.9-1246.53.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun fst (App (U1, _), s) = (U1, s  ...  t (S, comp (s', s)))
Warning: src/solvers/cs-ineq-integers.fun 1249.9-1250.53.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun snd (App (U1, S), s) = (fst (  ...  d (S, comp (s', s)))
Warning: src/solvers/cs-integers-word.fun 280.9-281.53.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun fst (App (U1, _), s) = (U1, s  ...  t (S, comp (s', s)))
Warning: src/solvers/cs-integers-word.fun 284.9-285.53.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun snd (App (_, S), s) = (fst (S  ...  d (S, comp (s', s)))
Warning: src/solvers/cs-integers-word.fun 288.9-289.53.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun trd (App (_, S), s) = (snd (S  ...  d (S, comp (s', s)))
Warning: src/solvers/cs-integers-word.fun 292.9-293.53.
  Function is not exhaustive.
    missing pattern: (Nil, _)
    in: fun fth (App (_, S), s) = (trd (S  ...  h (S, comp (s', s)))
Warning: src/terminate/checking.fun 106.9-114.36.
  Function is not exhaustive.
    missing pattern: (_, Pi _)
    in: fun atomicPredToString (G, Less (  ...  ing (G, I.EClo Us'))
Warning: src/terminate/checking.fun 136.9-139.61.
  Function is not exhaustive.
    missing pattern: (Pi (ADec _ | BDec _ | NDec _, _), _)
    in: fun shiftP (Less (O1, O2)) f = (L  ...  (Pi (D, shiftP P f))
Warning: src/terminate/checking.fun 143.9-148.77.
  Function is not exhaustive.
    missing pattern: (Pi _, _)
    in: fun shiftArg (Less (((U1, s1), (V  ...   s2), (V2, f s2'))))
Warning: src/terminate/checking.fun 307.9-317.36.
  Function is not exhaustive.
    missing pattern: (_, :: (Leq _ | Pi _, _), _, _, _)
    in: fun lookupEq (GQ, nil, UsVs, UsVs  ...  , UsVs, UsVs', sc)))
Warning: src/terminate/checking.fun 339.9-346.36.
  Function is not exhaustive.
    missing pattern: (_, :: (Leq _ | Pi _, _), _, _, _)
    in: fun lookupLt (GQ, nil, UsVs, UsVs  ...  , UsVs, UsVs', sc)))
Warning: src/terminate/checking.fun 387.8-399.38.
  Function is not exhaustive.
    missing pattern: (_, :: (Leq _ | Pi _, _), _, _, _, _)
    in: and transEq (GQ as (G, Q), nil, D  ...  ', UsVs, UsVs', sc))
Warning: src/terminate/checking.fun 446.8-467.63.
  Function is not exhaustive.
    missing pattern: (_, :: (Leq _ | Pi _, _), _, _, _, _)
    in: and transLt (GQ as (G, Q), nil, D  ...  , UsVs, UsVs', sc)))
Warning: src/terminate/checking.fun 495.9-498.46.
  Function is not exhaustive.
    missing pattern: (_, _, _, Leq _ | Pi _, _)
    in: and atomic (GQ, D, D', Eq (UsVs,   ...  ', UsVs, UsVs', sc))
Warning: src/terminate/checking.fun 520.9-537.42.
  Function is not exhaustive.
    missing pattern: (_, :: (Pi _, _), _, _, _)
    in: and leftInstantiate (GQ as (G, Q)  ...  UsVs, UsVs', P, sc))
Warning: src/terminate/checking.fun 782.10-782.22.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V') = I.ctxDec (G, n)
Warning: src/terminate/checking.fun 803.8-816.5.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      ((App _, _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)),
                      ((App _ | Nil, _), _),
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        ((App _ | Nil, _), _),
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((App _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)),
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((Nil, _), _),
                        _,
                        _)
                     | (_, _, _, ((Nil, _), _), ((App _, _), _), _, _)
    in: and eqSpineILW (GQ, D, D', ((I.Ni  ...   s2'))), P', sc) end
Warning: src/terminate/checking.fun 830.8-832.66.
  Function is not exhaustive.
    missing pattern: (_, _, Pi _)
    in: and rightDecompose (GQ, D', Less   ...  EqR (GQ, D', O, O'))
Warning: src/terminate/checking.fun 844.8-850.26.
  Function is not exhaustive.
    missing pattern: (_, _, Arg _, Lex _ | Simul _)
                     | (_, _, Lex _, Arg _ | Simul _)
                     | (_, _, Simul _, Arg _ | Lex _)
    in: and ordLtR (GQ, D', R.Arg UsVs, R  ...  ulR (GQ, D', O, O'))
Warning: src/terminate/checking.fun 861.8-868.26.
  Function is not exhaustive.
    missing pattern: (_, _, Arg _, Lex _ | Simul _)
                     | (_, _, Lex _, Arg _ | Simul _)
                     | (_, _, Simul _, Arg _ | Lex _)
    in: and ordLeR (GQ, D', R.Arg UsVs, R  ...  ulR (GQ, D', O, O'))
Warning: src/terminate/checking.fun 878.8-885.25.
  Function is not exhaustive.
    missing pattern: (_, _, Arg _, Lex _ | Simul _)
                     | (_, _, Lex _, Arg _ | Simul _)
                     | (_, _, Simul _, Arg _ | Lex _)
    in: and ordEqR (GQ, D', R.Arg UsVs, R  ...  qsR (GQ, D', O, O'))
Warning: src/terminate/checking.fun 895.8-898.33.
  Function is not exhaustive.
    missing pattern: (_, _, :: _, nil) | (_, _, nil, :: _)
    in: and ordEqsR (GQ, D', nil, nil) =   ...  sR (GQ, D', L, L')))
Warning: src/terminate/checking.fun 908.8-912.57.
  Function is not exhaustive.
    missing pattern: (_, _, :: _, nil) | (_, _, nil, :: _)
    in: and ltLexR (GQ, D', nil, nil) = f  ...  R (GQ, D', L, L'))))
Warning: src/terminate/checking.fun 928.9-932.58.
  Function is not exhaustive.
    missing pattern: (_, _, :: _, nil) | (_, _, nil, :: _)
    in: and ltSimulR (GQ, D, nil, nil) =   ...  lR (GQ, D, L, L'))))
Warning: src/terminate/checking.fun 942.9-944.63.
  Function is not exhaustive.
    missing pattern: (_, _, :: _, nil) | (_, _, nil, :: _)
    in: and leSimulR (GQ, D, nil, nil) =   ...  ulR (GQ, D, L, L')))
Warning: src/terminate/checking.fun 968.8-979.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      ((AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _
                        | Uni _,
                        _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)),
                      _,
                      _,
                      _)
                     | (_,
                        _,
                        ((Lam _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Uni _,
                          _)),
                        _,
                        _,
                        _)
    in: and ltAtomicRW (GQ, D, UsVs as (U  ...  s, UsVs', sc, k) end
Warning: src/terminate/checking.fun 1002.8-1013.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      ((AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _
                        | Uni _,
                        _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)),
                      _,
                      _,
                      _)
                     | (_,
                        _,
                        ((Lam _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Uni _,
                          _)),
                        _,
                        _,
                        _)
    in: and leAtomicRW (GQ, D, UsVs as (U  ...  s, UsVs', sc, k) end
Warning: src/terminate/checking.fun 1072.7-1123.15.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      ((AVar _
                        | EClo _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _),
                       _),
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        ((Lam (ADec _ | BDec _ | NDec _, _), _), _),
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((Lam (Dec _, _), _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)),
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((Lam (Dec _, _), _),
                         (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((Root (FVar _
                                | FgnConst _
                                | NSDef _
                                | Proj _
                                | Skonst _,
                                _),
                          _),
                         _),
                        _,
                        _)
    in: and ltRW (GQ, D, (Us, Vs), (Us' a  ...  , k) end else false)
Warning: src/terminate/checking.fun 1092.10-1092.22.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V') = I.ctxDec (G, n)
Warning: src/terminate/checking.fun 1129.9-1138.71.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      ((App _, _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)),
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        _,
                        _)
    in: and ltSpineRW (GQ, D, (Us, Vs), (  ...  )), s2'))), sc, k)))
Warning: src/terminate/checking.fun 1276.13-1276.25.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V') = I.ctxDec (G, n)
Warning: src/terminate/checking.fun 1335.8-1373.31.
  Function is not exhaustive.
    missing pattern: (_, :: (Eq (Arg _, Lex _ | Simul _), _), _, _)
                     | (_, :: (Eq (Lex _, Arg _ | Simul _), _), _, _)
                     | (_, :: (Eq (Simul _, Arg _ | Lex _), _), _, _)
                     | (_, :: (Leq (Arg _, Lex _ | Simul _), _), _, _)
                     | (_, :: (Leq (Lex _, Arg _ | Simul _), _), _, _)
                     | (_, :: (Leq (Simul _, Arg _ | Lex _), _), _, _)
                     | (_, :: (Less (Arg _, Lex _ | Simul _), _), _, _)
                     | (_, :: (Less (Lex _, Arg _ | Simul _), _), _, _)
                     | (_, :: (Less (Simul _, Arg _ | Lex _), _), _, _)
    in: fun leftDecompose (GQ as (G, Q),   ...  pose (GQ, D, D', P))
Warning: src/terminate/checking.fun 1388.8-1392.44.
  Function is not exhaustive.
    missing pattern: (_, _, _, :: _, nil, _) | (_, _, _, nil, :: _, _)
    in: and ltLexL (GQ, D, D', nil, nil,   ...  : D, D', L, L', P)))
Warning: src/terminate/checking.fun 1404.8-1408.27.
  Function is not exhaustive.
    missing pattern: (_, _, _, :: _, nil, _) | (_, _, _, nil, :: _, _)
    in: and eqsL (GQ, D, D', nil, nil, P)  ...  , D, D', L, L', P)))
Warning: src/terminate/checking.fun 1411.8-1416.46.
  Function is not exhaustive.
    missing pattern: (_, _, _, :: _, nil, _) | (_, _, _, nil, :: _, _)
    in: and ltSimulL (GQ, D, D', nil, nil  ...  : D, D', L, L', P)))
Warning: src/terminate/checking.fun 1418.8-1421.48.
  Function is not exhaustive.
    missing pattern: (_, _, _, :: _, nil, _) | (_, _, _, nil, :: _, _)
    in: and leSimulL (GQ, D, D', nil, nil  ...  :: D, D', L, L', P))
Warning: src/terminate/checking.fun 1456.8-1469.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      _,
                      ((AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _
                        | Uni _,
                        _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)),
                      _)
                     | (_,
                        _,
                        _,
                        _,
                        ((Lam _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Uni _,
                          _)),
                        _)
    in: and ltAtomicLW (GQ as (G, Q), D,   ...  UsVs, UsVs', P') end
Warning: src/terminate/checking.fun 1475.8-1488.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      _,
                      ((AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _
                        | Uni _,
                        _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)),
                      _)
                     | (_,
                        _,
                        _,
                        _,
                        ((Lam _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Uni _,
                          _)),
                        _)
    in: and leAtomicLW (GQ, D, D', UsVs,   ...  UsVs, UsVs', P') end
Warning: src/terminate/checking.fun 1494.8-1500.57.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      (_,
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Uni _,
                        _)),
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        (_, (Pi _, _)),
                        (_,
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Uni _,
                          _)),
                        _)
                     | (_,
                        _,
                        _,
                        (_, (Root _, _)),
                        (_,
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Uni _,
                          _)),
                        _)
    in: and eqAtomicLW (GQ, D, D', (Us, V  ...  s', Vs')) :: D', P))
Warning: src/terminate/checking.fun 1519.9-1532.73.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      _,
                      ((AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _),
                       _),
                      _)
                     | (_,
                        _,
                        _,
                        _,
                        ((Root (FVar _
                                | FgnConst _
                                | NSDef _
                                | Proj _
                                | Skonst _,
                                _),
                          _),
                         _),
                        _)
    in: and ltLW (GQ as (G, Q), D, D', Us  ...  tType c, I.id)), P))
Warning: src/terminate/checking.fun 1524.12-1524.24.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V') = I.ctxDec (G, n)
Warning: src/terminate/checking.fun 1537.9-1545.69.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      _,
                      ((App _, _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)),
                      _)
                     | (_,
                        _,
                        _,
                        _,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        _)
    in: and ltSpineLW (GQ, D, D', UsVs, (  ...   s1')), s2'))), P)))
Warning: src/terminate/checking.fun 1642.13-1642.25.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V') = I.ctxDec (G, n)
Warning: src/terminate/checking.fun 1655.8-1668.5.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      ((App _, _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)),
                      ((App _ | Nil, _), _),
                      _)
                     | (_,
                        _,
                        _,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        ((App _ | Nil, _), _),
                        _)
                     | (_,
                        _,
                        _,
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((App _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)),
                        _)
                     | (_,
                        _,
                        _,
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        _)
                     | (_,
                        _,
                        _,
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((Nil, _), _),
                        _)
                     | (_, _, _, ((Nil, _), _), ((App _, _), _), _)
    in: and eqSpineLW (GQ, D, D', ((I.Nil  ...  1')), s2'))), P) end
Warning: src/terminate/reduces.fun 121.8-129.50.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. 0 | 2 .. 2147483647,
                      ((App _, _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)))
                     | (~2147483648 .. 0 | 2 .. 2147483647,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)))
                     | (~2147483648 .. 0 | 2 .. 2147483647, ((Nil, _), _))
                     | (1,
                        ((App _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)))
                     | (1,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)))
                     | (1, ((Nil, _), _))
    in: and select''W (1, ((I.App (U', S'  ...   (U', s')), s'')))))
Warning: src/terminate/reduces.fun 159.8-167.50.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. 0 | 2 .. 2147483647,
                      ((App _, _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)))
                     | (~2147483648 .. 0 | 2 .. 2147483647,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)))
                     | (~2147483648 .. 0 | 2 .. 2147483647, ((Nil, _), _))
                     | (1,
                        ((App _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)))
                     | (1,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)))
                     | (1, ((Nil, _), _))
    in: and select''W (1, ((I.App (U', S'  ...   (U', s')), s'')))))
Warning: src/terminate/reduces.fun 199.9-232.60.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, Meta | No), _), _),
                        _)
                     | (_, _, (Pi ((Dec _, Meta), _), _), _)
                     | (_,
                        _,
                        (Root (BVar _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
    in: and getROrderW (G, Q, Vs as (I.Ro  ...  constQid a) ^ ".")))
Warning: src/terminate/reduces.fun 253.9-302.61.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        _,
                        _,
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Redex _
                         | Uni _,
                         _),
                        (Root (BVar _
                               | Const _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
                     | (_,
                        _,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, Meta | No), _), _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _),
                        _)
                     | (_,
                        _,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, Meta | No), _), _),
                        (Root (BVar _
                               | Const _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
                     | (_,
                        _,
                        _,
                        (Pi ((Dec _, Meta), _), _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _),
                        _)
                     | (_,
                        _,
                        _,
                        (Pi ((Dec _, Meta), _), _),
                        (Root (BVar _
                               | Const _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
                     | (_,
                        _,
                        _,
                        (Root (BVar _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _),
                        _)
                     | (_,
                        _,
                        _,
                        (Root (BVar _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        (Root (BVar _
                               | Const _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
                     | (_,
                        _,
                        _,
                        (Root (Const _, _), _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _),
                        _)
                     | (_,
                        _,
                        _,
                        (Root (Const _, _), _),
                        (Root (BVar _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
    in: and checkGoalW (G0, Q0, Rl, (I.Pi  ...  onstQid a') ^ ".")))
Warning: src/terminate/reduces.fun 321.9-337.64.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      _,
                      _,
                      (Decl (_, ADec _ | BDec _ | NDec _), Decl (_, And _)))
                     | (_,
                        _,
                        _,
                        _,
                        _,
                        (Decl (_, ADec _ | BDec _ | NDec _), Null))
                     | (_, _, _, _, _, (Decl (_, Dec _), Null))
                     | (_, _, _, _, _, (Null, Decl _))
    in: and checkSubgoals (G0, Q0, Rl, Vs  ...  .Null, I.Null)) = ()
Warning: src/terminate/reduces.fun 354.9-372.65.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        _,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, Meta | No), _), _),
                        _)
                     | (_, _, _, (Pi ((Dec _, Meta), _), _), _)
                     | (_,
                        _,
                        _,
                        (Root (BVar _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
    in: and checkClauseW (GQR, G, Q, (I.P  ...  constQid a) ^ ".")))
Warning: src/terminate/reduces.fun 398.10-413.61.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        _,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, Meta | No), _), _),
                        _)
                     | (_, _, _, (Pi ((Dec _, Meta), _), _), _)
                     | (_,
                        _,
                        _,
                        (Root (BVar _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
    in: and checkRGoalW (G, Q, Rl, Vs as   ...  constQid a) ^ ".")))
Warning: src/terminate/reduces.fun 434.9-453.60.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, Meta | No), _), _),
                        _,
                        _)
                     | (_, _, _, (Pi ((Dec _, Meta), _), _), _, _)
                     | (_,
                        _,
                        _,
                        (Root (BVar _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _,
                        _)
    in: and checkRImpW (G, Q, Rl, (I.Pi (  ...  constQid a) ^ ".")))
Warning: src/terminate/reduces.fun 469.9-508.65.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        _,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, Meta | No), _), _),
                        _)
                     | (_, _, _, (Pi ((Dec _, Meta), _), _), _)
                     | (_,
                        _,
                        _,
                        (Root (BVar _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
    in: and checkRClauseW (G, Q, Rl, (I.P  ...  constQid a) ^ ".")))
Warning: src/terminate/reduces.fun 521.8-548.18.
  Function is not exhaustive.
    missing pattern: :: (BVar _
                         | FVar _
                         | FgnConst _
                         | NSDef _
                         | Proj _
                         | Skonst _,
                         _)
    in: fun checkFam' [] = (if ! Global.c  ...  sg)) ; checkFam' bs)
Warning: src/terminate/reduces.fun 570.8-597.16.
  Function is not exhaustive.
    missing pattern: :: (BVar _
                         | FVar _
                         | FgnConst _
                         | NSDef _
                         | Proj _
                         | Skonst _,
                         _)
    in: fun checkFam' [] = (if ! Global.c  ...  sg)) ; checkFam' bs)
Warning: src/thm/thmsyn.fun 122.6-124.62.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _, _)
                     | (Decl (_, Dec _), Null, _)
                     | (Null, Decl _, _)
    in: fun theoremToModeSpine' (I.Null,   ...  M.Marg (m, x), mS)))
Warning: src/thm/thm.fun 53.6-65.46.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _,
                      _,
                      _)
    in: fun unique' (I.Uni _, nil, A) = A  ...  not a type family"))
Warning: src/thm/thm.fun 67.8-68.54.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      _,
                      _)
    in: fun skip (0, V, P, A) = (unique'   ...  ip (k - 1, V, P, A))
Warning: src/thm/thm.fun 88.8-90.48.
  Function is not exhaustive.
    missing pattern: ((:: _, nil), _) | ((nil, :: _), _)
    in: fun uniqueCallpats' ((nil, nil),   ...  nique ((aP, r), A)))
Warning: src/thm/thm.fun 112.8-121.30.
  Function is not exhaustive.
    missing pattern: (_, :: (NONE, _), Mnil) | (_, :: (SOME _, _), Mnil)
    in: fun exists' (x, nil, _) = false |  ...   exists' (x, L, mS))
Warning: src/thm/thm.fun 127.8-128.60.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647, _, _, Mnil)
    in: fun skip (0, x, P, mS) = (exists'  ...  p (k - 1, x, P, mS))
Warning: src/thm/thm.fun 201.9-204.17.
  Function is not exhaustive.
    missing pattern: (nil, _, _)
    in: fun locate (x :: vars, params, im  ...  imp)) | SOME n => n)
Warning: src/table/red-black-set.sml 246.15-249.72.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: fun delMin (Red (y, Empty, b), z)  ...  eftBlack (y, b, z)))
Warning: src/table/red-black-set.sml 390.9-391.38.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun getEntry (Red (x, _, _)) = x   ...  Black (x, _, _)) = x
Warning: src/compile/compsyn.fun 178.7-184.67.
  Function is not exhaustive.
    missing pattern: (Assign _ | Axists _, _)
    in: and resGoalSub (Eq q, s) = (Eq (I  ...  (r, IntSyn.dot1 s)))
Warning: src/compile/cprint.fun 51.9-83.5.
  Function is not exhaustive.
    missing pattern: (_, (_, Axists (ADec (NONE, _), _)))
                     | (_, (_, Axists (BDec _ | Dec _ | NDec _, _)))
    in: and clauseToString t (G, Eq p) =   ...  Decl (G, D'), r) end
Warning: src/compile/cprint.fun 114.9-124.28.
  Function is not exhaustive.
    missing pattern: DProg ((Decl (_, ADec _ | BDec _ | NDec _), _)
                            | (Decl (_, Dec (NONE, _)), _)
                            | (Decl (_, Dec (SOME _, _)),
                               Decl (_, BDec _ | PDec))
                            | (Decl (_, Dec (SOME _, _)), Null)
                            | (Null, Decl _))
    in: fun dProgToString (DProg (IntSyn.  ...  .expToString (G, A))
Warning: src/compile/subtree.fun 139.9-140.33.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const c) = c | cidFromHead (I.Def c) = c
Warning: src/compile/subtree.fun 154.7-161.80.
  Function is not exhaustive.
    missing pattern: Dot (Axp _ | Block _, _)
    in: fun printSub (IntSyn.Shift n) = (  ...  ef . " ; printSub s)
Warning: src/compile/subtree.fun 271.12-273.61.
  Function is not exhaustive.
    missing pattern: (_, _, App _, Nil | SClo _)
                     | (_, _, Nil, App _ | SClo _)
                     | (_, _, SClo _, _)
    in: and genSpine (label, b, I.Nil, I.  ...  (label, b, S1, S2)))
Warning: src/compile/subtree.fun 275.12-276.39.
  Function is not exhaustive.
    missing pattern: (_, _, ADec _ | BDec _ | NDec _, _)
                     | (_, _, Dec _, ADec _ | BDec _ | NDec _)
    in: and genDec (label, b, I.Dec (N, E  ...  (label, b, E1, E2)))
Warning: src/compile/subtree.fun 401.7-414.61.
  Function is not exhaustive.
    missing pattern: (AVar _ | EClo _ | EVar _ | FgnExp _ | Redex _ | Uni _, _)
    in: fun normalizeNExp (I.NVar n, csub  ...  lizeNExp (U, nsub)))
Warning: src/compile/subtree.fun 416.7-418.61.
  Function is not exhaustive.
    missing pattern: (SClo _, _)
    in: and normalizeNSpine (I.Nil, _) =   ...  zeNSpine (S, nsub)))
Warning: src/compile/subtree.fun 420.7-420.74.
  Function is not exhaustive.
    missing pattern: (ADec _ | BDec _ | NDec _, _)
    in: and normalizeNDec (I.Dec (N, E),   ...  lizeNExp (E, nsub)))
Warning: src/compile/subtree.fun 443.11-463.56.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        (Root _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
    in: fun assignHead (nvaronly, depth,   ...   "Head mismatch ")))
Warning: src/compile/subtree.fun 465.11-576.43.
  Function is not exhaustive.
    missing pattern: (Body,
                      _,
                      _,
                      (AVar _ | NVar _ | Redex _, _),
                      AVar _ | EClo _ | EVar _ | Lam _ | Pi _ | Redex _ | Uni _,
                      _)
                     | (Body,
                        _,
                        _,
                        (AVar _ | NVar _ | Redex _, _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
                     | (Body,
                        _,
                        _,
                        (Lam (ADec _ | BDec _ | NDec _, _), _),
                        AVar _
                        | EClo _
                        | EVar _
                        | Lam _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (Body,
                        _,
                        _,
                        (Lam (ADec _ | BDec _ | NDec _, _), _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
                     | (Body,
                        _,
                        _,
                        (Lam (Dec _, _), _),
                        AVar _ | EClo _ | EVar _ | Pi _ | Redex _ | Uni _,
                        _)
                     | (Body,
                        _,
                        _,
                        (Lam (Dec _, _), _),
                        Lam (ADec _ | BDec _ | NDec _, _),
                        _)
                     | (Body,
                        _,
                        _,
                        (Lam (Dec _, _), _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
                     | (Body,
                        _,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        AVar _
                        | EClo _
                        | EVar _
                        | Lam _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (Body,
                        _,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
                     | (Body,
                        _,
                        _,
                        (Pi ((Dec _, _), _), _),
                        AVar _ | EClo _ | EVar _ | Lam _ | Redex _ | Uni _,
                        _)
                     | (Body,
                        _,
                        _,
                        (Pi ((Dec _, _), _), _),
                        Pi ((ADec _ | BDec _ | NDec _, _), _),
                        _)
                     | (Body,
                        _,
                        _,
                        (Pi ((Dec _, _), _), _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
                     | (Body,
                        _,
                        _,
                        (Root _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | Lam _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (Body,
                        _,
                        _,
                        (Uni _, _),
                        AVar _ | EClo _ | EVar _ | Lam _ | Pi _ | Redex _,
                        _)
                     | (Body,
                        _,
                        _,
                        (Uni _, _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (AVar _ | NVar _ | Redex _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | Lam _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (AVar _ | NVar _ | Redex _, _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Lam (ADec _ | BDec _ | NDec _, _), _),
                        AVar _
                        | EClo _
                        | EVar _
                        | Lam _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Lam (ADec _ | BDec _ | NDec _, _), _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Lam (Dec _, _), _),
                        AVar _ | EClo _ | EVar _ | Pi _ | Redex _ | Uni _,
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Lam (Dec _, _), _),
                        Lam (ADec _ | BDec _ | NDec _, _),
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Lam (Dec _, _), _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        AVar _
                        | EClo _
                        | EVar _
                        | Lam _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Pi ((Dec _, _), _), _),
                        AVar _ | EClo _ | EVar _ | Lam _ | Redex _ | Uni _,
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Pi ((Dec _, _), _), _),
                        Pi ((ADec _ | BDec _ | NDec _, _), _),
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Pi ((Dec _, _), _), _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Root _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | Lam _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Uni _, _),
                        AVar _ | EClo _ | EVar _ | Lam _ | Pi _ | Redex _,
                        _)
                     | (TypeLabel,
                        _,
                        _,
                        (Uni _, _),
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
    in: and assignExpW (nvaronly, depth,   ...  o Us1, U2) :: cnstr)
Warning: src/compile/subtree.fun 517.11-529.12.
  Case is not exhaustive.
    missing pattern: (AVar _ | Lam _ | NVar _ | Pi _ | Redex _ | Root _ | Uni _,
                      _)
    in: case Us1 of (I.EVar (r, _, V, Cns  ...  1, U2') :: cnstr end
Warning: src/compile/subtree.fun 586.11-595.4.
  Function is not exhaustive.
    missing pattern: (_, _, _, (App _, _), Nil | SClo _, _)
                     | (_, _, _, (Nil, _), App _ | SClo _, _)
    in: and assignSpine (nvaronly, depth,  ...  s1), S2, cnstr') end
Warning: src/compile/subtree.fun 650.26-651.71.
  Case is not exhaustive.
    missing pattern: SOME (EClo _
                           | EVar _
                           | FgnExp _
                           | Lam _
                           | NVar _
                           | Pi _
                           | Redex _
                           | Root _
                           | Uni _)
    in: case S.lookup cnstrSub nv of NONE  ...  NExp (U, cnstrSub)))
Warning: src/compile/subtree.fun 680.7-703.9.
  Function is not exhaustive.
    missing pattern: (_, _, Decl (_, BDec _ | NDec _), _)
    in: fun ctxToExplicitSub (i, Gquery,   ...  Gclause, asub))) end
Warning: src/compile/subtree.fun 695.6-695.24.
  Declaration is not exhaustive.
    missing pattern: EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: val U' as I.AVar X' = I.newAVar ()
Warning: src/compile/subtree.fun 684.6-684.30.
  Declaration is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: val U' as I.EVar (X', _, _, _) =   ...  uery, I.EClo (A, s))
Warning: src/compile/subtree.fun 768.7-775.7.
  Function is not exhaustive.
    missing pattern: (_, Leaf _, _, _, _)
    in: fun retrieval (n, STree as Node (  ...  , nil, G, sc)))) end
Warning: src/compile/subtree.fun 808.6-829.7.
  Function is not exhaustive.
    missing pattern: (_, Leaf _, _, _, _)
    in: fun retrieveCandidates (n, STree   ...  te (1, candSet)) end
Warning: src/compile/subtree.fun 820.26-821.45.
  Case is not exhaustive.
    missing pattern: SOME (EClo _
                           | EVar _
                           | FgnExp _
                           | Lam _
                           | NVar _
                           | Pi _
                           | Redex _
                           | Root _
                           | Uni _)
    in: case S.lookup cnstrSub nv of NONE  ...   A) => (A := SOME U)
Warning: src/compile/subtree.fun 831.6-837.8.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _)
    in: fun matchSig (a, G, ps as (I.Root  ...  , I.EClo ps, sc) end
Warning: src/compile/subtree.fun 840.6-845.8.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _)
    in: fun matchSigIt (a, G, ps as (I.Ro  ...  , I.EClo ps, sc) end
Warning: src/compile/compile.fun 49.9-50.33.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const c) = c | cidFromHead (I.Def c) = c
Warning: src/compile/compile.fun 67.9-68.36.
  Function is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Redex _
                     | Uni _
    in: fun head (I.Root (h, _)) = h | head (I.Pi (_, A)) = (head A)
Warning: src/compile/compile.fun 89.7-92.39.
  Function is not exhaustive.
    missing pattern: (SClo _, _)
    in: fun etaSpine (I.Nil, n) = (n = 0)  ...  p (A, S), n) = false
Warning: src/compile/compile.fun 123.8-129.10.
  Function is not exhaustive.
    missing pattern: (SClo _, _, _, _)
    in: fun collectSpine (I.Nil, K, Vars,  ...  ', Vars', depth) end
Warning: src/compile/compile.fun 131.8-151.25.
  Function is not exhaustive.
    missing pattern: (AVar _ | EClo _ | EVar _ | NVar _ | Pi _ | Redex _ | Uni _,
                      _,
                      _,
                      _)
    in: and collectExp (I.Root (h as I.BV  ...  th, FGN) :: K, Vars)
Warning: src/compile/compile.fun 162.7-171.54.
  Function is not exhaustive.
    missing pattern: (FVar _ | Proj _, _, _)
    in: fun shiftHead (h as I.BVar k, dep  ...  k, depth, total) = h
Warning: src/compile/compile.fun 174.7-185.86.
  Function is not exhaustive.
    missing pattern: (AVar _ | EClo _ | EVar _ | NVar _ | Redex _, _, _)
    in: fun shiftExp (I.Root (h, S), dept  ...  d), depth, total))))
Warning: src/compile/compile.fun 186.7-188.69.
  Function is not exhaustive.
    missing pattern: (SClo _, _, _)
    in: and shiftSpine (I.Nil, _, _) = I.  ...   (S, depth, total)))
Warning: src/compile/compile.fun 190.7-191.44.
  Function is not exhaustive.
    missing pattern: (ADec _ | BDec _ | NDec _, _, _)
    in: and shiftDec (I.Dec (x, V), depth  ...   (V, depth, total)))
Warning: src/compile/compile.fun 208.8-229.24.
  Function is not exhaustive.
    missing pattern: (_, Def _ | FVar _ | NSDef _ | Proj _, _, _, _, _, _)
    in: fun linearHead (G, h as I.BVar k,  ...  eft, Vars, h, false)
Warning: src/compile/compile.fun 243.8-289.10.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _ | EClo _ | EVar _ | NVar _ | Pi _ | Redex _ | Uni _,
                      _,
                      _,
                      _,
                      _,
                      _)
    in: fun linearExp (Gl, U as I.Root (h  ...  l, U', N, eqns)) end
Warning: src/compile/compile.fun 291.8-298.10.
  Function is not exhaustive.
    missing pattern: (_, SClo _, _, _, _, _, _)
    in: and linearSpine (Gl, I.Nil, left,  ...  U', S'), eqns'') end
Warning: src/compile/compile.fun 313.9-331.4.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Uni _)
    in: fun compileLinearHead (G, R as I.  ...  ))) else () ; r) end
Warning: src/compile/compile.fun 319.8-321.83.
  Function is not exhaustive.
    missing pattern: (_, nil, ~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun convertKRes (ResG, nil, 0) =   ...  s (ResG, K, i - 1)))
Warning: src/compile/compile.fun 343.9-362.4.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Uni _)
    in: fun compileSbtHead (G, H as I.Roo  ...  SOME (H', Eqs))) end
Warning: src/compile/compile.fun 349.8-351.78.
  Function is not exhaustive.
    missing pattern: (_, nil, ~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun convertKRes (G, nil, 0) = G |  ...   i), d)), K, i - 1))
Warning: src/compile/compile.fun 378.7-397.60.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _))
                     | (_, (_, Pi ((ADec _ | BDec _ | NDec _, _), _)))
                     | (_, (_, Pi ((Dec _, Meta), _)))
    in: fun compileGoalN fromCS (G, R as   ...  I.Decl (G, D), A2)))
Warning: src/compile/compile.fun 415.8-435.65.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (_,
                       AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _))
                     | (_, _, (_, Pi ((ADec _ | BDec _ | NDec _, Meta | No), _)))
    in: and compileDClauseN fromCS opt (G  ...  I.Decl (G, D), A2)))
Warning: src/compile/compile.fun 449.7-460.60.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (_, Decl (_, Maybe), Decl (_, ADec _ | BDec _ | NDec _)))
                     | (_, _, (_, Decl (_, Maybe), Null))
                     | (_, _, (_, Decl (_, Meta), _))
                     | (_,
                        _,
                        (_, Decl (_, No), Decl (_, ADec _ | BDec _ | NDec _)))
                     | (_, _, (_, Decl (_, No), Null))
                     | (_, _, (_, Null, Decl _))
    in: fun compileSubgoals fromCS G' (n,  ...  ll, I.Null) = C.True
Warning: src/compile/compile.fun 474.7-491.71.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       _,
                       AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _))
                     | (_, (_, _, Pi ((ADec _ | BDec _ | NDec _, _), _)))
    in: fun compileSClauseN fromCS (Stack  ...   I.Decl (G, D), A2))
Warning: src/compile/compile.fun 509.13-516.8.
  Function is not exhaustive.
    missing pattern: (:: (ADec _ | BDec _ | NDec _, _), _, _)
    in: fun compileBlock (nil, s, (n, i))  ...   t), (n, i + 1)) end
Warning: src/compile/compile.fun 517.6-531.8.
  Function is not exhaustive.
    missing pattern: Decl (_, ADec _ | NDec _)
    in: fun compileCtx' I.Null = I.Null |  ...  (L, s, (n, 1)))) end
Warning: src/compile/compile.fun 545.13-552.8.
  Function is not exhaustive.
    missing pattern: (:: (ADec _ | BDec _ | NDec _, _), _, _)
    in: fun compileBlock (nil, s, (n, i))  ...   t), (n, i + 1)) end
Warning: src/compile/compile.fun 553.6-567.8.
  Function is not exhaustive.
    missing pattern: Decl (_, ADec _ | NDec _)
    in: fun compileCtx' I.Null = I.Null |  ...  (L, s, (n, 1)))) end
Warning: src/compile/compile.fun 568.10-585.43.
  Function is not exhaustive.
    missing pattern: Decl (_, UDec (ADec _ | NDec _))
    in: fun compilePsi' I.Null = I.Null |  ...   Psi, CompSyn.PDec))
Warning: src/compile/assign.fun 42.9-143.42.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _ | NVar _ | Redex _, _),
                      (NVar _ | Pi _ | Redex _ | Root _ | Uni _, _),
                      _)
                     | (_,
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        (NVar _ | Pi _ | Redex _ | Root _ | Uni _, _),
                        _)
                     | (_,
                        (Pi ((Dec _, _), _), _),
                        (NVar _ | Redex _ | Root _ | Uni _, _),
                        _)
                     | (_,
                        (Pi ((Dec _, _), _), _),
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        _)
                     | (_, (Root _, _), (NVar _ | Pi _ | Redex _ | Uni _, _), _)
                     | (_, (Uni _, _), (NVar _ | Pi _ | Redex _ | Root _, _), _)
    in: fun assignExpW (G, (Uni L1, _), (  ...   EClo Us2) :: cnstr)
Warning: src/compile/assign.fun 145.9-155.5.
  Function is not exhaustive.
    missing pattern: (_, (App _, _), (Nil, _), _) | (_, (Nil, _), (App _, _), _)
    in: and assignSpine (G, (Nil, _), (Ni  ...  S2, s2), cnstr') end
Warning: src/compile/assign.fun 160.9-162.73.
  Function is not exhaustive.
    missing pattern: :: (FgnCnstr _ | Solved, _)
    in: fun solveCnstr nil = true | solve  ...   (solveCnstr Cnstr))
Warning: src/compile/assign.fun 164.7-171.66.
  Function is not exhaustive.
    missing pattern: Dot (Axp _ | Block _, _)
    in: fun printSub (Shift n) = (print (  ...  ef . " ; printSub s)
Warning: src/compile/assign.fun 211.7-228.7.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Uni _,
                      _)
                     | (Root (BVar _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
    in: fun firstConstArg (A as IntSyn.Ro  ...  Elem (0, (S, s)) end
Warning: src/compile/assign.fun 222.11-225.38.
  Function is not exhaustive.
    missing pattern: (_, (SClo _, _))
    in: fun ithElem (k, (IntSyn.App (U, S  ...  tSyn.Nil, s)) = NONE
Warning: src/opsem/absmachine.fun 56.7-57.31.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const a) = a | cidFromHead (I.Def a) = a
Warning: src/opsem/absmachine.fun 116.7-149.9.
  Function is not exhaustive.
    missing pattern: (_, (Axists (BDec _ | Dec _ | NDec _, _), _), _, _)
                     | (_, (Exists (ADec _ | BDec _ | NDec _, _), _), _, _)
                     | (_, (In _, _), _, _)
    in: and rSolve (ps', (C.Eq Q, s), C.D  ...  )), s)), dp, sc) end
Warning: src/opsem/absmachine.fun 187.7-273.9.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
    in: and matchAtom (ps' as (I.Root (Ha  ...  Prog (dPool, 1)) end
Warning: src/opsem/absmachine.fun 200.12-200.23.
  Declaration is not exhaustive.
    missing pattern: Void
    in: val C.SClause r = C.sProgLookup (cidFromHead Hc)
Warning: src/opsem/absmachine.fun 218.12-218.23.
  Declaration is not exhaustive.
    missing pattern: Void
    in: val C.SClause r = C.sProgLookup (cidFromHead Hc)
Warning: src/opsem/absmachine.fun 232.6-255.31.
  Function is not exhaustive.
    missing pattern: (Decl (_, BDec _ | PDec), _)
    in: fun matchDProg (I.Null, _) = (if   ...  rog (dPool', k + 1))
Warning: src/opsem/abstract.fun 66.9-69.41.
  Function is not exhaustive.
    missing pattern: Dot (Axp _ | Block _, _)
    in: fun isId (I.Shift n) = (n = 0) |   ...  I.Exp _, s)) = false
Warning: src/opsem/abstract.fun 71.9-78.53.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Exp _, _), _)
    in: and isId' (I.Shift n, k) = (n = k  ...  = (isId' (s, k + 1))
Warning: src/opsem/abstract.fun 157.9-162.96.
  Function is not exhaustive.
    missing pattern: (_, AVar _ | EClo _ | EVar _ | NVar _ | Redex _)
    in: fun occursInExp (k, I.Uni _) = I.  ...   (U, I.id))))) I.No)
Warning: src/opsem/abstract.fun 165.9-173.54.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | NSDef _ | Proj _, _)
    in: and occursInHead (k, I.BVar k', D  ...  _, I.Maybe) = I.Meta
Warning: src/opsem/abstract.fun 176.9-177.87.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and occursInSpine (_, I.Nil) = I.  ...  cursInSpine (k, S)))
Warning: src/opsem/abstract.fun 180.9-180.58.
  Function is not exhaustive.
    missing pattern: (_, ADec _ | BDec _ | NDec _)
    in: and occursInDec (k, I.Dec (_, V)) = (occursInExp (k, V))
Warning: src/opsem/abstract.fun 208.9-215.9.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun ctxToEVarSub (IntSyn.Null, s)  ...  ntSyn.Exp X, s') end
Warning: src/opsem/abstract.fun 241.9-267.35.
  Function is not exhaustive.
    missing pattern: (_, _, (AVar _ | EClo _ | NVar _ | Redex _, _), _, _, _, _)
    in: fun collectExpW (Gss, Gl, (I.Uni   ...  l (DupVars, FGN d)))
Warning: src/opsem/abstract.fun 297.9-321.6.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      (AVar _
                       | EClo _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _,
                      _,
                      _,
                      _)
    in: and collectEVarFapStr (Gss, Gl, (  ...  Vars', flag, d) end)
Warning: src/opsem/abstract.fun 323.9-354.6.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      (AVar _
                       | EClo _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _,
                      _,
                      _,
                      _)
    in: and collectEVarNFapStr (Gss, Gl,   ...  Vars', flag, d) end)
Warning: src/opsem/abstract.fun 356.9-371.9.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _,
                      _,
                      _,
                      _)
    in: and collectEVarStr (Gss as (Gs, s  ...  upVars, flag, d) end
Warning: src/opsem/abstract.fun 361.6-361.31.
  Declaration is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: val X' as I.EVar (r', _, _, _) =   ...  GX', I.EClo (V, iw))
Warning: src/opsem/abstract.fun 374.9-400.6.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _,
                      _,
                      _,
                      _)
    in: and collectEVarFap (Gss, Gl, (X a  ...  Vars', flag, d) end)
Warning: src/opsem/abstract.fun 402.9-429.6.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _,
                      _,
                      _,
                      _)
    in: and collectEVarNFap (Gss, Gl, (X   ...  pVars, flag, d) end)
Warning: src/opsem/abstract.fun 431.9-440.57.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _,
                      _,
                      _,
                      _)
    in: and collectEVar (Gss, Gl, (X as I  ...  , DupVars, flag, d))
Warning: src/opsem/abstract.fun 451.9-457.9.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _), _, _, _)
    in: and collectDec (Gss, (I.Dec (_, V  ...  n (K', DupVars') end
Warning: src/opsem/abstract.fun 470.9-503.45.
  Function is not exhaustive.
    missing pattern: (_, _, Dot (Axp _ | Block _, _), _, _, _, _)
    in: and collectSub (Gss, Gl, I.Shift   ...  , DupVars, flag, d))
Warning: src/opsem/abstract.fun 512.9-524.4.
  Function is not exhaustive.
    missing pattern: (_, DProg (Decl _, Decl (_, BDec _ | PDec)), _, _)
                     | (_, DProg (Decl _, Null), _, _)
                     | (_, DProg (Null, Decl _), _, _)
    in: fun collectCtx (Gss, C.DProg (I.N  ...  ), d - 1, false) end
Warning: src/opsem/abstract.fun 560.9-589.74.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      _,
                      _,
                      _,
                      _,
                      (AVar _ | EClo _ | FgnExp _ | NVar _ | Redex _, _),
                      _)
    in: fun abstractExpW (flag, Gs, posEA  ...  depth, (X, s), eqn))
Warning: src/opsem/abstract.fun 718.9-729.6.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      _,
                      _,
                      _,
                      _,
                      Dot (Axp _ | Block _ | Undef, _),
                      _,
                      _)
    in: and abstractSub (flag, Gs, posEA,  ...  p (U', S), eqn') end
Warning: src/opsem/abstract.fun 768.9-786.6.
  Function is not exhaustive.
    missing pattern: (_, _, _, _, _, Dot (Axp _ | Block _ | Undef, _))
    in: and abstractSub' (flag, Gs, epos,  ...   (I.Exp U', s')) end
Warning: src/opsem/abstract.fun 800.9-816.9.
  Function is not exhaustive.
    missing pattern: (_, _, _, _, _, _, (ADec _ | BDec _ | NDec _, _), _)
    in: and abstractDec (Gs, posEA, Vars,  ...  c (x, V'), eqn') end
Warning: src/opsem/abstract.fun 831.9-846.4.
  Function is not exhaustive.
    missing pattern: (_, _, _, _, _, DProg (Decl _, Null), _, _)
                     | (_, _, _, _, _, DProg (Null, Decl _), _, _)
    in: fun abstractCtx' (Gs, epos, Vars,  ...  l (G', D'), eqn) end
Warning: src/opsem/abstract.fun 859.9-869.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      Decl (_,
                            (_,
                             EV (AVar _
                                 | EClo _
                                 | FgnExp _
                                 | Lam _
                                 | NVar _
                                 | Pi _
                                 | Redex _
                                 | Root _
                                 | Uni _))),
                      _)
    in: fun makeEVarCtx (Gs, Vars, DEVars  ...  '')) in DEVars'' end
Warning: src/opsem/abstract.fun 873.6-879.68.
  Function is not exhaustive.
    missing pattern: (_,
                      Decl (_,
                            AV (AVar _
                                | EClo _
                                | FgnExp _
                                | Lam _
                                | NVar _
                                | Pi _
                                | Redex _
                                | Root _
                                | Uni _,
                                _)),
                      _)
                     | (_, Decl (_, FGN _), _)
    in: fun avarCtx (Vars, I.Null, k) = I  ...  nt.toString d), d)))
Warning: src/opsem/abstract.fun 920.7-924.118.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _
                      | Uni _)
    in: and lowerEVar (E, X as I.EVar (r,  ...  not be simplified"))
Warning: src/opsem/abstract.fun 933.9-941.9.
  Function is not exhaustive.
    missing pattern: (Decl (_,
                            (_,
                             EV (AVar _
                                 | EClo _
                                 | FgnExp _
                                 | Lam _
                                 | NVar _
                                 | Pi _
                                 | Redex _
                                 | Root _
                                 | Uni _))),
                      _)
                     | (Decl (_, (_, EV (EVar (ref (SOME _), _, _, _)))), _)
    in: fun evarsToSub (I.Null, s) = s |   ...  ot (I.Exp X, s') end
Warning: src/opsem/abstract.fun 950.9-957.4.
  Function is not exhaustive.
    missing pattern: (Decl (_,
                            AV (AVar _
                                | EClo _
                                | FgnExp _
                                | Lam _
                                | NVar _
                                | Pi _
                                | Redex _
                                | Root _
                                | Uni _,
                                _)),
                      _)
                     | (Decl (_, FGN _), _)
    in: fun avarsToSub (I.Null, s) = s |   ...  ift (~ d))), s') end
Warning: src/opsem/abstract.fun 954.8-954.22.
  Declaration is not exhaustive.
    missing pattern: EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: val X' as I.AVar r = I.newAVar ()
Warning: src/opsem/subtree.fun 89.9-96.9.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun ctxToEVarSub (IntSyn.Null, s)  ...  ntSyn.Exp X, s') end
Warning: src/opsem/subtree.fun 167.11-168.28.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const c) = c | cidFromHead (I.Def c) = c
Warning: src/opsem/subtree.fun 184.9-197.9.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, BDec _ | NDec _), _)
    in: fun ctxToAVarSub (G', I.Null, s)   ...  rSub (G', D, s)) end
Warning: src/opsem/subtree.fun 187.6-187.33.
  Declaration is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: val E as I.EVar (r, _, _, cnstr) = I.newEVar (I.Null, A)
Warning: src/opsem/subtree.fun 301.9-303.44.
  Function is not exhaustive.
    missing pattern: (Axp _ | Block _, _)
                     | (Exp _, Axp _ | Block _ | Idx _ | Undef)
                     | (Idx _, Axp _ | Block _ | Exp _ | Undef)
                     | (Undef, Axp _ | Block _ | Exp _ | Idx _)
    in: and equalFront (I.Idx n, I.Idx n'  ...  def, I.Undef) = true
Warning: src/opsem/subtree.fun 305.9-306.26.
  Function is not exhaustive.
    missing pattern: (Dot _, Shift _) | (Shift _, _)
    in: fun equalSub1 (I.Dot (ms, s), I.D  ...  = (equalSub (s, s'))
Warning: src/opsem/subtree.fun 331.8-331.50.
  Function is not exhaustive.
    missing pattern: (_,
                      Const _
                      | Def _
                      | FVar _
                      | FgnConst _
                      | NSDef _
                      | Proj _
                      | Skonst _,
                      _)
    in: fun isExists (d, I.BVar k, D) = (member (k - d, D))
Warning: src/opsem/subtree.fun 353.12-424.40.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Uni _,
                      _)
                     | (_,
                        Root (BVar _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _)
                     | (_,
                        Root (Const _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _)
                     | (_,
                        Root (Def _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _)
                     | (_,
                        Root (FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _,
                              _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _)
    in: fun genRoot (depth, T as I.Root (  ...  _t, T), (rho_u, U)))
Warning: src/opsem/subtree.fun 885.6-891.32.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun memberCtx' ((G, V), I.Null, n  ...  ((G, V), G', n + 1))
Warning: src/opsem/subtree-inst.fun 79.11-83.48.
  Function is not exhaustive.
    missing pattern: (_, :: ((_, BDec _ | NDec _), _))
    in: fun memb (x, []) = NONE | memb (x  ...  E) else memb (x, L))
Warning: src/opsem/subtree-inst.fun 164.9-181.80.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _, _))
    in: fun printSub (G, I.Shift n) = (pr  ...  " ; printSub (G, s))
Warning: src/opsem/subtree-inst.fun 184.9-193.37.
  Function is not exhaustive.
    missing pattern: Dot (Axp _ | Block _ | Undef, _)
    in: fun normalizeSub (I.Shift n) = (I  ...   n, normalizeSub s))
Warning: src/opsem/subtree-inst.fun 204.7-207.39.
  Function is not exhaustive.
    missing pattern: (SClo _, _)
    in: fun etaSpine (I.Nil, n) = (n = 0)  ...  p (A, S), n) = false
Warning: src/opsem/subtree-inst.fun 210.9-211.33.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const c) = c | cidFromHead (I.Def c) = c
Warning: src/opsem/subtree-inst.fun 236.9-242.9.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun ctxToEVarSub (I.Null, s) = s   ...  oEVarSub (G, s)) end
Warning: src/opsem/subtree-inst.fun 282.7-287.118.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _
                      | Uni _)
    in: and lowerEVar (E, X as I.EVar (r,  ...  not be simplified"))
Warning: src/opsem/subtree-inst.fun 289.9-302.9.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, BDec _ | NDec _), _)
    in: fun ctxToAVarSub (G', I.Null, s)   ...  rSub (G', D, s)) end
Warning: src/opsem/subtree-inst.fun 292.6-292.33.
  Declaration is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: val E as I.EVar (r, _, _, cnstr) = I.newEVar (I.Null, A)
Warning: src/opsem/subtree-inst.fun 315.7-333.10.
  Function is not exhaustive.
    missing pattern: (_,
                      ADec _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Uni _,
                      _,
                      _)
                     | (_,
                        ADec _,
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _,
                        _)
                     | (_, BDec _ | NDec _, _, _, _)
                     | (_,
                        Dec _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _,
                        _)
                     | (_,
                        Dec _,
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _,
                        _)
    in: fun assign (d, Dec1 as I.Dec (n,   ...  .Shift (~ d')))) end
Warning: src/opsem/subtree-inst.fun 328.7-328.20.
  Declaration is not exhaustive.
    missing pattern: EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: val A as I.AVar r = I.newAVar ()
Warning: src/opsem/subtree-inst.fun 318.12-318.39.
  Declaration is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: val E as I.EVar (r, _, _, cnstr) = I.newEVar (I.Null, V)
Warning: src/opsem/subtree-inst.fun 360.8-439.52.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (_, AVar _ | EVar _ | FgnExp _ | NVar _ | Redex _ | Uni _),
                      (_,
                       AVar _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Root _
                       | Uni _))
                     | (_,
                        _,
                        (_,
                         AVar _ | EVar _ | FgnExp _ | NVar _ | Redex _ | Uni _),
                        (_, EClo (_, Dot _)))
                     | (_,
                        _,
                        (_,
                         AVar _ | EVar _ | FgnExp _ | NVar _ | Redex _ | Uni _),
                        (_,
                         EClo (_, Shift (~2147483648 .. ~1 | 1 .. 2147483647))))
                     | (_,
                        _,
                        (_, EClo (_, Dot _)),
                        (_,
                         AVar _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Root _
                         | Uni _))
                     | (_, _, (_, EClo (_, Dot _)), (_, EClo (_, Dot _)))
                     | (_,
                        _,
                        (_, EClo (_, Dot _)),
                        (_,
                         EClo (_, Shift (~2147483648 .. ~1 | 1 .. 2147483647))))
                     | (_,
                        _,
                        (_,
                         EClo (_, Shift (~2147483648 .. ~1 | 1 .. 2147483647))),
                        (_,
                         AVar _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Root _
                         | Uni _))
                     | (_,
                        _,
                        (_,
                         EClo (_, Shift (~2147483648 .. ~1 | 1 .. 2147483647))),
                        (_, EClo (_, Dot _)))
                     | (_,
                        _,
                        (_,
                         EClo (_, Shift (~2147483648 .. ~1 | 1 .. 2147483647))),
                        (_,
                         EClo (_, Shift (~2147483648 .. ~1 | 1 .. 2147483647))))
                     | (_,
                        _,
                        (_, Lam _),
                        (_,
                         AVar _
                         | EVar _
                         | FgnExp _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Root _
                         | Uni _))
                     | (_, _, (_, Lam _), (_, EClo (_, Dot _)))
                     | (_,
                        _,
                        (_, Lam _),
                        (_,
                         EClo (_, Shift (~2147483648 .. ~1 | 1 .. 2147483647))))
                     | (_,
                        _,
                        (_, Pi ((ADec _ | BDec _ | NDec _, _), _)),
                        (_,
                         AVar _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Root _
                         | Uni _))
                     | (_,
                        _,
                        (_, Pi ((ADec _ | BDec _ | NDec _, _), _)),
                        (_, EClo (_, Dot _)))
                     | (_,
                        _,
                        (_, Pi ((ADec _ | BDec _ | NDec _, _), _)),
                        (_,
                         EClo (_, Shift (~2147483648 .. ~1 | 1 .. 2147483647))))
                     | (_,
                        _,
                        (_, Pi ((Dec _, _), _)),
                        (_,
                         AVar _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Redex _
                         | Root _
                         | Uni _))
                     | (_, _, (_, Pi ((Dec _, _), _)), (_, EClo (_, Dot _)))
                     | (_,
                        _,
                        (_, Pi ((Dec _, _), _)),
                        (_,
                         EClo (_, Shift (~2147483648 .. ~1 | 1 .. 2147483647))))
                     | (_,
                        _,
                        (_, Pi ((Dec _, _), _)),
                        (_, Pi ((ADec _ | BDec _ | NDec _, _), _)))
                     | (_,
                        _,
                        (_, Root _),
                        (_,
                         AVar _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _))
                     | (_, _, (_, Root _), (_, EClo (_, Dot _)))
                     | (_,
                        _,
                        (_, Root _),
                        (_,
                         EClo (_, Shift (~2147483648 .. ~1 | 1 .. 2147483647))))
    in: fun assignExp (fasub, (ctxTotal a  ...   (D1, U1), (D2, U)))
Warning: src/opsem/subtree-inst.fun 442.8-448.8.
  Function is not exhaustive.
    missing pattern: (_, _, (_, App _), (_, Nil | SClo _))
                     | (_, _, (_, Nil), (_, App _ | SClo _))
                     | (_, _, (_, SClo _), _)
    in: and assignSpine (fasub, (ctxTotal  ...  , S1), (D2, S2)) end
Warning: src/opsem/subtree-inst.fun 465.8-473.8.
  Function is not exhaustive.
    missing pattern: (_, _, (_, Decl (_, ADec _ | BDec _ | NDec _)), _)
                     | (_,
                        _,
                        (_, Decl (_, Dec _)),
                        (_, Decl (_, ADec _ | BDec _ | NDec _)))
                     | (_, _, (_, Decl (_, Dec _)), (_, Null))
                     | (_, _, (_, Null), (_, Decl _))
    in: fun assignCtx (fasub, ctxTotal, (  ...  , G1), (D2, G2)) end
Warning: src/opsem/subtree-inst.fun 611.9-613.44.
  Function is not exhaustive.
    missing pattern: (Axp _ | Block _, _)
                     | (Exp _, Axp _ | Block _ | Idx _ | Undef)
                     | (Idx _, Axp _ | Block _ | Exp _ | Undef)
                     | (Undef, Axp _ | Block _ | Exp _ | Idx _)
    in: and equalFront (I.Idx n, I.Idx n'  ...  def, I.Undef) = true
Warning: src/opsem/subtree-inst.fun 653.12-665.7.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Uni _)
                     | (_,
                        _,
                        _,
                        Root (FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _,
                              _))
    in: fun collectExp (d, D', D, I.Lam (  ...  p (d, D', D, U') end
Warning: src/opsem/subtree-inst.fun 666.12-667.95.
  Function is not exhaustive.
    missing pattern: (_, _, _, SClo _)
    in: and collectSpine (d, D', D, I.Nil  ...  Spine (d, D', D, S))
Warning: src/opsem/subtree-inst.fun 688.8-713.5.
  Case is not exhaustive.
    missing pattern: SOME (Axp _ | Block _ | Idx _ | Undef)
    in: case RBSet.lookup asub d of NONE   ...   d + 1, evarsl)) end
Warning: src/opsem/subtree-inst.fun 689.5-706.62.
  Case is not exhaustive.
    missing pattern: SOME (_, BDec _ | NDec _)
    in: case member (d, D) of NONE => (In  ...  ld never happen\n"))
Warning: src/opsem/subtree-inst.fun 697.13-697.40.
  Declaration is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: val E as I.EVar (r, _, _, cnstr) = I.newEVar (I.Null, V)
Warning: src/opsem/subtree-inst.fun 718.8-718.50.
  Function is not exhaustive.
    missing pattern: (_,
                      Const _
                      | Def _
                      | FVar _
                      | FgnConst _
                      | NSDef _
                      | Proj _
                      | Skonst _,
                      _)
    in: fun isExists (d, I.BVar k, D) = (member (k - d, D))
Warning: src/opsem/subtree-inst.fun 723.12-824.48.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Uni _,
                      _,
                      _)
                     | (_,
                        Root (BVar _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (_,
                        Root (Const _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (_,
                        Root (Def _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (_,
                        Root (FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _,
                              _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
    in: fun instRoot (depth, T as I.Root   ...  ases impossible\n"))
Warning: src/opsem/subtree-inst.fun 892.12-968.48.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Uni _,
                      _)
                     | (_,
                        Root (BVar _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _)
                     | (_,
                        Root (Const _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _)
                     | (_,
                        Root (Def _, _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _)
                     | (_,
                        Root (FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _,
                              _),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _)
    in: fun genRoot (d, T as I.Root (H1 a  ...  ), (rho_u, (d, U))))
Warning: src/opsem/subtree-inst.fun 1097.9-1098.104.
  Case is not exhaustive.
    missing pattern: SplitSub _ | VariantSub _
    in: case instChild (! x, (Dsq, sub_u)  ...  o2, asub) :: IList))
Warning: src/opsem/subtree-inst.fun 1400.9-1405.75.
  Case is not exhaustive.
    missing pattern: InstanceSub _
    in: case compChild (! x, (Dsq, sub_u)  ...  d) :: VList, SList))
Warning: src/opsem/subtree-inst.fun 1443.6-1445.58.
  Function is not exhaustive.
    missing pattern: (App _, (Nil | SClo _, _))
                     | (Nil, (App _ | SClo _, _))
                     | (SClo _, _)
    in: and eqSpine (I.Nil, (I.Nil, rho1)  ...  ne (S2, (S, rho1))))
Warning: src/opsem/subtree-inst.fun 1730.6-1734.37.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun instanceCtx' ((G, V), I.Null,  ...  ((G, V), G', n + 1))
Warning: src/opsem/tabled.fun 79.8-80.32.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const a) = a | cidFromHead (I.Def a) = a
Warning: src/opsem/tabled.fun 124.9-130.9.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun ctxToEVarSub (I.Null, s) = s   ...  oEVarSub (G, s)) end
Warning: src/opsem/tabled.fun 132.9-145.9.
  Function is not exhaustive.
    missing pattern: (Decl (_, BDec _ | NDec _), _)
    in: fun ctxToAVarSub (I.Null, s) = s   ...  oAVarSub (G, s)) end
Warning: src/opsem/tabled.fun 189.9-189.17.
  Declaration is not exhaustive.
    missing pattern: All _ | Impl _
    in: val C.Atom p = g
Warning: src/opsem/tabled.fun 476.8-509.10.
  Function is not exhaustive.
    missing pattern: (_, (Axists (ADec (NONE, _), _), _), _, _)
                     | (_, (Axists (BDec _ | Dec _ | NDec _, _), _), _, _)
                     | (_, (Exists (ADec _ | BDec _ | NDec _, _), _), _, _)
                     | (_, (In _, _), _, _)
    in: and rSolve (ps', (C.Eq Q, s), C.D  ...  )), s)), dp, sc) end
Warning: src/opsem/tabled.fun 549.7-608.9.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
    in: and matchAtom (ps' as (I.Root (Ha  ...  g (G, dPool, 1)) end
Warning: src/opsem/tabled.fun 555.6-566.8.
  Function is not exhaustive.
    missing pattern: :: (BVar _
                         | Def _
                         | FVar _
                         | FgnConst _
                         | NSDef _
                         | Proj _
                         | Skonst _,
                         _)
    in: fun matchSig nil = () | matchSig   ...  ; matchSig sgn') end
Warning: src/opsem/tabled.fun 558.12-558.23.
  Declaration is not exhaustive.
    missing pattern: Void
    in: val C.SClause r = C.sProgLookup (cidFromHead Hc)
Warning: src/opsem/tabled.fun 573.6-589.34.
  Function is not exhaustive.
    missing pattern: (Decl _, Decl (_, BDec _ | PDec), _)
                     | (Decl _, Null, _)
                     | (Null, Decl _, _)
    in: fun matchDProg (I.Null, I.Null, _  ...   (G, dPool', k + 1))
Warning: src/opsem/ptrecon.fun 43.9-44.33.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const a) = a | cidFromHead (I.Def a) = a
Warning: src/opsem/ptrecon.fun 131.7-173.9.
  Function is not exhaustive.
    missing pattern: (_, _, (Axists (ADec (NONE, _), _), _), _, _)
                     | (_, _, (Axists (BDec _ | Dec _ | NDec _, _), _), _, _)
                     | (_, _, (Exists (ADec _ | BDec _ | NDec _, _), _), _, _)
                     | (_, _, (In _, _), _, _)
    in: and rSolve (O, ps', (C.Eq Q, s),   ...  )), s)), dp, sc) end
Warning: src/opsem/ptrecon.fun 209.7-262.9.
  Function is not exhaustive.
    missing pattern: (:: _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
                     | (nil, _, _, _)
    in: and matchAtom (Ho :: O, ps' as (I  ...  U => (sc (O, U)) end
Warning: src/opsem/ptrecon.fun 215.6-237.25.
  Function is not exhaustive.
    missing pattern: (:: (BVar _
                          | FVar _
                          | FgnConst _
                          | NSDef _
                          | Proj _
                          | Skonst _,
                          _),
                      _)
    in: fun matchSig (nil, k) = (raise (E  ...   matchSig (sgn', k))
Warning: src/opsem/ptrecon.fun 231.7-231.18.
  Declaration is not exhaustive.
    missing pattern: Void
    in: val C.SClause r = C.sProgLookup (cidFromHead Hc)
Warning: src/opsem/ptrecon.fun 221.7-221.18.
  Declaration is not exhaustive.
    missing pattern: Void
    in: val C.SClause r = C.sProgLookup (cidFromHead Hc)
Warning: src/opsem/trace.fun 25.9-27.55.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _)
    in: fun headToString (G, I.Const c) =  ...   (N.bvarName (G, k))
Warning: src/opsem/trace.fun 213.9-246.6.
  Function is not exhaustive.
    missing pattern: (_, CommitGoal (NONE, _, _))
                     | (_, DischargeHyp (_, ADec _ | BDec _ | NDec _))
                     | (_, DischargeHyp (_, Dec (NONE, _)))
                     | (_, DischargeParm (_, ADec _ | BDec _ | NDec _))
                     | (_, DischargeParm (_, Dec (NONE, _)))
                     | (_, FailGoal (NONE, _, _))
                     | (_, RetryGoal (NONE, _, _))
                     | (_, SolveGoal (NONE, _, _))
                     | (_, SucceedGoal (NONE, _, _))
    in: fun eventToString (G, IntroHyp (_  ...  , Hc) ^ ":\n" ^ msg)
Warning: src/opsem/trace.fun 250.9-252.45.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _)
    in: fun monitorHead (cids, I.Const c)  ...  s, I.BVar k) = false
Warning: src/opsem/absmachine-sbt.fun 58.7-59.31.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const a) = a | cidFromHead (I.Def a) = a
Warning: src/opsem/absmachine-sbt.fun 81.7-88.80.
  Function is not exhaustive.
    missing pattern: Dot (Axp _ | Block _, _)
    in: fun printSub (IntSyn.Shift n) = (  ...  ef . " ; printSub s)
Warning: src/opsem/absmachine-sbt.fun 92.9-105.9.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, BDec _ | NDec _), _)
    in: fun ctxToEVarSub (Gglobal, I.Null  ...  (Gglobal, G, s)) end
Warning: src/opsem/absmachine-sbt.fun 147.7-180.9.
  Function is not exhaustive.
    missing pattern: (_, (Axists (BDec _ | Dec _ | NDec _, _), _), _, _)
                     | (_, (Exists (ADec _ | BDec _ | NDec _, _), _), _, _)
                     | (_, (In _, _), _, _)
    in: and rSolve (ps', (C.Eq Q, s), C.D  ...  )), s)), dp, sc) end
Warning: src/opsem/absmachine-sbt.fun 225.7-241.9.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
    in: and matchSig (ps' as (I.Root (Ha,  ...  cidFromHead Ha)) end
Warning: src/opsem/absmachine-sbt.fun 227.6-238.6.
  Function is not exhaustive.
    missing pattern: :: (BVar _
                         | Def _
                         | FVar _
                         | FgnConst _
                         | NSDef _
                         | Proj _
                         | Skonst _,
                         _)
    in: fun mSig nil = () | mSig ((Hc as   ...  ))) ; mSig sgn') end
Warning: src/opsem/absmachine-sbt.fun 230.10-230.21.
  Declaration is not exhaustive.
    missing pattern: Void
    in: val C.SClause r = C.sProgLookup (cidFromHead Hc)
Warning: src/opsem/absmachine-sbt.fun 243.8-246.75.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
    in: and matchIndexSig (ps' as (I.Root  ...  auseName) :: S))))))
Warning: src/opsem/absmachine-sbt.fun 262.7-302.9.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
    in: and matchAtom (ps' as (I.Root (Ha  ...  Prog (dPool, 1)) end
Warning: src/opsem/absmachine-sbt.fun 269.6-283.31.
  Function is not exhaustive.
    missing pattern: (Decl (_, BDec _ | PDec), _)
    in: fun matchDProg (I.Null, _) = ((!   ...  rog (dPool', k + 1))
Warning: src/opsem/tmachine.fun 58.9-59.33.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const a) = a | cidFromHead (I.Def a) = a
Warning: src/opsem/tmachine.fun 73.9-74.52.
  Function is not exhaustive.
    missing pattern: SClo _
    in: fun subgoalNum I.Nil = 1 | subgoa  ...  = (1 + subgoalNum S)
Warning: src/opsem/tmachine.fun 107.6-107.27.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | Dec (NONE, _) | NDec _
    in: val D' as I.Dec (SOME x, V) = N.d  ...  (G, I.decSub (D, s))
Warning: src/opsem/tmachine.fun 98.6-98.27.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | Dec (NONE, _) | NDec _
    in: val D' as I.Dec (SOME x, _) = N.d  ...  ONE, I.EClo (A, s)))
Warning: src/opsem/tmachine.fun 130.7-171.9.
  Function is not exhaustive.
    missing pattern: (_, (Axists (BDec _ | Dec _ | NDec _, _), _), _, _, _)
                     | (_, (Exists (ADec _ | BDec _ | NDec _, _), _), _, _, _)
                     | (_, (In _, _), _, _, _)
    in: and rSolve (ps', (C.Eq Q, s), C.D  ...  ), dp, HcHa, sc) end
Warning: src/opsem/tmachine.fun 215.7-341.9.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
    in: and matchAtom (ps' as (I.Root (Ha  ...  Prog (dPool, 1)) end
Warning: src/opsem/tmachine.fun 235.12-235.23.
  Declaration is not exhaustive.
    missing pattern: Void
    in: val C.SClause r = C.sProgLookup (cidFromHead Hc)
Warning: src/opsem/tmachine.fun 262.12-262.23.
  Declaration is not exhaustive.
    missing pattern: Void
    in: val C.SClause r = C.sProgLookup (cidFromHead Hc)
Warning: src/opsem/tmachine.fun 285.6-323.31.
  Function is not exhaustive.
    missing pattern: (Decl (_, BDec _ | PDec), _)
    in: fun matchDProg (I.Null, _) = (if   ...  rog (dPool', k + 1))
Warning: src/m2/metasyn.fun 48.9-56.4.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _,
                       _))
                     | (_, (Pi ((ADec _ | BDec _ | NDec _, _), _), _))
                     | (_, (Uni Kind, _))
    in: and createEVarSpineW (G, Vs as (I  ...  .App (X, S), Vs) end
Warning: src/m2/metasyn.fun 68.18-69.31.
  Case is not exhaustive.
    missing pattern: BVar _ | Def _ | FVar _ | FgnConst _ | NSDef _ | Proj _
    in: case H of I.Const cid => cid | I.Skonst cid => cid
Warning: src/m2/metasyn.fun 85.6-85.17.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.ctxDec (G, k)
Warning: src/m2/meta-abstract.fun 132.9-134.56.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647, Null, _)
    in: fun raiseType (0, G, V) = V | rai  ...   ((D, I.Maybe), V)))
Warning: src/m2/meta-abstract.fun 138.9-145.4.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      Decl (_, ADec _ | BDec _ | NDec _),
                      _)
                     | (~2147483648 .. ~1 | 1 .. 2147483647, Null, _)
    in: fun weaken (0, G, a) = I.id | wea  ...  mp (w', I.shift) end
Warning: src/m2/meta-abstract.fun 156.8-158.52.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _)
    in: fun countPi' (I.Root _, n) = n |   ...   = (countPi' (V, n))
Warning: src/m2/meta-abstract.fun 185.9-238.92.
  Function is not exhaustive.
    missing pattern: (_, _, (AVar _ | EClo _ | NVar _ | Redex _, _), _, _)
    in: and collectExpW (lG0, G, (I.Uni _  ...  , Adepth'))) Adepth)
Warning: src/m2/meta-abstract.fun 214.8-236.10.
  Case is not exhaustive.
    missing pattern: SOME BV
    in: case atxLookup (A, r) of NONE =>   ...  s, mode, Adepth) end
Warning: src/m2/meta-abstract.fun 224.7-224.32.
  Declaration is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: val X' as I.EVar (r', _, _, _) =   ...  GX', I.EClo (V, iw))
Warning: src/m2/meta-abstract.fun 201.7-201.18.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.ctxDec (G, k)
Warning: src/m2/meta-abstract.fun 263.9-277.53.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      ~2147483648 .. ~1 | 1 .. 2147483647,
                      Dot (Axp _ | Block _ | Undef, _),
                      _,
                      _)
    in: and collectSub (_, _, 0, _, _, Ad  ...  id), mode, Adepth)))
Warning: src/m2/meta-abstract.fun 325.9-326.47.
  Function is not exhaustive.
    missing pattern: (_, _, (ADec _ | BDec _ | NDec _, _), _, _)
    in: and collectDec (lG0, G, (I.Dec (x  ...  , s), mode, Adepth))
Warning: src/m2/meta-abstract.fun 349.9-367.90.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        _,
                        _,
                        _,
                        (Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
    in: fun collectModeW (lG0, G, modeIn,  ...  of the meta logic"))
Warning: src/m2/meta-abstract.fun 353.10-361.17.
  Function is not exhaustive.
    missing pattern: (((App _, _), Mnil), _) | (((Nil, _), Mapp _), _)
    in: fun collectModeW' (((I.Nil, _), M  ...  depth) else Adepth))
Warning: src/m2/meta-abstract.fun 424.9-431.50.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_, _, (Pi ((ADec _ | BDec _ | NDec _, _), _), _), _)
                     | (_, _, (Pi ((Dec _, Maybe | Meta), _), _), _)
    in: and collectDTopW (lG0, G, (I.Pi (  ...   M.Top, Vs, Adepth))
Warning: src/m2/meta-abstract.fun 461.9-464.50.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _)
    in: and collectDBotW (lG0, G, (I.Pi (  ...   M.Bot, Vs, Adepth))
Warning: src/m2/meta-abstract.fun 505.6-509.29.
  Function is not exhaustive.
    missing pattern: (Null, _, _)
    in: fun lookupEV' (I.Decl (A, EV (r,   ...  pEV' (A, r', k + 1))
Warning: src/m2/meta-abstract.fun 528.6-532.30.
  Function is not exhaustive.
    missing pattern: (Null, _, _)
    in: fun lookupBV' (I.Decl (A, EV (r,   ...  ' (A, i - 1, k + 1))
Warning: src/m2/meta-abstract.fun 549.9-579.80.
  Function is not exhaustive.
    missing pattern: (_, _, _, (AVar _ | EClo _ | NVar _ | Redex _, _))
    in: fun abstractExpW (A, G, depth, (V  ...  G, depth, (U, s)))))
Warning: src/m2/meta-abstract.fun 616.9-638.57.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        (Pi _, _),
                        Dot (Axp _ | Block _ | Undef, _),
                        _,
                        _)
    in: and abstractSubW (A, G, depth, (I  ...  th, (U, I.id)), S)))
Warning: src/m2/meta-abstract.fun 622.8-622.18.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (x, V) = I.ctxDec (G, k)
Warning: src/m2/meta-abstract.fun 651.9-652.57.
  Function is not exhaustive.
    missing pattern: (_, _, _, (ADec _ | BDec _ | NDec _, _))
    in: and abstractDec (A, G, depth, (I.  ...   G, depth, (V, s))))
Warning: src/m2/meta-abstract.fun 664.9-689.6.
  Function is not exhaustive.
    missing pattern: (Decl (_, BV), Prefix (Decl _, Decl _, Null))
                     | (Decl (_, BV), Prefix (Decl _, Null, _))
                     | (Decl (_, BV), Prefix (Null, _, _))
                     | (Null, Prefix (Decl _, _, _))
                     | (Null, Prefix (Null, Decl _, _))
                     | (Null, Prefix (Null, Null, Decl _))
    in: fun abstractCtx (I.Null, GM as M.  ...  Bot => 0)), lG') end
Warning: src/m2/meta-abstract.fun 670.10-670.21.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = D'
Warning: src/m2/meta-print.fun 31.8-42.38.
  Function is not exhaustive.
    missing pattern: (Prefix (Decl (Decl _, _), Decl _, Null), _)
                     | (Prefix (Decl (Decl _, _), Null, _), _)
                     | (Prefix (Decl (Null, _), Decl (Decl _, _), Null), _)
                     | (Prefix (Decl (Null, _), Decl (Null, _), Null), _)
                     | (Prefix (Decl (Null, _), Null, _), _)
                     | (Prefix (Null, Decl _, _), _)
                     | (Prefix (Null, Null, Decl _), _)
    in: fun fmtPrefix' (M.Prefix (I.Null,  ...  tDec (G, D)] @ Fmt))
Warning: src/m2/search.fun 48.7-50.34.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _
    in: fun cidFromHead (I.Const a) = a |  ...  ead (I.Skonst a) = a
Warning: src/m2/search.fun 99.7-131.4.
  Function is not exhaustive.
    missing pattern: (_, (Assign _ | Axists _ | In _, _), _, _, _)
                     | (_, (Exists (ADec _ | BDec _ | NDec _, _), _), _, _, _)
    in: and rSolve (ps', (C.Eq Q, s), C.D  ...  , acck')), acck) end
Warning: src/m2/search.fun 141.7-141.50.
  Function is not exhaustive.
    missing pattern: ((UnifyEq _, _), _, _, _)
    in: and aSolve ((C.Trivial, s), dp, sc, acc) = (sc ())
Warning: src/m2/search.fun 159.7-196.9.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _,
                      _)
    in: and matchAtom (ps' as (I.Root (Ha  ...   (dPool, 1, acc) end
Warning: src/m2/search.fun 167.11-167.22.
  Declaration is not exhaustive.
    missing pattern: Void
    in: val C.SClause r = C.sProgLookup (cidFromHead Hc)
Warning: src/m2/search.fun 180.6-193.37.
  Function is not exhaustive.
    missing pattern: (Decl (_, BDec _ | PDec), _, _)
    in: fun matchDProg (I.Null, _, acc')   ...  Pool', n + 1, acc'))
Warning: src/m2/search.fun 207.9-216.74.
  Function is not exhaustive.
    missing pattern: (_, (AVar _ | EClo _ | NVar _ | Redex _, _))
    in: and occursInExpW (r, (I.Uni _, _)  ...  r, (U, s))))) false)
Warning: src/m2/search.fun 224.9-224.68.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _))
    in: and occursInDec (r, (I.Dec (_, V)  ...  rsInExp (r, (V, s)))
Warning: src/m2/search.fun 232.9-234.69.
  Function is not exhaustive.
    missing pattern: (_,
                      :: (AVar _
                          | EClo _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Pi _
                          | Redex _
                          | Root _
                          | Uni _,
                          _))
    in: fun nonIndex (_, nil) = true | no  ...   (nonIndex (r, GE)))
Warning: src/m2/search.fun 248.9-252.32.
  Function is not exhaustive.
    missing pattern: (:: (AVar _
                          | EClo _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Pi _
                          | Redex _
                          | Root _
                          | Uni _,
                          _),
                      _,
                      _)
    in: fun selectEVar (nil, _, acc) = ac  ...  tEVar (GE, Vs, acc))
Warning: src/m2/search.fun 265.9-274.14.
  Function is not exhaustive.
    missing pattern: (_,
                      (:: (AVar _
                           | EClo _
                           | FgnExp _
                           | Lam _
                           | NVar _
                           | Pi _
                           | Redex _
                           | Root _
                           | Uni _,
                           _),
                       _))
    in: fun searchEx' max (nil, sc) = [sc  ...  , sc)), (nil, max)))
Warning: src/m2/search.fun 323.9-329.30.
  Function is not exhaustive.
    missing pattern: (:: (AVar _
                          | EClo _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Pi _
                          | Redex _
                          | Root _
                          | Uni _,
                          _),
                      _,
                      _)
    in: fun searchAll' (nil, acc, sc) = (  ...  etaGlobal.maxFill)))
Warning: src/m2/lemma.fun 26.9-41.4.
  Function is not exhaustive.
    missing pattern: Prefix ((Decl (_, ADec _ | BDec _ | NDec _),
                              Decl (_, Bot),
                              _)
                             | (Decl (_, ADec _ | BDec _ | NDec _),
                                Decl (_, Top),
                                Null)
                             | (Decl (_, ADec _ | BDec _ | NDec _), Null, _)
                             | (Decl (_, Dec _), Decl (_, Bot), Null)
                             | (Decl (_, Dec _), Decl (_, Top), Null)
                             | (Decl (_, Dec _), Null, _)
                             | (Null, Decl _, _)
                             | (Null, Null, Decl _))
    in: fun createEVars (M.Prefix (I.Null  ...  t (I.Exp X, s')) end
Warning: src/m2/splitting.fun 63.9-75.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      :: (BVar _
                          | Def _
                          | FVar _
                          | FgnConst _
                          | NSDef _
                          | Proj _
                          | Skonst _,
                          _),
                      _,
                      _)
    in: fun constCases (G, Vs, nil, abstr  ...  ctive :: ops)))) end
Warning: src/m2/splitting.fun 109.9-118.8.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        (Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
    in: fun lowerSplitDest (G, (V as I.Ro  ...  I.Lam (D', U)))) end
Warning: src/m2/splitting.fun 129.9-132.36.
  Function is not exhaustive.
    missing pattern: (Prefix _, (ADec _ | BDec _ | NDec _, _), _)
    in: fun split (M.Prefix (G, M, B), (D  ...  ot (I.Exp U', s)))))
Warning: src/m2/splitting.fun 141.9-146.93.
  Function is not exhaustive.
    missing pattern: (_, AVar _ | EClo _ | EVar _ | NVar _ | Redex _)
    in: fun occursInExp (k, I.Uni _) = fa  ...  (U, I.id))))) false)
Warning: src/m2/splitting.fun 149.9-152.43.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | FgnConst _ | NSDef _ | Proj _)
    in: and occursInCon (k, I.BVar k') =   ...   I.Skonst _) = false
Warning: src/m2/splitting.fun 155.9-156.88.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and occursInSpine (_, I.Nil) = fa  ...  cursInSpine (k, S)))
Warning: src/m2/splitting.fun 159.9-159.58.
  Function is not exhaustive.
    missing pattern: (_, ADec _ | BDec _ | NDec _)
    in: and occursInDec (k, I.Dec (_, V)) = (occursInExp (k, V))
Warning: src/m2/splitting.fun 175.9-177.55.
  Function is not exhaustive.
    missing pattern: (Null, _)
    in: fun checkVar (I.Decl (M, M.Top),   ...  checkVar (M, k - 1))
Warning: src/m2/splitting.fun 179.9-187.20.
  Function is not exhaustive.
    missing pattern: (_, AVar _ | EClo _ | EVar _ | FgnExp _ | NVar _ | Redex _)
    in: fun checkExp (M, I.Uni _) = true   ...   (checkSpine (M, S))
Warning: src/m2/splitting.fun 189.9-191.51.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and checkSpine (M, I.Nil) = true   ...  (checkSpine (M, S)))
Warning: src/m2/splitting.fun 193.9-193.52.
  Function is not exhaustive.
    missing pattern: (_, ADec _ | BDec _ | NDec _)
    in: and checkDec (M, I.Dec (_, V)) = (checkExp (M, V))
Warning: src/m2/splitting.fun 226.9-237.39.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _)
    in: fun inheritBelow (b', k', I.Lam (  ...   (b', k', S', Bdd'))
Warning: src/m2/splitting.fun 238.9-240.73.
  Function is not exhaustive.
    missing pattern: (_, _, SClo _, _)
    in: and inheritBelowSpine (b', k', I.  ...  (b', k', U', Bdd')))
Warning: src/m2/splitting.fun 241.9-242.41.
  Function is not exhaustive.
    missing pattern: (_, _, ADec _ | BDec _ | NDec _, _)
    in: and inheritBelowDec (b', k', I.De  ...   (b', k', V', Bdd'))
Warning: src/m2/splitting.fun 245.9-254.25.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _)
    in: fun skip (k, I.Lam (D, U), Bdd')   ...  pSpine (k, S, Bdd'))
Warning: src/m2/splitting.fun 255.9-257.45.
  Function is not exhaustive.
    missing pattern: (_, SClo _, _)
    in: and skipSpine (k, I.Nil, Bdd') =   ...   skip (k, U, Bdd')))
Warning: src/m2/splitting.fun 258.9-259.27.
  Function is not exhaustive.
    missing pattern: (_, ADec _ | BDec _ | NDec _, _)
    in: and skipDec (k, I.Dec (x, V), Bdd') = (skip (k, V, Bdd'))
Warning: src/m2/splitting.fun 262.9-285.39.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _,
                      _,
                      _)
                     | (_,
                        _,
                        Lam _,
                        _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)
                     | (_,
                        _,
                        Pi _,
                        _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)
                     | (_,
                        _,
                        Root (Const _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
    in: fun inheritExp (B, k, I.Lam (D, U  ...  k, S, k', S', Bdd'))
Warning: src/m2/splitting.fun 279.8-279.22.
  Declaration is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Uni _
    in: val I.Root (C', S') = V'
Warning: src/m2/splitting.fun 298.9-300.76.
  Function is not exhaustive.
    missing pattern: (_, _, App _, _, Nil | SClo _, _)
                     | (_, _, Nil, _, App _ | SClo _, _)
                     | (_, _, SClo _, _, _, _)
    in: and inheritSpine (B, k, I.Nil, k'  ...  , U, k', U', Bdd')))
Warning: src/m2/splitting.fun 302.9-303.44.
  Function is not exhaustive.
    missing pattern: (_, _, ADec _ | BDec _ | NDec _, _, _, _)
                     | (_, _, Dec _, _, ADec _ | BDec _ | NDec _, _)
    in: and inheritDec (B, k, I.Dec (_, V  ...  k, V, k', V', Bdd'))
Warning: src/m2/splitting.fun 305.9-317.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _,
                      _,
                      _)
                     | (_, _, Pi ((ADec _ | BDec _ | NDec _, _), _), _, _, _)
                     | (_, _, Pi ((Dec _, Maybe | Meta), _), _, _, _)
                     | (_,
                        _,
                        Pi ((Dec _, No), _),
                        _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)
                     | (_,
                        _,
                        Pi ((Dec _, No), _),
                        _,
                        Pi ((ADec _ | BDec _ | NDec _, _), _),
                        _)
                     | (_,
                        _,
                        Pi ((Dec _, No), _),
                        _,
                        Pi ((Dec _, Maybe | Meta), _),
                        _)
                     | (_,
                        _,
                        Root (BVar _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _,
                        _,
                        _)
                     | (_,
                        _,
                        Root (Const _, _),
                        _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (_,
                        _,
                        Root (Const _, _),
                        _,
                        Root (BVar _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
    in: fun inheritDTop (B, k, I.Pi ((I.D  ...  S, k', S', Bdd') end
Warning: src/m2/splitting.fun 319.9-330.6.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _,
                      _,
                      _)
                     | (_, _, Pi ((ADec _ | BDec _ | NDec _, _), _), _, _, _)
                     | (_, _, Pi ((Dec _, Maybe | Meta), _), _, _, _)
                     | (_,
                        _,
                        Pi ((Dec _, No), _),
                        _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)
                     | (_,
                        _,
                        Pi ((Dec _, No), _),
                        _,
                        Pi ((ADec _ | BDec _ | NDec _, _), _),
                        _)
                     | (_,
                        _,
                        Pi ((Dec _, No), _),
                        _,
                        Pi ((Dec _, Maybe | Meta), _),
                        _)
                     | (_,
                        _,
                        Root (BVar _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _,
                        _,
                        _)
                     | (_,
                        _,
                        Root (Const _, _),
                        _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (_,
                        _,
                        Root (Const _, _),
                        _,
                        Root (BVar _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
    in: and inheritDBot (B, k, I.Pi ((I.D  ...  S, k', S', Bdd') end
Warning: src/m2/splitting.fun 332.9-340.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Uni _,
                      _,
                      _,
                      _)
                     | (_,
                        _,
                        Root (BVar _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _,
                        _,
                        _)
                     | (_,
                        _,
                        Root (Const _, _),
                        _,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)
                     | (_,
                        _,
                        Root (Const _, _),
                        _,
                        Root (BVar _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _)
    in: and inheritG (B, k, I.Root (I.Con  ...  , k', S', Bdd')) end
Warning: src/m2/splitting.fun 342.9-348.58.
  Function is not exhaustive.
    missing pattern: (_, Mapp _, _, _, App _, _, Nil | SClo _, _)
                     | (_, Mapp _, _, _, Nil | SClo _, _, _, _)
                     | (_, Mnil, _, _, App _ | SClo _, _, _, _)
                     | (_, Mnil, _, _, Nil, _, App _ | SClo _, _)
    in: and inheritSpineMode (mode, ModeS  ...  k, S, k', S', Bdd'))
Warning: src/m2/splitting.fun 360.8-360.18.
  Declaration is not exhaustive.
    missing pattern: (_, ~2147483648 .. ~1 | 1 .. 2147483647, _)
                     | (_, 0, ~2147483648 .. ~1 | 1 .. 2147483647)
    in: val (B'', 0, 0) = inheritDBot (B,  ...  ', (I.Null, d, d')))
Warning: src/m2/splitting.fun 422.9-453.6.
  Function is not exhaustive.
    missing pattern: (Prefix (Decl _, Decl (_, Bot), Null), _, _, _)
                     | (Prefix (Decl _, Decl (_, Top), Null), _, _, _)
                     | (Prefix (Decl _, Null, _), _, _, _)
                     | (Prefix (Null, Decl _, _), _, _, _)
                     | (Prefix (Null, Null, Decl _), _, _, _)
    in: fun expand' (M.Prefix (I.Null, I.  ...   I.dot1 s', ops) end
Warning: src/m2/splitting.fun 431.10-431.24.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (xOpt, V) = D
Warning: src/m2/filling.fun 54.9-67.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _,
                      _)
                     | (_,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        _,
                        _,
                        _)
    in: and operatorsW (G, GE, Vs as (I.R  ...  ll))) :: GO', O) end
Warning: src/m2/filling.fun 81.9-97.4.
  Function is not exhaustive.
    missing pattern: Prefix ((Decl (_, ADec _ | BDec _ | NDec _),
                              Decl (_, Bot),
                              _)
                             | (Decl (_, ADec _ | BDec _ | NDec _),
                                Decl (_, Top),
                                Null)
                             | (Decl (_, ADec _ | BDec _ | NDec _), Null, _)
                             | (Decl (_, Dec _), Decl (_, Bot), Null)
                             | (Decl (_, Dec _), Decl (_, Top), Null)
                             | (Decl (_, Dec _), Null, _)
                             | (Null, Decl _, _)
                             | (Null, Null, Decl _))
    in: fun createEVars (M.Prefix (I.Null  ...   s'), X' :: GE') end
Warning: src/m2/filling.fun 138.8-141.34.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _)
                     | (_, Root _, ~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun toString (G, I.Pi ((I.Dec (_,  ...  l (G, D), V, k - 1))
Warning: src/m2/recursion.fun 92.8-98.73.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. 0 | 2 .. 2147483647,
                      ((App _, _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)))
                     | (~2147483648 .. 0 | 2 .. 2147483647,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)))
                     | (~2147483648 .. 0 | 2 .. 2147483647, ((Nil, _), _))
                     | (1,
                        ((App _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)))
                     | (1,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)))
                     | (1, ((Nil, _), _))
    in: and select'W (1, ((I.App (U', S')  ...   (U', s')), s'')))))
Warning: src/m2/recursion.fun 112.9-129.4.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _
                      | Uni _,
                      _,
                      _,
                      _)
    in: fun set_parameter (G, X as I.EVar  ...  ameter' (k, ops) end
Warning: src/m2/recursion.fun 117.9-117.27.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val D' as I.Dec (_, V') = I.ctxDec (G, k')
Warning: src/m2/recursion.fun 149.9-158.12.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      ((AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _
                        | Uni _,
                        _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)),
                      _,
                      _,
                      _)
                     | (_,
                        _,
                        ((Lam _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Uni _,
                          _)),
                        _,
                        _,
                        _)
    in: and ltinitW (G, k, (Us, Vs as (I.  ...  .shift))), sc, ops))
Warning: src/m2/recursion.fun 182.9-213.11.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      ((AVar _
                        | EClo _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _),
                       _),
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        ((Lam (ADec _ | BDec _ | NDec _, _), _), _),
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((Lam (Dec _, _), _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)),
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((Lam (Dec _, _), _),
                         (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((Root (Def _
                                | FVar _
                                | FgnConst _
                                | NSDef _
                                | Proj _
                                | Skonst _,
                                _),
                          _),
                         _),
                        _,
                        _)
    in: and ltW (G, k, (Us, Vs), ((I.Root  ...  , ops) end else ops)
Warning: src/m2/recursion.fun 187.12-187.24.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V') = I.ctxDec (G, n)
Warning: src/m2/recursion.fun 217.9-227.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      ((App _, _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)),
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        _,
                        _)
    in: and ltSpineW (G, k, (Us, Vs), ((I  ...  2'))), sc, ops') end
Warning: src/m2/recursion.fun 312.9-314.82.
  Function is not exhaustive.
    missing pattern: (_, Arg _, Lex _ | Simul _, _, _)
                     | (_, Lex _, Arg _ | Simul _, _, _)
                     | (_, Simul _, Arg _ | Lex _, _, _)
    in: fun ordlt (G, O.Arg UsVs, O.Arg U  ...  (G, L, L', sc, ops))
Warning: src/m2/recursion.fun 328.9-334.4.
  Function is not exhaustive.
    missing pattern: (_, :: _, nil, _, _) | (_, nil, :: _, _, _)
    in: and ordltLex (G, nil, nil, sc, op  ...  , ops'')), ops') end
Warning: src/m2/recursion.fun 347.9-354.4.
  Function is not exhaustive.
    missing pattern: (_, :: _, nil, _, _) | (_, nil, :: _, _, _)
    in: and ordltSimul (G, nil, nil, sc,   ...  , ops')), ops'') end
Warning: src/m2/recursion.fun 367.9-369.75.
  Function is not exhaustive.
    missing pattern: (_, :: _, nil, _, _) | (_, nil, :: _, _, _)
    in: and ordleSimul (G, nil, nil, sc,   ...  ', sc, ops')), ops))
Warning: src/m2/recursion.fun 383.9-386.78.
  Function is not exhaustive.
    missing pattern: (_, Arg _, Lex _ | Simul _, _, _)
                     | (_, Lex _, Arg _ | Simul _, _, _)
                     | (_, Simul _, Arg _ | Lex _, _, _)
    in: and ordeq (G, O.Arg (Us, Vs), O.A  ...  (G, L, L', sc, ops))
Warning: src/m2/recursion.fun 399.9-401.71.
  Function is not exhaustive.
    missing pattern: (_, :: _, nil, _, _) | (_, nil, :: _, _, _)
    in: and ordeqs (G, nil, nil, sc, ops)  ...  ', sc, ops')), ops))
Warning: src/m2/recursion.fun 430.9-445.4.
  Function is not exhaustive.
    missing pattern: Prefix ((Decl (_, ADec _ | BDec _ | NDec _),
                              Decl (_, Bot),
                              _)
                             | (Decl (_, ADec _ | BDec _ | NDec _),
                                Decl (_, Top),
                                Null)
                             | (Decl (_, ADec _ | BDec _ | NDec _), Null, _)
                             | (Decl (_, Dec _), Decl (_, Bot), Null)
                             | (Decl (_, Dec _), Decl (_, Top), Null)
                             | (Decl (_, Dec _), Null, _)
                             | (Null, Decl _, _)
                             | (Null, Null, Decl _))
    in: fun createEVars (M.Prefix (I.Null  ...  t (I.Exp X, s')) end
Warning: src/m2/recursion.fun 459.9-469.4.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _
                       | Uni _,
                       _))
                     | (_, (Pi ((ADec _ | BDec _ | NDec _, _), _), _))
    in: and selectW (G, (I.Pi ((D as I.De  ...  (V2, I.dot1 s))) end
Warning: src/m2/recursion.fun 463.8-466.25.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Uni _,
                        _)))
    in: and selectW' (G, (Vs1, Vs2 as (I.  ...   (V2', I.dot1 s2))))
Warning: src/m2/recursion.fun 493.8-494.38.
  Declaration is not exhaustive.
    missing pattern: (_,
                      ((AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _),
                       _))
                     | (_,
                        ((Root (BVar _
                                | Def _
                                | FVar _
                                | FgnConst _
                                | NSDef _
                                | Proj _
                                | Skonst _,
                                _),
                          _),
                         _))
                     | (_,
                        ((Root (Const _, _), _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Pi _
                          | Redex _
                          | Uni _,
                          _)))
                     | (_,
                        ((Root (Const _, _), _),
                         (Root (BVar _
                                | Def _
                                | FVar _
                                | FgnConst _
                                | NSDef _
                                | Proj _
                                | Skonst _,
                                _),
                          _)))
    in: val (G'', ((I.Root (I.Const a1, S  ...  select (G', (V, s'))
Warning: src/m2/recursion.fun 517.8-518.66.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _)
    in: fun recursionDepth' (I.Root _, n)  ...  onDepth' (V, n + 1))
Warning: src/m2/recursion.fun 545.9-550.13.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | ((Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
                     | ((Root (Const _, _), _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _))
                     | ((Root (Const _, _), _),
                        (Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _))
    in: and inputConvW ((I.Root (I.Const   ...   I.id))) else false)
Warning: src/m2/recursion.fun 552.9-572.59.
  Function is not exhaustive.
    missing pattern: (Mapp (Marg (Minus1 | Star, _), _),
                      ((App _ | Nil, _), _),
                      ((App _ | Nil, _), _))
                     | (Mapp (Marg (Minus, _), _),
                        ((App _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)),
                        ((App _ | Nil, _), _))
                     | (Mapp (Marg (Minus, _), _),
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        ((App _ | Nil, _), _))
                     | (Mapp (Marg (Minus, _), _),
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((App _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)))
                     | (Mapp (Marg (Minus, _), _),
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)))
                     | (Mapp (Marg (Minus, _), _),
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((Nil, _), _))
                     | (Mapp (Marg (Minus, _), _),
                        ((Nil, _), _),
                        ((App _ | Nil, _), _))
                     | (Mapp (Marg (Plus, _), _),
                        ((App _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)),
                        ((App _ | Nil, _), _))
                     | (Mapp (Marg (Plus, _), _),
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        ((App _ | Nil, _), _))
                     | (Mapp (Marg (Plus, _), _),
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((App _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)))
                     | (Mapp (Marg (Plus, _), _),
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)))
                     | (Mapp (Marg (Plus, _), _),
                        ((App _, _), (Pi ((Dec _, _), _), _)),
                        ((Nil, _), _))
                     | (Mapp (Marg (Plus, _), _),
                        ((Nil, _), _),
                        ((App _ | Nil, _), _))
    in: and inputConvSpine (ModeSyn.Mnil,  ...  o (U2, s2)), t2)))))
Warning: src/m2/recursion.fun 594.8-597.62.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _))
    in: and compExpW (Vs1, (I.Root _, _))  ...  , (V2, I.dot1 s2))))
Warning: src/m2/recursion.fun 599.8-600.34.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _))
    in: and compDec (Vs1, (I.Dec (_, V2),  ...  onv (Vs1, (V2, s2)))
Warning: src/m2/recursion.fun 603.8-604.52.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      _)
    in: and checkW (I.Pi ((D, _), V), s)   ...  t)), (V, I.dot1 s)))
Warning: src/m2/recursion.fun 605.8-606.25.
  Function is not exhaustive.
    missing pattern: ((ADec _ | BDec _ | NDec _, _), _)
    in: and checkDec ((I.Dec (_, V1), s1)  ...  Exp ((V1, s1), Vs2))
Warning: src/m2/recursion.fun 641.9-642.50.
  Function is not exhaustive.
    missing pattern: State ((_,
                             Prefix _,
                             AVar _
                             | EClo _
                             | EVar _
                             | FgnExp _
                             | Lam _
                             | NVar _
                             | Redex _
                             | Root _
                             | Uni _)
                            | (_,
                               Prefix _,
                               Pi ((ADec _ | BDec _ | NDec _, _), _)))
    in: fun menu (S as M.State (name, M.P  ...  xpToString (G', V)))
Warning: src/m2/strategy.fun 96.9-107.9.
  Function is not exhaustive.
    missing pattern: (nil, _)
    in: fun split (S :: givenStates, os a  ...  solvedStates))) end)
Warning: src/m2/strategy.fun 109.9-120.9.
  Function is not exhaustive.
    missing pattern: (nil, _)
    in: and recurse (S :: givenStates, os  ...  venStates, os)) end)
Warning: src/m2/strategy.fun 130.8-130.11.
  Declaration is not exhaustive.
    missing pattern: :: (_, :: _) | nil
    in: val [S'] = (Timers.time Timers.fi  ...  ing.apply) fillingOp
Warning: src/m2/strategy.fun 262.9-273.8.
  Function is not exhaustive.
    missing pattern: (nil, _)
    in: fun split (S :: givenStates, os a  ...  solvedStates))) end)
Warning: src/m2/strategy.fun 281.7-281.10.
  Declaration is not exhaustive.
    missing pattern: :: (_, :: _) | nil
    in: val [S'] = (Timers.time Timers.fi  ...  ing.apply) fillingOp
Warning: src/m2/prover.fun 101.9-112.4.
  Function is not exhaustive.
    missing pattern: (_, nil)
    in: fun init (k, cL as c :: _) = let   ...  LToString cL'))) end
Warning: src/m2/mpi.fun 179.9-190.4.
  Function is not exhaustive.
    missing pattern: (_, nil)
    in: fun init' (k, cL as c :: _) = let  ...  LToString cL'))) end
Warning: src/m2/skolem.fun 65.6-90.53.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _,
                       _),
                      _,
                      _)
                     | (_, (Uni _, Mapp _), _, _)
    in: fun installSkolem' (d, (I.Pi ((D,  ...   M.Mnil), _, _) = ()
Warning: src/m2/skolem.fun 67.12-89.7.
  Case is not exhaustive.
    missing pattern: Mapp (Marg (Minus1 | Star, _), _) | Mnil
    in: case mS of M.Mapp (M.Marg (M.Plus  ...   (H, S)), s), k) end
Warning: src/m2/skolem.fun 73.11-73.23.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V') = D
Warning: src/m2/skolem.fun 108.8-108.39.
  Declaration is not exhaustive.
    missing pattern: AbbrevDef _ | BlockDec _ | BlockDef _ | ConDef _ | SkoDec _
    in: val I.ConDec (name, _, imp, _, V, L) = I.sgnLookup a
Warning: src/m2/skolem.fun 109.8-109.14.
  Declaration is not exhaustive.
    missing pattern: NONE
    in: val SOME mS = ModeTable.modeLookup a
Warning: src/modules/modsyn.fun 56.13-60.69.
  Function is not exhaustive.
    missing pattern: AVar _ | EClo _ | EVar _ | NVar _ | Redex _
    in: fun trExp (Uni L) = (Uni L) | trE  ...  ap.apply csfe trExp)
Warning: src/modules/modsyn.fun 62.13-62.55.
  Function is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: and trDec (Dec (name, V)) = (Dec (name, trExp V))
Warning: src/modules/modsyn.fun 64.13-65.59.
  Function is not exhaustive.
    missing pattern: SClo _
    in: and trSpine Nil = Nil | trSpine (  ...  trExp U, trSpine S))
Warning: src/modules/modsyn.fun 67.13-73.55.
  Function is not exhaustive.
    missing pattern: FVar _ | Proj _
    in: and trHead (BVar n) = (BVar n) |   ...  DecConsts f condec))
Warning: src/modules/modsyn.fun 80.20-83.51.
  Case is not exhaustive.
    missing pattern: BlockDec _ | BlockDef _
    in: case IntSyn.sgnLookup cid' of Int  ...  ef _ => (NSDef cid')
Warning: src/modules/modsyn.fun 89.7-98.60.
  Function is not exhaustive.
    missing pattern: (_, BlockDec _ | BlockDef _)
    in: and mapConDecConsts f (IntSyn.Con  ...  apExpConsts f V, L))
Warning: src/modules/modsyn.fun 103.7-110.47.
  Function is not exhaustive.
    missing pattern: (_, BlockDec _ | BlockDef _)
    in: fun mapConDecParent f (IntSyn.Con  ...   f parent, i, V, L))
Warning: src/modules/modsyn.fun 112.7-116.55.
  Function is not exhaustive.
    missing pattern: BlockDec _ | BlockDef _ | ConDec _ | ConDef _ | SkoDec _
    in: fun strictify (condec as IntSyn.A  ...  bbrevDef _) = condec
Warning: src/modules/modsyn.fun 120.13-134.48.
  Case is not exhaustive.
    missing pattern: BlockDec _ | BlockDef _
    in: case condec of I.ConDec (name, pa  ...  > (I.AbbrevDef data)
Warning: src/modules/modsyn.fun 261.35-262.61.
  Function is not exhaustive.
    missing pattern: NONE
    in: fn SOME mid' => (if mid = mid' then NONE else SOME mid')
Warning: src/modules/modsyn.fun 323.35-323.38.
  Declaration is not exhaustive.
    missing pattern: nil
    in: val h :: t = l
Warning: src/heuristic/heuristic.sum.fun 15.9-16.33.
  Function is not exhaustive.
    missing pattern: ~2147483648 .. ~1 | 2 .. 2147483647
    in: fun recToString 0 = "non-rec = 2"  ...  String 1 = "rec = 1"
Warning: src/heuristic/heuristic.sum.fun 47.9-50.38.
  Function is not exhaustive.
    missing pattern: {c = _,
                      ind = _,
                      m = _,
                      p = _,
                      r = ~2147483648 .. ~1 | 2 .. 2147483647,
                      sd = _}
    in: fun conv {sd = k1, ind = i, c = c  ...  = m1, r = 2, p = p1}
Warning: src/heuristic/heuristic.sum.fun 66.9-101.6.
  Function is not exhaustive.
    missing pattern: {c = _,
                      ind = NONE,
                      m = _,
                      p = _,
                      r = ~2147483648 .. ~1 | 2 .. 2147483647,
                      sd = _}
                     | {c = _,
                        ind = SOME _,
                        m = _,
                        p = _,
                        r = ~2147483648 .. ~1 | 2 .. 2147483647,
                        sd = _}
    in: fun indexToString {sd = s1, ind =  ...  , p = p1}) ^ ")" end
Warning: src/meta/funsyn.fun 169.6-180.8.
  Function is not exhaustive.
    missing pattern: (Null, _)
    in: fun lfctxLFDec' (I.Decl (Psi', LD  ...  ' (Psi', k' - l) end
Warning: src/meta/funsyn.fun 260.9-266.37.
  Function is not exhaustive.
    missing pattern: (All (Block _, _), _)
    in: fun normalizeFor (All (Prim D, F)  ...  For (True, _) = True
Warning: src/meta/statesyn.fun 57.9-60.73.
  Function is not exhaustive.
    missing pattern: (All _ | And _, _)
    in: fun orderSub (Arg ((U, s1), (V, s  ...  derSub (O, s))) Os))
Warning: src/meta/statesyn.fun 72.9-75.65.
  Function is not exhaustive.
    missing pattern: All _ | And _
    in: fun normalizeOrder (Arg (Us, Vs))  ...   normalizeOrder Os))
Warning: src/meta/statesyn.fun 86.9-88.64.
  Function is not exhaustive.
    missing pattern: (All _ | And _, _)
                     | (Arg _, All _ | And _ | Lex _ | Simul _)
                     | (Lex _, All _ | And _ | Arg _ | Simul _)
                     | (Simul _, All _ | And _ | Arg _ | Lex _)
    in: fun convOrder (Arg (Us1, _), Arg   ...  nvOrders (Os1, Os2))
Warning: src/meta/statesyn.fun 89.9-91.56.
  Function is not exhaustive.
    missing pattern: (:: _, nil) | (nil, :: _)
    in: and convOrders (nil, nil) = true   ...  onvOrders (L1, L2)))
Warning: src/meta/statesyn.fun 105.12-106.28.
  Function is not exhaustive.
    missing pattern: Parameter _
    in: fun decrease (Lemma Sp) = (Lemma   ...  decrease None = None
Warning: src/meta/statesyn.fun 109.9-109.33.
  Function is not exhaustive.
    missing pattern: RL | RLdone
    in: fun splitDepth (Splits k) = k
Warning: src/meta/statesyn.fun 119.9-120.47.
  Function is not exhaustive.
    missing pattern: (None, _)
    in: fun normalizeTag (T as Parameter   ...  ma K, s) = (Lemma K)
Warning: src/meta/funprint.fun 79.9-108.20.
  Function is not exhaustive.
    missing pattern: (_, (And _, _))
    in: fun formatFor' (G, (F.All (LD, F)  ...   [Fmt.String "True"]
Warning: src/meta/funprint.fun 210.12-216.66.
  Function is not exhaustive.
    missing pattern: (PApp _, _)
    in: fun numberOfSplits' (F.Empty, n)   ...  erOfSplits' (Ds, n))
Warning: src/meta/funprint.fun 235.10-236.63.
  Function is not exhaustive.
    missing pattern: (ADec _ | BDec _ | NDec _, _)
    in: fun nameDec (D as I.Dec (SOME _,   ...  .Dec (SOME name, V))
Warning: src/meta/funprint.fun 238.10-247.5.
  Function is not exhaustive.
    missing pattern: (Null, _, _)
    in: fun namePsi (I.Decl (Psi, F.Prim   ...  ck (label, G'))) end
Warning: src/meta/funprint.fun 264.10-276.50.
  Function is not exhaustive.
    missing pattern: ((Dot (Axp _ | Block _ | Undef, _), _), _)
                     | ((Dot (Exp _, _), Null), _)
                     | ((Dot (Idx _, _), Decl (_, ADec _ | BDec _ | NDec _)), _)
                     | ((Dot (Idx _, _), Null), _)
    in: fun copyNames (I.Shift n, G as I.  ...   I.Null) Psi1 = Psi1
Warning: src/meta/funprint.fun 310.10-318.40.
  Function is not exhaustive.
    missing pattern: Decl ((Decl _, ADec _ | BDec _ | NDec _)
                           | (Decl _, Dec (NONE, _))
                           | (Null, ADec _ | BDec _ | NDec _)
                           | (Null, Dec (NONE, _)))
    in: fun formatCtx' I.Null = nil | for  ...  (merge (G0, G), V)])
Warning: src/meta/funprint.fun 332.10-337.55.
  Function is not exhaustive.
    missing pattern: Case _ | Lam _ | Let _ | Pair _ | Rec _
    in: fun formatTuple' F.Unit = nil | f  ...   :: formatTuple' P')
Warning: src/meta/funprint.fun 372.6-373.31.
  Function is not exhaustive.
    missing pattern: Axp _ | Block _ | Undef
    in: fun frontToExp (I.Idx k) = (I.Roo  ...  tToExp (I.Exp U) = U
Warning: src/meta/funprint.fun 392.6-396.67.
  Function is not exhaustive.
    missing pattern: (_,
                      App _ | Left _ | Lemma _ | New _ | PApp _ | Right _,
                      Dot _,
                      _)
    in: fun formatDecs1 (Psi, F.Split (xx  ...  .Shift (n + 1)), L))
Warning: src/meta/funprint.fun 427.6-471.8.
  Function is not exhaustive.
    missing pattern: (_, _, Empty | PApp _ | Split _, _)
    in: fun formatDecs (index, Psi, Ds as  ...  si1, s1)) in fmt end
Warning: src/meta/funprint.fun 482.6-503.8.
  Function is not exhaustive.
    missing pattern: (_, Case _ | Inx _ | Lam _ | Pair _ | Rec _ | Unit, _)
                     | (_,
                        Let (_,
                             Case (Opts (:: ((_,
                                              _,
                                              Case _
                                              | Inx _
                                              | Lam _
                                              | Pair _
                                              | Rec _
                                              | Unit),
                                             :: _)))),
                        _)
                     | (_, Let (_, Case (Opts (:: ((_, _, Let _), :: _)))), _)
                     | (_, Let (_, Case (Opts nil)), _)
                     | (_,
                        Let (_, Inx _ | Lam _ | Let _ | Pair _ | Rec _ | Unit),
                        _)
    in: fun formatLet (Psi, F.Let (Ds, F.  ...  mt.String "end"] end
Warning: src/meta/funprint.fun 514.6-516.61.
  Function is not exhaustive.
    missing pattern: (_, Case _ | Lam _ | Pair _ | Rec _)
    in: and formatPro3 (Psi, P as F.Unit)  ...  atLet (Psi, P, nil))
Warning: src/meta/funprint.fun 588.6-593.66.
  Function is not exhaustive.
    missing pattern: (_, _, Inx _ | Let _ | Rec _ | Unit)
    in: fun formatPro1 (index, Psi, F.Lam  ...  index + 1, Psi, P2))
Warning: src/meta/funprint.fun 601.6-602.48.
  Function is not exhaustive.
    missing pattern: (_, Case _ | Inx _ | Lam _ | Let _ | Pair _ | Unit)
    in: fun formatPro0 (Psi, F.Rec (DD, P  ...  atPro1 (0, Psi, P)))
Warning: src/meta/weaken.fun 30.9-30.79.
  Function is not exhaustive.
    missing pattern: (ADec _ | BDec _ | NDec _, _)
    in: fun strengthenDec (I.Dec (name, V  ...  rengthenExp (V, s)))
Warning: src/meta/weaken.fun 49.9-50.96.
  Function is not exhaustive.
    missing pattern: (SClo _, _)
    in: fun strengthenSpine (I.Nil, t) =   ...  ngthenSpine (S, t)))
Warning: src/meta/funtypecheck.fun 123.12-123.23.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.ctxDec (G, n')
Warning: src/meta/funtypecheck.fun 132.12-132.23.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.ctxDec (Psi', m')
Warning: src/meta/funtypecheck.fun 157.6-161.65.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _, _)
    in: fun raiseType'' (I.Null, Vn, a) =  ...  p (Vn, I.shift), a))
Warning: src/meta/funtypecheck.fun 162.6-171.8.
  Function is not exhaustive.
    missing pattern: (_, :: (Block _, _))
                     | (_, :: (Prim (ADec _ | BDec _ | NDec _), _))
    in: fun raiseType' (Psi1, nil) = nil   ...  si1, D), Psi1')) end
Warning: src/meta/funtypecheck.fun 371.9-419.4.
  Function is not exhaustive.
    missing pattern: (Decl (_, Block (CtxBlock _)),
                      Dot (Axp _ | Block _ | Undef, _),
                      _)
                     | (Decl (_, Block (CtxBlock _)),
                        Dot (Exp _, _),
                        Decl (_, Block _))
                     | (Decl (_, Block (CtxBlock _)),
                        Dot (Exp _, _),
                        Decl (_, Prim (ADec _ | BDec _ | NDec _)))
                     | (Decl (_, Block (CtxBlock _)), Dot (Exp _, _), Null)
                     | (Decl (_, Block (CtxBlock _)),
                        Dot (Idx _, _),
                        Decl (_, Prim (ADec _ | BDec _ | NDec _)))
                     | (Decl (_, Block (CtxBlock _)), Dot (Idx _, _), Null)
                     | (Decl (_, Prim _), Dot (Axp _ | Block _ | Undef, _), _)
                     | (Decl (_, Prim _), Dot (Exp _, _), Decl (_, Block _))
                     | (Decl (_, Prim _),
                        Dot (Exp _, _),
                        Decl (_, Prim (ADec _ | BDec _ | NDec _)))
                     | (Decl (_, Prim _), Dot (Exp _, _), Null)
                     | (Decl (_, Prim _),
                        Dot (Idx _, _),
                        Decl (_, Prim (ADec _ | BDec _ | NDec _)))
                     | (Decl (_, Prim _), Dot (Idx _, _), Null)
                     | (Null, Dot (Axp _ | Block _ | Undef, _), _)
                     | (Null, Dot (Exp _, _), Decl (_, Block _))
                     | (Null,
                        Dot (Exp _, _),
                        Decl (_, Prim (ADec _ | BDec _ | NDec _)))
                     | (Null, Dot (Exp _, _), Null)
                     | (Null,
                        Dot (Idx _, _),
                        Decl (_, Prim (ADec _ | BDec _ | NDec _)))
                     | (Null, Dot (Idx _, _), Null)
    in: and checkSub (I.Null, I.Shift 0,   ...  , s, G, k), Psi) end
Warning: src/meta/funtypecheck.fun 403.8-403.41.
  Declaration is not exhaustive.
    missing pattern: (Prim _, _)
    in: val (F.Block (F.CtxBlock (l2, G')  ...  lfctxLFDec (Psi', k)
Warning: src/meta/funtypecheck.fun 409.8-416.62.
  Function is not exhaustive.
    missing pattern: ((Decl (_, ADec _ | BDec _ | NDec _), _), _, _, _)
                     | ((Decl (_, Dec _), _),
                        Dot (Axp _ | Block _ | Exp _ | Undef, _),
                        _,
                        _)
                     | ((Decl (_, Dec _), _),
                        Dot (Idx _, _),
                        Decl (_, ADec _ | BDec _ | NDec _),
                        _)
                     | ((Decl (_, Dec _), _), Dot (Idx _, _), Null, _)
                     | ((Decl (_, Dec _), _), Shift _, _, _)
                     | ((Null, _), _, Decl _, _)
    in: fun checkSub' ((I.Null, w1), s1,   ...  ment out of order"))
Warning: src/meta/funtypecheck.fun 387.8-387.20.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V1) = I.ctxDec (G', k)
Warning: src/meta/funtypecheck.fun 461.9-466.17.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _)
                     | (Decl (_, Dec _), Null)
                     | (Null, Decl _)
    in: fun checkTags (I.Null, I.Null) =   ...  a _ => () | _ => ())
Warning: src/meta/relfun.fun 99.10-103.23.
  Function is not exhaustive.
    missing pattern: (Mapp (Marg (Minus1 | Star, _), _), _)
    in: fun shiftPlus' (M.Mnil, n) = n |   ...  shiftPlus' (mS', n))
Warning: src/meta/relfun.fun 134.9-139.94.
  Function is not exhaustive.
    missing pattern: (_, AVar _ | EClo _ | EVar _ | NVar _ | Redex _)
    in: fun occursInExpN (k, I.Uni _) = f  ...  (U, I.id))))) false)
Warning: src/meta/relfun.fun 143.9-146.46.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | NSDef _ | Proj _ | Skonst _)
    in: and occursInHead (k, I.BVar k') =  ...  .FgnConst _) = false
Warning: src/meta/relfun.fun 149.9-150.89.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and occursInSpine (_, I.Nil) = fa  ...  cursInSpine (k, S)))
Warning: src/meta/relfun.fun 153.9-153.59.
  Function is not exhaustive.
    missing pattern: (_, ADec _ | BDec _ | NDec _)
    in: and occursInDec (k, I.Dec (_, V)) = (occursInExpN (k, V))
Warning: src/meta/relfun.fun 193.9-196.69.
  Function is not exhaustive.
    missing pattern: (Decl _, Dot (Axp _ | Block _ | Exp _ | Undef, _))
                     | (Null, Dot (Axp _ | Block _ | Exp _ | Undef, _))
                     | (Null, Shift (~2147483648 .. ~1 | 1 .. 2147483647))
    in: fun domain (G, I.Dot (I.Idx _, s)  ...  G, I.Shift (n - 1)))
Warning: src/meta/relfun.fun 220.6-228.10.
  Function is not exhaustive.
    missing pattern: (App _, Mnil) | (Nil, Mapp _) | (SClo _, _)
    in: fun args (I.Nil, M.Mnil) = nil |   ...   L) | false => L end
Warning: src/meta/relfun.fun 239.6-244.61.
  Function is not exhaustive.
    missing pattern: (_, (:: (Prim (ADec _ | BDec _ | NDec _), _), _))
    in: fun occursInPsi (n, (nil, L)) = (  ...  i (n', (Psi1, L)))))
Warning: src/meta/relfun.fun 246.6-248.70.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, ADec _ | BDec _ | NDec _), _)
    in: and occursInG (n, I.Null, k) = (k  ...  else (k (n' + 1)))))
Warning: src/meta/relfun.fun 281.6-288.8.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun blockSub (I.Null, w) = (I.Nul  ...  V')), I.dot1 w') end
Warning: src/meta/relfun.fun 304.12-347.8.
  Function is not exhaustive.
    missing pattern: (Decl (_, Prim (ADec _ | BDec _ | NDec _)), _, _, _)
    in: fun strengthen' (I.Null, Psi2, L,  ...  2', L', w1') end end
Warning: src/meta/relfun.fun 359.6-360.66.
  Function is not exhaustive.
    missing pattern: nil
    in: fun name [a] = (I.conDecName (I.s  ...  a) ^ "/" ^ (name L))
Warning: src/meta/relfun.fun 396.6-405.48.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _
                       | Uni _,
                       Mapp _),
                      _)
                     | ((Pi _, Mapp (Marg (Minus1 | Star, _), _)), _)
    in: fun abstract' ((_, M.Mnil), w) =   ...  .comp (w, I.shift)))
Warning: src/meta/relfun.fun 443.6-461.8.
  Function is not exhaustive.
    missing pattern: ((App _, Mapp (Marg (Minus1 | Star, _), _)), _, _)
                     | ((App _, Mapp (Marg (Minus, _), _)),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)
                     | ((App _, Mapp (Marg (Plus, _), _)),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)
                     | ((App _, Mapp (Marg (Plus, _), _)),
                        Pi ((ADec _ | BDec _ | NDec _, _), _),
                        _)
                     | ((App _, Mnil), _, _)
                     | ((Nil, Mapp _), _, _)
                     | ((Nil, Mnil),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _,
                        _)
                     | ((Nil, Mnil), Uni Kind, _)
                     | ((SClo _, _), _, _)
    in: fun transformInit' ((I.Nil, M.Mni  ...  ), V2, (w', s')) end
Warning: src/meta/relfun.fun 518.10-527.5.
  Function is not exhaustive.
    missing pattern: Decl (_, ADec _ | BDec _ | NDec _)
    in: fun raiseExp' I.Null = (I.id, fn   ...  (w, I.shift), k) end
Warning: src/meta/relfun.fun 561.10-571.5.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun raiseType' (I.Null, n) = (I.i  ...  I.shift), k, k') end
Warning: src/meta/relfun.fun 613.13-653.8.
  Function is not exhaustive.
    missing pattern: (_, (App _, Mapp (Marg (Minus1 | Star, _), _)), _, _, _)
                     | (_,
                        (App _, Mapp (Marg (Minus, _), _)),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _,
                        _)
                     | (_,
                        (App _, Mapp (Marg (Minus, _), _)),
                        Pi ((ADec _ | BDec _ | NDec _, _), _),
                        _,
                        _)
                     | (_,
                        (App _, Mapp (Marg (Plus, _), _)),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _,
                        _)
                     | (_,
                        (App _, Mapp (Marg (Plus, _), _)),
                        Pi ((ADec _ | BDec _ | NDec _, _), _),
                        _,
                        _)
                     | (_, (App _, Mnil), _, _, _)
                     | (_, (Nil, Mapp _), _, _, _)
                     | (_,
                        (Nil, Mnil),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _,
                        _,
                        _)
                     | (_, (Nil, Mnil), Uni Kind, _, _)
                     | (_, (SClo _, _), _, _, _)
    in: fun transformDec' (d, (I.Nil, M.M  ...   Ds))), Dminus)) end
Warning: src/meta/relfun.fun 624.11-625.37.
  Case is not exhaustive.
    missing pattern: Meta
    in: case DP of I.Maybe => (I.dot1 w)   ...  I.comp (w, I.shift))
Warning: src/meta/relfun.fun 671.12-680.9.
  Function is not exhaustive.
    missing pattern: (nil, _, _)
    in: fun head' ([a'], d1, k1) = (d1, k  ...  ht (xx, k2 1))) end)
Warning: src/meta/relfun.fun 719.6-724.68.
  Function is not exhaustive.
    missing pattern: (App _, Mapp (Marg (Minus1 | Star, _), _))
                     | (App _, Mnil)
                     | (Nil, Mapp _)
                     | (SClo _, _)
    in: fun transformConc' (I.Nil, M.Mnil  ...  ormConc' (S', mS')))
Warning: src/meta/relfun.fun 755.6-781.16.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_, _, (Pi ((ADec _ | BDec _ | NDec _, _), _), _), _)
                     | (_, _, (Pi ((Dec _, Meta), _), _), _)
                     | (_,
                        _,
                        (Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
    in: fun traverseNeg (c'', Psi, (I.Pi   ...   end else (NONE, L))
Warning: src/meta/relfun.fun 855.12-859.43.
  Case is not exhaustive.
    missing pattern: (SOME _, _)
    in: case traversePos (c'', Psi, G, (V  ...  L'') => (NONE, L''))
Warning: src/meta/relfun.fun 830.12-830.33.
  Declaration is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root (BVar _
                             | Def _
                             | FVar _
                             | FgnConst _
                             | NSDef _
                             | Proj _
                             | Skonst _,
                             _)
                     | Uni _
    in: val I.Root (I.Const a', S) = Weaken.strengthenExp (V, v)
Warning: src/meta/relfun.fun 831.12-831.72.
  Declaration is not exhaustive.
    missing pattern: (Decl (_, Prim _), _) | (Null, _)
    in: val (dummy as I.Decl (Psi', F.Blo  ...  a', S), w1, M.Minus)
Warning: src/meta/relfun.fun 816.12-816.33.
  Declaration is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root (BVar _
                             | Def _
                             | FVar _
                             | FgnConst _
                             | NSDef _
                             | Proj _
                             | Skonst _,
                             _)
                     | Uni _
    in: val I.Root (I.Const a', S) = Whnf  ...  henExp (V, v), I.id)
Warning: src/meta/relfun.fun 808.12-812.57.
  Case is not exhaustive.
    missing pattern: (NONE, _)
    in: case traversePos (c'', Psi, G, (V  ...  (w', d', PQ'), L''))
Warning: src/meta/relfun.fun 805.12-805.64.
  Case is not exhaustive.
    missing pattern: (NONE, _)
    in: case traversePos (c'', Psi, I.Dec  ...  E (w', d', PQ'), L')
Warning: src/meta/abstract.fun 116.9-119.85.
  Function is not exhaustive.
    missing pattern: (_, AVar _ | EClo _ | EVar _ | FgnExp _ | NVar _ | Redex _)
    in: fun occursInExp (k, I.Uni _) = I.  ...  rsInExp (k + 1, V)))
Warning: src/meta/abstract.fun 122.9-129.54.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | FgnConst _ | NSDef _ | Proj _, _)
    in: and occursInHead (k, I.BVar k', D  ...  _, I.Maybe) = I.Meta
Warning: src/meta/abstract.fun 132.9-133.87.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and occursInSpine (_, I.Nil) = I.  ...  cursInSpine (k, S)))
Warning: src/meta/abstract.fun 136.9-136.58.
  Function is not exhaustive.
    missing pattern: (_, ADec _ | BDec _ | NDec _)
    in: and occursInDec (k, I.Dec (_, V)) = (occursInExp (k, V))
Warning: src/meta/abstract.fun 151.9-158.4.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun weaken (I.Null, a) = I.id | w  ...  mp (w', I.shift) end
Warning: src/meta/abstract.fun 171.9-177.4.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647, Null)
    in: fun restore (0, Gp) = (Gp, I.Null  ...  I.Decl (GX', D)) end
Warning: src/meta/abstract.fun 194.9-217.73.
  Function is not exhaustive.
    missing pattern: (_, _, _, (AVar _ | EClo _ | NVar _ | Redex _, _), _)
    in: fun collectExpW (T, d, G, (I.Uni   ...   G, (U, s), K'))) K)
Warning: src/meta/abstract.fun 210.8-210.33.
  Declaration is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: val X' as I.EVar (r', _, _, _) =   ...  X'), I.EClo (V, iw))
Warning: src/meta/abstract.fun 247.9-248.41.
  Function is not exhaustive.
    missing pattern: (_, _, _, (ADec _ | BDec _ | NDec _, _), _)
    in: and collectDec (T, d, G, (I.Dec (  ...  T, d, G, (V, s), K))
Warning: src/meta/abstract.fun 257.9-260.62.
  Function is not exhaustive.
    missing pattern: (_, _, _, Dot (Axp _ | Block _ | Undef, _), _)
    in: and collectSub (T, d, G, I.Shift   ...  , G, (U, I.id), K)))
Warning: src/meta/abstract.fun 271.9-275.32.
  Function is not exhaustive.
    missing pattern: (Decl (_, EV _),
                      _,
                      AVar _
                      | EClo _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _
                      | Uni _)
                     | (Null, _, _)
    in: fun abstractEVar (I.Decl (K', EV   ...   (K', depth + 1, X))
Warning: src/meta/abstract.fun 292.6-296.30.
  Function is not exhaustive.
    missing pattern: (Null, _, _)
    in: fun lookupBV' (I.Decl (K, EV (r,   ...  ' (K, i - 1, k + 1))
Warning: src/meta/abstract.fun 316.9-341.77.
  Function is not exhaustive.
    missing pattern: (_, _, (AVar _ | EClo _ | NVar _ | Redex _, _))
    in: fun abstractExpW (K, depth, (U as  ...  K, depth, (U, s)))))
Warning: src/meta/abstract.fun 360.9-378.79.
  Function is not exhaustive.
    missing pattern: (_, _, _, Dot (Axp _ | Block _ | Undef, _), _)
    in: and abstractSub (n, K, depth, I.S  ...  th, (U, I.id)), S)))
Warning: src/meta/abstract.fun 409.9-410.44.
  Function is not exhaustive.
    missing pattern: (_, _, (ADec _ | BDec _ | NDec _, _))
    in: and abstractDec (K, depth, (I.Dec  ...  (K, depth, (V, s))))
Warning: src/meta/abstract.fun 416.9-421.44.
  Function is not exhaustive.
    missing pattern: AVar _ | EVar _ | FgnExp _ | NVar _
    in: fun getLevel (I.Uni _) = I.Kind |  ...  , _)) = (getLevel U)
Warning: src/meta/abstract.fun 445.9-470.4.
  Function is not exhaustive.
    missing pattern: Decl (_, EV (_, _, Parameter _, _))
    in: fun abstractCtx I.Null = (I.Null,  ...   I.Decl (B', T)) end
Warning: src/meta/abstract.fun 483.9-489.85.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Undef, _), _)
                     | (_, Dot (Exp _, _), Decl (_, None | Parameter _))
                     | (_, Dot (Exp _, _), Null)
                     | (_, Dot (Idx _, _), Decl (_, Lemma _ | None))
                     | (_, Dot (Idx _, _), Null)
    in: fun abstractGlobalSub (K, I.Shift  ...  obalSub (K, s', B)))
Warning: src/meta/abstract.fun 504.9-513.58.
  Function is not exhaustive.
    missing pattern: (_,
                      Dot (Axp _ | Block _ | Idx _ | Undef, _),
                      Decl (_, Lemma _ | None),
                      _)
                     | (_,
                        Dot (Axp _ | Block _ | Idx _ | Undef, _),
                        Decl (_, Parameter NONE),
                        _)
                     | (_, Dot (Axp _ | Block _ | Idx _ | Undef, _), Null, _)
                     | (_, Dot (Exp _, _), Null, _)
                     | (_, Shift _, Decl (_, Lemma _ | None), _)
                     | (_, Shift _, Decl (_, Parameter NONE), _)
    in: fun collectGlobalSub (G0, I.Shift  ...  0, (U, I.id), K)))))
Warning: src/meta/abstract.fun 517.9-519.91.
  Function is not exhaustive.
    missing pattern: (Decl _,
                      ~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      Decl (_, Lemma _ | None),
                      _)
                     | (Decl _, ~2147483648 .. ~1 | 1 .. 2147483647, _, Null, _)
                     | (Null, ~2147483648 .. ~1 | 1 .. 2147483647, _, _, _)
    in: and skip (G0, 0, s, B, collect) =  ...  l (K, BV (D, T))))))
Warning: src/meta/abstract.fun 567.8-568.93.
  Function is not exhaustive.
    missing pattern: (_, (Decl _, Null)) | (_, (Null, Decl _))
    in: fun skip'' (K, (I.Null, I.Null))   ...  0, B0)), BV (D, T)))
Warning: src/meta/abstract.fun 596.9-605.35.
  Function is not exhaustive.
    missing pattern: (_, _, (All (Block _, _), _))
    in: fun abstractFor (K, depth, (F.All  ...  K, depth, (F2, s))))
Warning: src/meta/abstract.fun 626.9-627.61.
  Function is not exhaustive.
    missing pattern: (Null, ~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun lower (_, 0) = I.Null | lower  ...  ower (G, n - 1), D))
Warning: src/meta/abstract.fun 630.9-636.4.
  Function is not exhaustive.
    missing pattern: (Null, ~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun split (G, 0) = (G, I.Null) |   ...   I.Decl (G2, D)) end
Warning: src/meta/abstract.fun 674.9-682.4.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _, _)
    in: fun weaken2 (I.Null, a, i) = (I.i  ...  ', I.shift), S') end
Warning: src/meta/abstract.fun 705.9-801.4.
  Function is not exhaustive.
    missing pattern: (_, _, All (Block _, _), _, _)
                     | (_, _, All (Prim (ADec _ | BDec _ | NDec _), _), _, _)
                     | (_, _, And _, _, _)
                     | (_, _, Ex (ADec _ | BDec _ | NDec _, _), _, _)
    in: fun raiseFor (k, Gorig, F as F.Tr  ...  ame, V''')), F') end
Warning: src/meta/init.fun 45.6-63.76.
  Function is not exhaustive.
    missing pattern: (_, All _, All (Block _, _), _)
                     | (_, All _, And _, _)
                     | (_, And _, All _, _)
                     | (_, Arg _ | Lex _ | Simul _, All _ | And _, _)
    in: fun init' ((G, B), S.All (_, O),   ...  , O, nil, F') :: Ss)
Warning: src/meta/print.fun 50.9-56.76.
  Function is not exhaustive.
    missing pattern: (_, All _ | And _)
    in: fun formatOrder (G, S.Arg (Us, Vs  ...  s)), Fmt.String "]"]
Warning: src/meta/print.fun 69.9-74.63.
  Function is not exhaustive.
    missing pattern: (_, None)
    in: fun formatTag (G, S.Parameter l)   ...   [Fmt.String "<i*>"]
Warning: src/meta/print.fun 87.9-99.37.
  Function is not exhaustive.
    missing pattern: (Decl (Decl _, _), Null) | (Decl (Null, _), Null)
    in: fun formatCtx (I.Null, B) = [] |   ...  t.formatDec (G, D)])
Warning: src/meta/search.fun 98.9-107.76.
  Function is not exhaustive.
    missing pattern: (_, (AVar _ | EClo _ | NVar _ | Redex _, _))
    in: and occursInExpW (r, (I.Uni _, _)  ...  r, (U, s))))) false)
Warning: src/meta/search.fun 116.9-116.68.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _))
    in: and occursInDec (r, (I.Dec (_, V)  ...  rsInExp (r, (V, s)))
Warning: src/meta/search.fun 124.9-126.69.
  Function is not exhaustive.
    missing pattern: (_,
                      :: (AVar _
                          | EClo _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Pi _
                          | Redex _
                          | Root _
                          | Uni _,
                          _))
    in: fun nonIndex (_, nil) = true | no  ...   (nonIndex (r, GE)))
Warning: src/meta/search.fun 133.9-147.4.
  Function is not exhaustive.
    missing pattern: :: (AVar _
                         | EClo _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Root _
                         | Uni _,
                         _)
    in: fun selectEVar nil = nil | select  ...   X :: Xs else Xs end
Warning: src/meta/search.fun 158.9-159.55.
  Function is not exhaustive.
    missing pattern: (Null, ~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun pruneCtx (G, 0) = G | pruneCt  ...  pruneCtx (G, n - 1))
Warning: src/meta/search.fun 161.7-163.34.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _
    in: fun cidFromHead (I.Const a) = a |  ...  ead (I.Skonst a) = a
Warning: src/meta/search.fun 214.7-277.9.
  Function is not exhaustive.
    missing pattern: (_, _, _, (Axists (ADec (NONE, _), _), _), _, _)
                     | (_, _, _, (Axists (BDec _ | Dec _ | NDec _, _), _), _, _)
                     | (_, _, _, (Exists (ADec _ | BDec _ | NDec _, _), _), _, _)
    in: and rSolve (max, depth, ps', (C.E  ...  )), s)), dp, sc) end
Warning: src/meta/search.fun 313.7-345.9.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
    in: and matchAtom (0, _, _, _, _) = (  ...  DProg (dPool, 1) end
Warning: src/meta/search.fun 321.12-321.23.
  Declaration is not exhaustive.
    missing pattern: Void
    in: val C.SClause r = C.sProgLookup (cidFromHead Hc)
Warning: src/meta/search.fun 330.6-342.31.
  Function is not exhaustive.
    missing pattern: (Decl (_, BDec _ | PDec), _)
    in: fun matchDProg (I.Null, _) = (mat  ...  rog (dPool', n + 1))
Warning: src/meta/search.fun 357.9-365.58.
  Function is not exhaustive.
    missing pattern: (_,
                      (:: (AVar _
                           | EClo _
                           | FgnExp _
                           | Lam _
                           | NVar _
                           | Pi _
                           | Redex _
                           | Root _
                           | Uni _,
                           _),
                       _))
    in: and searchEx' max (nil, sc) = (sc  ...  ify.Unify _ => ())))
Warning: src/meta/search.fun 402.32-403.53.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _
                      | Uni _,
                      _)
    in: fn (X as I.EVar (_, G, _, _), L)   ...  s (G, (X, I.id), L))
Warning: src/meta/filling.fun 48.9-56.4.
  Function is not exhaustive.
    missing pattern: (_, (All _ | And _, _))
                     | (_, (Ex (ADec _ | BDec _ | NDec _, _), _))
    in: fun createEVars (G, (F.True, s))   ...  s, F.Inx (X, P)) end
Warning: src/meta/filling.fun 77.22-78.43.
  Function is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: fn X as I.EVar (_, G', V, _) => (  ...  eCheck (G', (X, V)))
Warning: src/meta/splitting.fun 76.9-79.72.
  Function is not exhaustive.
    missing pattern: (_, _, RL | RLdone, _, _, _, _)
    in: fun makeOperator ((S, k), L, S.Sp  ...   r = 0, p = g + 1}))
Warning: src/meta/splitting.fun 89.9-98.4.
  Function is not exhaustive.
    missing pattern: (Decl _, Decl (_, None))
                     | (Decl _, Decl (_, Parameter NONE))
                     | (Decl _, Null)
                     | (Null, Decl _)
    in: fun aux (I.Null, I.Null) = I.Null  ...  k (SOME l, G'))) end
Warning: src/meta/splitting.fun 100.9-106.4.
  Function is not exhaustive.
    missing pattern: (Decl _,
                      Decl (_, Lemma _ | None),
                      ~2147483648 .. ~1 | 1 .. 2147483647)
                     | (Decl _,
                        Decl (_, Parameter NONE),
                        ~2147483648 .. ~1 | 1 .. 2147483647)
                     | (Decl _, Null, ~2147483648 .. ~1 | 1 .. 2147483647)
                     | (Null, _, ~2147483648 .. ~1 | 1 .. 2147483647)
    in: and aux' (G, B, 0) = (aux (G, B),  ...   I.Decl (G', D)) end
Warning: src/meta/splitting.fun 147.9-155.4.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _,
                       _))
                     | (_, (Pi ((ADec _ | BDec _ | NDec _, _), _), _))
                     | (_, (Uni Kind, _))
    in: and createEVarSpineW (G, Vs as (I  ...  .App (X, S), Vs) end
Warning: src/meta/splitting.fun 167.18-168.31.
  Case is not exhaustive.
    missing pattern: BVar _ | Def _ | FVar _ | FgnConst _ | NSDef _ | Proj _
    in: case H of I.Const cid => cid | I.Skonst cid => cid
Warning: src/meta/splitting.fun 184.6-184.17.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.ctxDec (G, k)
Warning: src/meta/splitting.fun 201.9-203.74.
  Function is not exhaustive.
    missing pattern: (_, :: (ADec _ | BDec _ | NDec _, _), _)
    in: fun someEVars (G, nil, s) = s | s  ...  .EClo (V, s))), s)))
Warning: src/meta/splitting.fun 213.27-214.47.
  Function is not exhaustive.
    missing pattern: (ADec _ | BDec _ | NDec _, _)
    in: fn (I.Dec (_, V), m) => (if I.tar  ...  a then m + 1 else m)
Warning: src/meta/splitting.fun 223.9-230.46.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _)
                     | (Pi ((ADec _ | BDec _ | NDec _, _), _), _)
    in: fun maxNumberLocalParams (I.Pi ((  ...  ms (I.Root _, a) = 0
Warning: src/meta/splitting.fun 272.9-284.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      :: (BVar _
                          | Def _
                          | FVar _
                          | FgnConst _
                          | NSDef _
                          | Proj _
                          | Skonst _,
                          _),
                      _,
                      _)
    in: fun constCases (G, Vs, nil, abstr  ...  ctive :: ops)))) end
Warning: src/meta/splitting.fun 323.12-323.23.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.ctxDec (G, n)
Warning: src/meta/splitting.fun 353.9-361.8.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
                     | (_,
                        _,
                        (Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _,
                        _)
    in: fun lowerSplitDest (G, k, (V as I  ...  D', U))), cases) end
Warning: src/meta/splitting.fun 394.9-483.4.
  Function is not exhaustive.
    missing pattern: ((ADec _ | BDec _ | NDec _, _), _, _)
    in: fun split ((D as I.Dec (_, V), T)  ...  ize () - 1, nil) end
Warning: src/meta/splitting.fun 492.9-497.93.
  Function is not exhaustive.
    missing pattern: (_, AVar _ | EClo _ | EVar _ | NVar _ | Redex _)
    in: fun occursInExp (k, I.Uni _) = fa  ...  (U, I.id))))) false)
Warning: src/meta/splitting.fun 500.9-503.43.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | FgnConst _ | NSDef _ | Proj _)
    in: and occursInCon (k, I.BVar k') =   ...   I.Skonst _) = false
Warning: src/meta/splitting.fun 506.9-507.88.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and occursInSpine (_, I.Nil) = fa  ...  cursInSpine (k, S)))
Warning: src/meta/splitting.fun 510.9-510.58.
  Function is not exhaustive.
    missing pattern: (_, ADec _ | BDec _ | NDec _)
    in: and occursInDec (k, I.Dec (_, V)) = (occursInExp (k, V))
Warning: src/meta/splitting.fun 558.9-565.76.
  Function is not exhaustive.
    missing pattern: (_, All _ | And _, _, _)
    in: fun occursInOrder (n, S.Arg (Us,   ...  ders (n, Os, k, sc))
Warning: src/meta/splitting.fun 601.9-690.4.
  Function is not exhaustive.
    missing pattern: ((Decl _, Decl (_, None)), _, _, _, _)
                     | ((Decl _, Decl (_, Parameter NONE)), _, _, _, _)
                     | ((Decl _, Null), _, _, _, _)
                     | ((Null, Decl _), _, _, _, _)
    in: fun expand' (GB as (I.Null, I.Nul  ...  nd in (sc', ops) end
Warning: src/meta/splitting.fun 679.8-679.22.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (xOpt, V) = D
Warning: src/meta/splitting.fun 660.8-660.22.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (xOpt, V) = D
Warning: src/meta/splitting.fun 641.8-641.22.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (xOpt, V) = D
Warning: src/meta/splitting.fun 612.8-612.22.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (xOpt, V) = D
Warning: src/meta/uniquesearch.fun 93.9-102.76.
  Function is not exhaustive.
    missing pattern: (_, (AVar _ | EClo _ | NVar _ | Redex _, _))
    in: and occursInExpW (r, (I.Uni _, _)  ...  r, (U, s))))) false)
Warning: src/meta/uniquesearch.fun 111.9-111.68.
  Function is not exhaustive.
    missing pattern: (_, (ADec _ | BDec _ | NDec _, _))
    in: and occursInDec (r, (I.Dec (_, V)  ...  rsInExp (r, (V, s)))
Warning: src/meta/uniquesearch.fun 119.9-121.69.
  Function is not exhaustive.
    missing pattern: (_,
                      :: (AVar _
                          | EClo _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Pi _
                          | Redex _
                          | Root _
                          | Uni _,
                          _))
    in: fun nonIndex (_, nil) = true | no  ...   (nonIndex (r, GE)))
Warning: src/meta/uniquesearch.fun 128.9-142.4.
  Function is not exhaustive.
    missing pattern: :: (AVar _
                         | EClo _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Root _
                         | Uni _,
                         _)
    in: fun selectEVar nil = nil | select  ...   X :: Xs else Xs end
Warning: src/meta/uniquesearch.fun 153.9-154.55.
  Function is not exhaustive.
    missing pattern: (Null, ~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun pruneCtx (G, 0) = G | pruneCt  ...  pruneCtx (G, n - 1))
Warning: src/meta/uniquesearch.fun 156.7-158.34.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _
    in: fun cidFromHead (I.Const a) = a |  ...  ead (I.Skonst a) = a
Warning: src/meta/uniquesearch.fun 207.7-270.9.
  Function is not exhaustive.
    missing pattern: (_, _, _, (Axists (ADec (NONE, _), _), _), _, _, _)
                     | (_,
                        _,
                        _,
                        (Axists (BDec _ | Dec _ | NDec _, _), _),
                        _,
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        (Exists (ADec _ | BDec _ | NDec _, _), _),
                        _,
                        _,
                        _)
    in: and rSolve (max, depth, ps', (C.E  ...  )), dp, sc, acc) end
Warning: src/meta/uniquesearch.fun 306.7-338.9.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _,
                      _)
    in: and matchAtom (0, _, _, _, _, acc  ...   (dPool, 1, acc) end
Warning: src/meta/uniquesearch.fun 314.12-314.23.
  Declaration is not exhaustive.
    missing pattern: Void
    in: val C.SClause r = C.sProgLookup (cidFromHead Hc)
Warning: src/meta/uniquesearch.fun 323.6-335.37.
  Function is not exhaustive.
    missing pattern: (Decl (_, BDec _ | PDec), _, _)
    in: fun matchDProg (I.Null, _, acc')   ...  Pool', n + 1, acc'))
Warning: src/meta/uniquesearch.fun 350.9-358.71.
  Function is not exhaustive.
    missing pattern: (_,
                      (:: (AVar _
                           | EClo _
                           | FgnExp _
                           | Lam _
                           | NVar _
                           | Pi _
                           | Redex _
                           | Root _
                           | Uni _,
                           _),
                       _,
                       _))
    in: and searchEx' max (nil, sc, acc)   ...  fy _ => acc'), acc))
Warning: src/meta/uniquesearch.fun 376.32-377.53.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _
                      | Uni _,
                      _)
    in: fn (X as I.EVar (_, G, _, _), L)   ...  s (G, (X, I.id), L))
Warning: src/meta/inference.fun 87.10-89.19.
  Case is not exhaustive.
    missing pattern: :: (_, :: _)
    in: case UniqueSearch.searchEx (2, Xs  ...  E VF'') | [] => NONE
Warning: src/meta/inference.fun 114.9-142.4.
  Function is not exhaustive.
    missing pattern: (_, (Decl (_, ADec _ | BDec _ | NDec _), Null), _)
                     | (_, (Decl (_, Dec _), Null), _)
                     | (_, (Null, Decl _), _)
    in: fun expand' ((G0, B0), (I.Null, I  ...   (B0', T)), sc') end
Warning: src/meta/recursion.fun 87.9-89.70.
  Function is not exhaustive.
    missing pattern: (_, :: (ADec _ | BDec _ | NDec _, _), _)
    in: fun someEVars (G, nil, s) = s | s  ...  .EClo (V, s))), s)))
Warning: src/meta/recursion.fun 166.9-172.4.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, ADec _ | BDec _ | NDec _))
    in: fun createEVars (G, I.Null) = (I.  ...  Clo (V, s))), s) end
Warning: src/meta/recursion.fun 185.9-188.66.
  Function is not exhaustive.
    missing pattern: (_, :: (ADec _ | BDec _ | NDec _, _), _)
    in: fun checkCtx (G, nil, (V2, s)) =   ...  omp (s, I.shift)))))
Warning: src/meta/recursion.fun 310.9-334.9.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _
                      | Uni _,
                      _,
                      _,
                      _,
                      _)
    in: and set_parameter (GB as (G1, B1)  ...  ter' (GB, 1, Ds) end
Warning: src/meta/recursion.fun 317.6-331.39.
  Function is not exhaustive.
    missing pattern: ((Decl _, Null), _, _) | ((Null, Decl _), _, _)
    in: fun set_parameter' ((I.Null, I.Nu  ...  ((G, B), k + 1, Ds))
Warning: src/meta/recursion.fun 320.12-320.30.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val D' as I.Dec (_, V') = I.decSub (D, I.Shift k)
Warning: src/meta/recursion.fun 356.9-366.15.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      ((AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _
                        | Uni _,
                        _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _)),
                      _,
                      _,
                      _,
                      _)
                     | (_,
                        _,
                        ((Lam _, _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Uni _,
                          _)),
                        _,
                        _,
                        _,
                        _)
    in: and ltinitW (GB, k, (Us, Vs as (I  ...  ift))), sc, ac, Ds))
Warning: src/meta/recursion.fun 391.9-430.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      ((AVar _
                        | EClo _
                        | FgnExp _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Uni _,
                        _),
                       _),
                      _,
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        ((Lam (ADec _ | BDec _ | NDec _, _), _), _),
                        _,
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((Lam (Dec _, _), _),
                         (AVar _
                          | EClo _
                          | EVar _
                          | FgnExp _
                          | Lam _
                          | NVar _
                          | Redex _
                          | Root _
                          | Uni _,
                          _)),
                        _,
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((Lam (Dec _, _), _),
                         (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        _,
                        _,
                        _)
                     | (_,
                        _,
                        _,
                        ((Root (Def _
                                | FVar _
                                | FgnConst _
                                | NSDef _
                                | Proj _
                                | Skonst _,
                                _),
                          _),
                         _),
                        _,
                        _,
                        _)
    in: and ltW (GB, k, (Us, Vs), ((I.Roo  ...  s') end else Ds' end
Warning: src/meta/recursion.fun 397.8-403.19.
  Case is not exhaustive.
    missing pattern: None
    in: case I.ctxLookup (B, n) of S.Para  ...  nd | S.Lemma _ => Ds
Warning: src/meta/recursion.fun 399.13-399.25.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V') = I.ctxDec (G, n)
Warning: src/meta/recursion.fun 434.9-444.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      ((App _, _),
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)),
                      _,
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        ((App _, _), (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        _,
                        _,
                        _)
    in: and ltSpineW (GB, k, (Us, Vs), ((  ...  )), sc, ac, Ds') end
Warning: src/meta/recursion.fun 539.9-541.90.
  Function is not exhaustive.
    missing pattern: (_, All _ | And _, _, _, _, _)
                     | (_, Arg _, All _ | And _ | Lex _ | Simul _, _, _, _)
                     | (_, Lex _, All _ | And _ | Arg _ | Simul _, _, _, _)
                     | (_, Simul _, All _ | And _ | Arg _ | Lex _, _, _, _)
    in: and ordlt (GB, S.Arg UsVs, S.Arg   ...   L, L', sc, ac, Ds))
Warning: src/meta/recursion.fun 555.9-561.4.
  Function is not exhaustive.
    missing pattern: (_, :: _, nil, _, _, _) | (_, nil, :: _, _, _, _)
    in: and ordltLex (GB, nil, nil, sc, a  ...  Ds'')), ac, Ds') end
Warning: src/meta/recursion.fun 574.9-581.4.
  Function is not exhaustive.
    missing pattern: (_, :: _, nil, _, _, _) | (_, nil, :: _, _, _, _)
    in: and ordltSimul (GB, nil, nil, sc,  ...  Ds')), ac, Ds'') end
Warning: src/meta/recursion.fun 595.9-597.82.
  Function is not exhaustive.
    missing pattern: (_, :: _, nil, _, _, _) | (_, nil, :: _, _, _, _)
    in: and ordleSimul (GB, nil, nil, sc,  ...   ac, Ds')), ac, Ds))
Warning: src/meta/recursion.fun 611.9-614.86.
  Function is not exhaustive.
    missing pattern: (_, All _ | And _, _, _, _, _)
                     | (_, Arg _, All _ | And _ | Lex _ | Simul _, _, _, _)
                     | (_, Lex _, All _ | And _ | Arg _ | Simul _, _, _, _)
                     | (_, Simul _, All _ | And _ | Arg _ | Lex _, _, _, _)
    in: and ordeq ((G, B), S.Arg (Us, Vs)  ...   L, L', sc, ac, Ds))
Warning: src/meta/recursion.fun 627.9-629.78.
  Function is not exhaustive.
    missing pattern: (_, :: _, nil, _, _, _) | (_, nil, :: _, _, _, _)
    in: and ordeqs (GB, nil, nil, sc, ac,  ...   ac, Ds')), ac, Ds))
Warning: src/meta/recursion.fun 668.9-727.6.
  Function is not exhaustive.
    missing pattern: (_, _, _, All (Block _, _), _)
                     | (_, _, _, And _, _)
                     | (_, _, _, Ex (ADec _ | BDec _ | NDec _, _), _)
    in: fun skolem ((du, de), GB, w, F.Tr  ...  '), V', F') end) end
Warning: src/meta/strategy.fun 102.9-116.8.
  Function is not exhaustive.
    missing pattern: (nil, _)
    in: fun split (S :: givenStates, os a  ...  ivenStates, os) end)
Warning: src/meta/prover.fun 44.8-44.19.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.ctxDec (G, k')
Warning: src/meta/prover.fun 53.9-59.64.
  Function is not exhaustive.
    missing pattern: (_, All (Block _, _), _)
                     | (_, And _, nil)
                     | (_, Ex _, :: (_, :: _))
                     | (_, Ex _, nil)
                     | (_, True, :: (_, :: _))
                     | (_, True, nil)
    in: fun transformOrder (G, F.All (F.P  ...  nsformOrder' (G, O))
Warning: src/meta/prover.fun 122.9-136.4.
  Function is not exhaustive.
    missing pattern: (_, nil)
    in: fun init (k, cL as c :: _) = let   ...  LToString cL'))) end
Warning: src/meta/mpi.fun 114.10-119.55.
  Function is not exhaustive.
    missing pattern: Case _ | Lam _ | Let _ | Pair _ | Rec _
    in: fun formatTuple' F.Unit = nil | f  ...   :: formatTuple' P')
Warning: src/meta/mpi.fun 163.8-203.10.
  Function is not exhaustive.
    missing pattern: (_, :: (Splitting _, _), (NONE, SOME _))
                     | (_, :: (Splitting _, _), (SOME _, NONE))
    in: fun menuToString' (k, nil, (NONE,  ...  ference.menu O)) end
Warning: src/meta/mpi.fun 181.7-181.27.
  Declaration is not exhaustive.
    missing pattern: (NONE, _)
    in: val (kopt as SOME k'', s) = menuT  ...   (k + 1, M, kOopt'')
Warning: src/meta/mpi.fun 169.7-169.27.
  Declaration is not exhaustive.
    missing pattern: (NONE, _)
    in: val (kopt as SOME k'', s) = menuT  ...   (k + 1, M, kOopt'')
Warning: src/meta/mpi.fun 243.8-243.19.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.ctxDec (G, k')
Warning: src/meta/mpi.fun 252.9-257.64.
  Function is not exhaustive.
    missing pattern: (_, All (Block _, _), _)
                     | (_, And _, nil)
                     | (_, Ex _, :: (_, :: _))
                     | (_, Ex _, nil)
                     | (_, True, _)
    in: fun transformOrder (G, F.All (F.P  ...  nsformOrder' (G, O))
Warning: src/table/hash-table.sml 26.6-29.24.
  Function is not exhaustive.
    missing pattern: Nil
    in: fun insertB (Cons (r' as ref (has  ...  ) else insertBR br')
Warning: src/worldcheck/worldsyn.fun 144.9-152.4.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, ADec _ | BDec _ | NDec _))
    in: fun createEVarSub (G, I.Null) = (  ...  Dot (I.Exp X, s) end
Warning: src/worldcheck/worldsyn.fun 160.9-165.62.
  Function is not exhaustive.
    missing pattern: :: (AVar _
                         | EClo _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Root _
                         | Uni _,
                         _)
    in: fun collectConstraints nil = nil   ...  llectConstraints Xs)
Warning: src/worldcheck/worldsyn.fun 171.9-173.44.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Idx _ | Undef, _), _)
    in: fun collectEVars (G, I.Dot (I.Exp  ...   I.Shift _, Xs) = Xs
Warning: src/worldcheck/worldsyn.fun 216.9-219.45.
  Function is not exhaustive.
    missing pattern: (_, Block _ | One | Plus _ | Star _)
    in: fun wGoalToString ((G, L), Seq (p  ...  t (G, piDecs, t))]))
Warning: src/worldcheck/worldsyn.fun 222.9-223.65.
  Function is not exhaustive.
    missing pattern: (_, Block _ | One | Plus _ | Star _)
    in: fun worldToString (G, Seq (piDecs  ...  st (G, piDecs, t))))
Warning: src/worldcheck/worldsyn.fun 285.9-286.39.
  Function is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Redex _
                     | Uni _
    in: fun subGoalToDList (I.Pi ((D, _),  ...  ist (I.Root _) = nil
Warning: src/worldcheck/worldsyn.fun 294.9-296.60.
  Function is not exhaustive.
    missing pattern: nil
    in: and worldsToReg' (cid :: nil) = (  ...   worldsToReg' cids))
Warning: src/worldcheck/worldsyn.fun 305.9-309.35.
  Function is not exhaustive.
    missing pattern: (_, (_, :: (ADec _ | BDec _ | NDec _, _)))
    in: fun init b (_, nil) = (Trace.succ  ...  cUName (G, D1), L2))
Warning: src/worldcheck/worldsyn.fun 319.9-351.53.
  Function is not exhaustive.
    missing pattern: ((_, :: (ADec _ | BDec _ | NDec _, _)), Seq (:: _, _), _, _)
                     | ((_, :: (Dec _, _)),
                        Seq (:: (ADec _ | BDec _ | NDec _, _), _),
                        _,
                        _)
    in: fun accR (GL, One, b, k) = (k GL)  ...  cR (GL', r, b, k))))
Warning: src/worldcheck/worldsyn.fun 413.10-420.37.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _,
                      _)
                     | (_, Pi ((ADec _ | BDec _ | NDec _, _), _), _, _)
                     | (_, Pi ((Dec _, Meta), _), _, _)
    in: fun checkClause (G, I.Root (a, S)  ...  V1, W, P.label occ))
Warning: src/worldcheck/worldsyn.fun 430.10-433.39.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _,
                      _)
                     | (_, Pi ((ADec _ | BDec _ | NDec _, _), _), _, _)
    in: and checkGoal (G, I.Root (a, S),   ...  V1, W, P.label occ))
Warning: src/worldcheck/worldsyn.fun 445.8-461.30.
  Function is not exhaustive.
    missing pattern: :: (BVar _
                         | FVar _
                         | FgnConst _
                         | NSDef _
                         | Proj _
                         | Skonst _,
                         _)
    in: fun checkAll nil = () | checkAll   ...  )) ; checkAll clist)
Warning: src/worldcheck/worldsyn.fun 488.9-491.39.
  Function is not exhaustive.
    missing pattern: (_, :: (ADec _ | BDec _ | NDec _, _))
    in: and checkSubordBlock' (G, (D as I  ...  Block' (G, nil) = ()
Warning: src/worldcheck/worldify.fun 99.9-107.4.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, ADec _ | BDec _ | NDec _))
    in: fun createEVarSub (G, I.Null) = (  ...  Dot (I.Exp X, s) end
Warning: src/worldcheck/worldify.fun 115.9-120.62.
  Function is not exhaustive.
    missing pattern: :: (AVar _
                         | EClo _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Root _
                         | Uni _,
                         _)
    in: fun collectConstraints nil = nil   ...  llectConstraints Xs)
Warning: src/worldcheck/worldify.fun 126.9-128.44.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Block _ | Idx _ | Undef, _), _)
    in: fun collectEVars (G, I.Dot (I.Exp  ...   I.Shift _, Xs) = Xs
Warning: src/worldcheck/worldify.fun 170.9-173.45.
  Function is not exhaustive.
    missing pattern: (_, Block _ | One | Plus _ | Star _)
    in: fun wGoalToString ((G, L), Seq (_  ...  t (G, piDecs, t))]))
Warning: src/worldcheck/worldify.fun 176.9-177.65.
  Function is not exhaustive.
    missing pattern: (_, Block _ | One | Plus _ | Star _)
    in: fun worldToString (G, Seq (_, piD  ...  st (G, piDecs, t))))
Warning: src/worldcheck/worldify.fun 295.10-298.44.
  Function is not exhaustive.
    missing pattern: (_, (_, :: (ADec _ | BDec _ | NDec _, _)))
    in: fun strengthen a (t, nil) = nil |  ...  ot (I.Undef, t), L))
Warning: src/worldcheck/worldify.fun 421.10-430.49.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _))
                     | (_,
                        (_,
                         Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _))
    in: fun checkGoal W (G, I.Root (I.Con  ...  D), V2, P.body occ))
Warning: src/worldcheck/worldify.fun 439.10-444.36.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _))
                     | (_, (_, Pi ((ADec _ | BDec _ | NDec _, _), _), _))
                     | (_, (_, Pi ((Dec _, Meta), _), _))
    in: fun checkClause W (G, I.Root (a,   ...  G, V1, P.label occ))
Warning: src/worldcheck/worldify.fun 446.10-447.43.
  Function is not exhaustive.
    missing pattern: (_,
                      AbbrevDef _
                      | BlockDec _
                      | BlockDef _
                      | ConDef _
                      | SkoDec _)
    in: fun checkConDec W (I.ConDec (s, m  ...   (I.Null, V, P.top))
Warning: src/worldcheck/worldify.fun 455.9-456.39.
  Function is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Redex _
                     | Uni _
    in: fun subGoalToDList (I.Pi ((D, _),  ...  ist (I.Root _) = nil
Warning: src/worldcheck/worldify.fun 464.9-466.65.
  Function is not exhaustive.
    missing pattern: nil
    in: and worldsToReg' (cid :: nil) = (  ...   worldsToReg' cids))
Warning: src/worldcheck/worldify.fun 475.9-479.67.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _))
                     | (_, (Pi ((ADec _ | BDec _ | NDec _, _), _), _))
    in: fun init (_, Vs as (I.Root _, s))  ...  alize (V, s))) ; ())
Warning: src/worldcheck/worldify.fun 489.9-519.50.
  Function is not exhaustive.
    missing pattern: ((_,
                       (AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Uni _,
                        _)),
                      Seq (_, :: _, _),
                      _)
                     | ((_, (Pi ((ADec _ | BDec _ | NDec _, _), _), _)),
                        Seq (_, :: _, _),
                        _)
                     | ((_, (Pi ((Dec _, _), _), _)),
                        Seq (_, :: (ADec _ | BDec _ | NDec _, _), _),
                        _)
    in: fun accR (GVs, One, k) = (k GVs)   ...  accR (GVs', r, k))))
Warning: src/worldcheck/worldify.fun 551.10-567.5.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _,
                      _)
                     | (_, Pi ((ADec _ | BDec _ | NDec _, _), _), _, _)
                     | (_, Pi ((Dec _, Meta), _), _, _)
    in: fun worldifyClause (G, V as I.Roo  ...   W1), I.No), W2) end
Warning: src/worldcheck/worldify.fun 574.10-580.71.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       AbbrevDef _
                       | BlockDec _
                       | BlockDef _
                       | ConDef _
                       | SkoDec _))
    in: fun worldifyConDec W (c, I.ConDec  ...  sg (c, occ, msg)))))
Warning: src/worldcheck/worldify.fun 583.10-592.5.
  Function is not exhaustive.
    missing pattern: (_, :: (ADec _ | BDec _ | NDec _, _))
    in: fun worldifyBlock (G, nil) = () |  ...  Name (G, D), L)) end
Warning: src/worldcheck/worldify.fun 616.27-616.136.
  Function is not exhaustive.
    missing pattern: BVar _
                     | Def _
                     | FVar _
                     | FgnConst _
                     | NSDef _
                     | Proj _
                     | Skonst _
    in: fn I.Const c => ((worldifyConDec   ...  pMsg (c, occ, s)))))
Warning: src/modes/modetable.fun 37.9-38.20.
  Case is not exhaustive.
    missing pattern: SOME nil
    in: case Table.lookup modeSignature a  ...  E mS) | NONE => NONE
Warning: src/modes/modecheck.fun 124.9-125.39.
  Function is not exhaustive.
    missing pattern: Existential (Free | Unknown, _)
    in: fun uniqueness (Existential (Grou  ...  s Universal = Unique
Warning: src/modes/modecheck.fun 130.9-132.38.
  Function is not exhaustive.
    missing pattern: Star
    in: fun ambiguate M.Plus = M.Plus | a  ...  e M.Minus1 = M.Minus
Warning: src/modes/modecheck.fun 173.9-177.15.
  Function is not exhaustive.
    missing pattern: (Nil, ~2147483648 .. ~1 | 1 .. 2147483647) | (SClo _, _)
    in: and etaSpine (I.Nil, 0) = () | et  ...  - 1) else raise Eta)
Warning: src/modes/modecheck.fun 187.9-197.6.
  Function is not exhaustive.
    missing pattern: (_, _, _, SClo _)
    in: fun checkPattern (D, k, args, I.N  ...  ) else raise Eta end
Warning: src/modes/modecheck.fun 214.9-232.53.
  Function is not exhaustive.
    missing pattern: (_, _, AVar _ | EClo _ | EVar _ | NVar _ | Redex _)
    in: fun strictExpN (D, _, I.Uni _) =   ...  p (cs, ops)) = false
Warning: src/modes/modecheck.fun 223.10-230.67.
  Case is not exhaustive.
    missing pattern: FVar _ | NSDef _ | Proj _ | Skonst _
    in: case H of I.BVar k' => (if k' = p  ...  ictSpineN (D, p, S))
Warning: src/modes/modecheck.fun 243.9-245.60.
  Function is not exhaustive.
    missing pattern: (_, _, SClo _)
    in: and strictSpineN (_, _, I.Nil) =   ...  ctSpineN (D, p, S)))
Warning: src/modes/modecheck.fun 247.9-248.30.
  Function is not exhaustive.
    missing pattern: (_, _, ADec _ | BDec _ | NDec _)
    in: and strictDecN (D, p, I.Dec (_, V)) = (strictExpN (D, p, V))
Warning: src/modes/modecheck.fun 270.9-282.101.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      AVar _ | EClo _ | EVar _ | NVar _ | Pi _ | Redex _ | Uni _,
                      _,
                      _)
                     | (_,
                        _,
                        _,
                        Root (FVar _ | NSDef _ | Proj _ | Skonst _, _),
                        _,
                        _)
    in: fun freeExpN (D, d, mode, I.Root   ...  , occ, strictFun))))
Warning: src/modes/modecheck.fun 294.9-297.54.
  Function is not exhaustive.
    missing pattern: (_, _, _, SClo _, _, _)
    in: and freeSpineN (D, d, mode, I.Nil  ...  1, occ), strictFun))
Warning: src/modes/modecheck.fun 328.9-339.75.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _ | EClo _ | EVar _ | NVar _ | Pi _ | Redex _ | Uni _)
                     | (_, Root (FVar _ | NSDef _ | Proj _ | Skonst _, _))
    in: fun nonStrictExpN (D, I.Root (I.B  ...  checking freeness"))
Warning: src/modes/modecheck.fun 348.9-350.51.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and nonStrictSpineN (D, I.Nil) =   ...  rictExpN (D, U), S))
Warning: src/modes/modecheck.fun 359.9-364.42.
  Function is not exhaustive.
    missing pattern: (Null, ~2147483648 .. 0 | 2 .. 2147483647)
    in: and nonStrictVarD (I.Decl (D, Exi  ...  (D, k - 1), status))
Warning: src/modes/modecheck.fun 380.9-398.41.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _ | EClo _ | EVar _ | NVar _ | Pi _ | Redex _ | Uni _,
                      _)
                     | (_, Root (FVar _ | NSDef _ | Proj _ | Skonst _, _), _)
    in: fun updateExpN (D, I.Root (I.BVar  ...  , I.FgnExp _, u) = D
Warning: src/modes/modecheck.fun 407.9-409.51.
  Function is not exhaustive.
    missing pattern: (_, SClo _, _)
    in: and updateSpineN (D, I.Nil, u) =   ...  pN (D, U, u), S, u))
Warning: src/modes/modecheck.fun 418.9-421.42.
  Function is not exhaustive.
    missing pattern: (Null, _, _)
    in: and updateVarD (I.Decl (D, Existe  ...   k - 1, u), status))
Warning: src/modes/modecheck.fun 441.9-455.50.
  Function is not exhaustive.
    missing pattern: (_, Minus1, App _, Mnil, _)
                     | (_, Minus1, Nil, Mapp _, _)
                     | (_, Minus1, SClo _, _, _)
                     | (_, Minus, App _, Mnil, _)
                     | (_, Minus, Nil, Mapp _, _)
                     | (_, Minus, SClo _, _, _)
                     | (_, Plus, App _, Mnil, _)
                     | (_, Plus, Nil, Mapp _, _)
                     | (_, Plus, SClo _, _, _)
                     | (_, Star, App _, Mnil, _)
                     | (_, Star, Nil, Mapp _, _)
                     | (_, Star, SClo _, _, _)
    in: fun updateAtom' (D, mode, I.Nil,   ...  , mS, (p + 1, occ)))
Warning: src/modes/modecheck.fun 464.9-471.85.
  Function is not exhaustive.
    missing pattern: (_,
                      Minus1 | Plus | Star,
                      App _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _,
                      _)
                     | (_, Minus1 | Plus | Star, App _, (Pi _, _), Mnil, _)
                     | (_, Minus1 | Plus | Star, Nil, _, Mapp _, _)
                     | (_, Minus1 | Plus | Star, SClo _, _, _, _)
                     | (_,
                        Minus,
                        App _,
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Redex _
                         | Root _
                         | Uni _,
                         _),
                        _,
                        _)
                     | (_,
                        Minus,
                        App _,
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        Mnil,
                        _)
                     | (_, Minus, App _, (Pi ((Dec _, _), _), _), Mnil, _)
                     | (_, Minus, Nil, _, Mapp _, _)
                     | (_, Minus, SClo _, _, _, _)
    in: fun freeAtom (D, mode, I.Nil, Vs,  ...  , mS, (p + 1, occ)))
Warning: src/modes/modecheck.fun 502.9-514.110.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      AVar _ | EClo _ | EVar _ | NVar _ | Pi _ | Redex _ | Uni _,
                      _)
                     | (_, _, Root (FVar _ | NSDef _ | Proj _ | Skonst _, _), _)
    in: fun groundExpN (D, mode, I.Root (  ...  , occ), u))) Unique)
Warning: src/modes/modecheck.fun 532.9-535.45.
  Function is not exhaustive.
    missing pattern: (_, _, SClo _, _)
    in: and groundSpineN (D, mode, I.Nil,  ...  , S, (p + 1, occ))))
Warning: src/modes/modecheck.fun 592.9-603.49.
  Function is not exhaustive.
    missing pattern: (_, Minus1 | Star, App _, Mnil, _)
                     | (_, Minus1 | Star, Nil, Mapp _, _)
                     | (_, Minus1 | Star, SClo _, _, _)
                     | (_, Minus, App _, Mnil, _)
                     | (_, Minus, Nil, Mapp _, _)
                     | (_, Minus, SClo _, _, _)
                     | (_, Plus, App _, Mnil, _)
                     | (_, Plus, Nil, Mapp _, _)
                     | (_, Plus, SClo _, _, _)
    in: fun groundAtom (D, _, I.Nil, M.Mn  ...  , mS, (p + 1, occ)))
Warning: src/modes/modecheck.fun 616.34-616.51.
  Function is not exhaustive.
    missing pattern: Null
    in: fn I.Decl (D, m) => D
Warning: src/modes/modecheck.fun 636.9-691.13.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _,
                      _)
                     | (_, Pi ((ADec _ | BDec _ | NDec _, _), _), _, _)
                     | (_, Pi ((Dec _, Meta), _), _, _)
                     | (_,
                        Root (BVar _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _,
                        _)
    in: fun checkD1 (D, I.Pi ((I.Dec (nam  ...  lookup (d, occ)) end
Warning: src/modes/modecheck.fun 673.25-685.27.
  Function is not exhaustive.
    missing pattern: nil
    in: fun checkSome [D'] = (groundAtom   ...   Ds) ; checkAll mSs)
Warning: src/modes/modecheck.fun 648.25-660.27.
  Function is not exhaustive.
    missing pattern: nil
    in: fun checkSome [D'] = (groundAtom   ...   Ds) ; checkAll mSs)
Warning: src/modes/modecheck.fun 641.23-641.87.
  Function is not exhaustive.
    missing pattern: Null
    in: fn I.Decl (D', m) => (ctxPush (m,  ...  1, P.label occ, k)))
Warning: src/modes/modecheck.fun 638.23-638.59.
  Function is not exhaustive.
    missing pattern: Null
    in: fn I.Decl (D', m) => (ctxPush (m, k D'))
Warning: src/modes/modecheck.fun 707.9-771.13.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _,
                      _)
                     | (_, Pi ((ADec _ | BDec _ | NDec _, Meta | No), _), _, _)
                     | (_, Pi ((Dec _, Meta), _), _, _)
                     | (_,
                        Root (BVar _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        _,
                        _)
    in: and checkG1 (D, I.Pi ((_, I.Maybe  ...  lookup (d, occ)) end
Warning: src/modes/modecheck.fun 713.31-713.67.
  Function is not exhaustive.
    missing pattern: Null
    in: fn I.Decl (D', m) => (ctxPush (m, k D'))
Warning: src/modes/modecheck.fun 709.31-709.67.
  Function is not exhaustive.
    missing pattern: Null
    in: fn I.Decl (D', m) => (ctxPush (m, k D'))
Warning: src/modes/modecheck.fun 789.9-790.33.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _
    in: fun cidFromHead (I.Const a) = a | cidFromHead (I.Def a) = a
Warning: src/modes/modecheck.fun 802.8-807.44.
  Function is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | EVar _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Redex _
    in: fun checkable (I.Root (Ha, _)) =   ...   V)) = (checkable V)
Warning: src/modes/modecheck.fun 820.9-834.17.
  Function is not exhaustive.
    missing pattern: :: (BVar _
                         | FVar _
                         | FgnConst _
                         | NSDef _
                         | Proj _
                         | Skonst _,
                         _)
    in: fun checkAll nil = () | checkAll   ...  )) ; checkAll clist)
Warning: src/unique/unique.fun 54.9-60.47.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _))
                     | (_, (Pi ((ADec _ | BDec _ | NDec _, _), _), _))
    in: fun instEVars (G, (I.Pi ((I.Dec (  ...   (I.Root _, _)) = Vs
Warning: src/unique/unique.fun 69.9-77.4.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, ADec _ | BDec _ | NDec _))
    in: fun createEVarSub (G, I.Null) = (  ...  Dot (I.Exp X, s) end
Warning: src/unique/unique.fun 90.9-98.47.
  Function is not exhaustive.
    missing pattern: (_, (App _, _), (App _, _), Mnil)
                     | (_, (App _, _), (Nil | SClo _, _), _)
                     | (_, (Nil, _), (App _ | SClo _, _), _)
                     | (_, (Nil, _), (Nil, _), Mapp _)
                     | (_, (SClo _, _), _, _)
    in: fun unifiableSpines (G, (I.Nil, s  ...  s), (S2', s'), ms2))
Warning: src/unique/unique.fun 104.9-106.66.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
                     | (_,
                        (Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _,
                        _)
                     | (_,
                        (Root (Const _, _), _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _),
                        _)
                     | (_,
                        (Root (Const _, _), _),
                        (Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
    in: fun unifiableRoots (G, (I.Root (I  ...   s), (S', s'), ms)))
Warning: src/unique/unique.fun 125.9-137.4.
  Function is not exhaustive.
    missing pattern: (BVar _
                      | Def _
                      | FVar _
                      | FgnConst _
                      | NSDef _
                      | Proj _
                      | Skonst _,
                      _,
                      _)
                     | (Const _,
                        BVar _
                        | Def _
                        | FVar _
                        | FgnConst _
                        | NSDef _
                        | Proj _
                        | Skonst _,
                        _)
    in: fun checkDiffConstConst (I.Const   ...   else ())) in () end
Warning: src/unique/unique.fun 169.9-181.4.
  Function is not exhaustive.
    missing pattern: (_, _, (_, :: (ADec _ | BDec _ | NDec _, _)), _, _)
    in: fun checkDiffBlocksInternal (G, V  ...   ms), (b, xOpt)) end
Warning: src/unique/unique.fun 189.9-202.4.
  Function is not exhaustive.
    missing pattern: (_, (_, :: (ADec _ | BDec _ | NDec _, _)), _, _)
    in: fun checkUniqueBlockInternal' (G,  ...  cs), (a, ms), b) end
Warning: src/unique/unique.fun 221.9-233.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      :: (BVar _
                          | Def _
                          | FVar _
                          | FgnConst _
                          | NSDef _
                          | Proj _
                          | Skonst _,
                          _),
                      _,
                      _)
    in: fun checkUniqueBlockConsts (G, Vs  ...   Vs, cs, ms, bx) end
Warning: src/unique/unique.fun 242.9-251.4.
  Function is not exhaustive.
    missing pattern: (_, _, (_, :: (ADec _ | BDec _ | NDec _, _)), _, _)
    in: fun checkUniqueBlockBlock (G, Vs,  ...  , ms), (bx, b')) end
Warning: src/unique/unique.fun 274.9-289.4.
  Function is not exhaustive.
    missing pattern: (_, (_, :: (ADec _ | BDec _ | NDec _, _)), _, _, _, _)
    in: fun checkUniqueBlock' (G, (t, nil  ...   cs, (a, ms), b) end
Warning: src/cover/cover.fun 60.9-67.4.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun weaken (I.Null, a) = I.id | w  ...  mp (w', I.shift) end
Warning: src/cover/cover.fun 116.9-122.25.
  Function is not exhaustive.
    missing pattern: Mapp (Marg (Minus1, _), _)
    in: fun inCoverInst M.Mnil = Cnil | i  ...  p (inCoverInst ms'))
Warning: src/cover/cover.fun 127.9-131.27.
  Function is not exhaustive.
    missing pattern: Mapp (Marg (Minus1 | Star, _), _)
    in: fun outCoverInst M.Mnil = Cnil |   ...   (outCoverInst ms'))
Warning: src/cover/cover.fun 164.9-170.4.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      ~2147483648 .. ~1 | 1 .. 2147483647,
                      _)
    in: fun abbrevCGoal (G, V, 0, ci) = (  ...  ), V, p - 1, ci) end
Warning: src/cover/cover.fun 171.9-178.36.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _)
    in: and abbrevCGoal' (G, I.Pi ((D, P)  ...  brevCSpine (S, ci)))
Warning: src/cover/cover.fun 190.9-192.84.
  Function is not exhaustive.
    missing pattern: (nil, _)
    in: fun formatCGoals ((V, p) :: nil,   ...  rmatCGoals (Vs, ci))
Warning: src/cover/cover.fun 201.8-201.25.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | Dec (NONE, _) | NDec _
    in: val I.Dec (SOME x, _) = I.ctxLookup (G, k)
Warning: src/cover/cover.fun 234.9-242.39.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _)
                     | (_, _, _, Uni Kind)
    in: fun initCGoal' (a, k, G, I.Pi ((D  ...  a, buildSpine k), k)
Warning: src/cover/cover.fun 358.9-364.34.
  Function is not exhaustive.
    missing pattern: :: (AVar _
                         | EClo _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Root _
                         | Uni _,
                         _)
    in: fun collectConstraints nil = nil   ...  llectConstraints Xs)
Warning: src/cover/cover.fun 398.9-400.69.
  Function is not exhaustive.
    missing pattern: (Cands _, Covered)
                     | (Eqns (:: _), _)
                     | (Eqns nil, Covered)
                     | (Fail, Covered)
    in: fun addKs (ccs as Cands ks, CandL  ...  List (cfl :: klist))
Warning: src/cover/cover.fun 419.9-501.37.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      (AVar _
                       | EClo _
                       | FgnExp _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        _,
                        (Root _, _),
                        (AVar _
                         | EClo _
                         | FgnExp _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _),
                        _)
    in: and matchExpW (G, d, Us1 as (I.Ro  ...  , Us1, Us2), cands))
Warning: src/cover/cover.fun 424.8-479.86.
  Case is not exhaustive.
    missing pattern: (BVar _, FVar _ | FgnConst _ | NSDef _ | Skonst _)
                     | (Const _, FVar _ | FgnConst _ | NSDef _ | Skonst _)
                     | (FVar _ | FgnConst _ | NSDef _ | Skonst _,
                        BVar _
                        | Const _
                        | FVar _
                        | FgnConst _
                        | NSDef _
                        | Proj _
                        | Skonst _)
                     | (Proj (Bidx _, _),
                        FVar _ | FgnConst _ | NSDef _ | Skonst _)
                     | (Proj (Bidx _, _), Proj (Inst _, _))
                     | (Proj (Bidx _, _), Proj (LVar (_, Dot _, _), _))
                     | (Proj (Inst _ | LVar _, _),
                        FVar _ | FgnConst _ | NSDef _ | Proj _ | Skonst _)
    in: case (H1, H2) of (I.BVar k1, I.BV  ...  cal variable clash")
Warning: src/cover/cover.fun 451.7-451.29.
  Declaration is not exhaustive.
    missing pattern: ADec _ | Dec _ | NDec _
    in: val I.BDec (bOpt, (l1, t1)) = I.ctxDec (G, k1)
Warning: src/cover/cover.fun 518.9-528.4.
  Function is not exhaustive.
    missing pattern: (_, _, (App _, _), (Nil, _), _)
                     | (_, _, (Nil, _), (App _, _), _)
    in: and matchSpine (G, d, (I.Nil, _),  ...  S2, s2), cands') end
Warning: src/cover/cover.fun 530.9-531.52.
  Function is not exhaustive.
    missing pattern: (_, _, (ADec _ | BDec _ | NDec _, _), _, _)
                     | (_, _, (Dec _, _), (ADec _ | BDec _ | NDec _, _), _)
    in: and matchDec (G, d, (I.Dec (_, V1  ...  ), (V2, s2), cands))
Warning: src/cover/cover.fun 572.7-583.74.
  Case is not exhaustive.
    missing pattern: (Axp _ | Block _ | Undef, _)
                     | (Exp _, Axp _ | Block _ | Undef)
                     | (Idx _, Axp _ | Block _ | Undef)
    in: case (Ft1, Ft2) of (I.Idx n1, I.I  ...   (U2, I.id), cands))
Warning: src/cover/cover.fun 602.9-615.79.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _,
                      _)
                     | (_,
                        _,
                        (Pi _, _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Redex _
                         | Root _
                         | Uni _,
                         _),
                        _,
                        _)
                     | (_,
                        _,
                        (Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _,
                        _,
                        _)
                     | (_,
                        _,
                        (Root (Const _, _), _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _),
                        _,
                        _)
                     | (_,
                        _,
                        (Root (Const _, _), _),
                        (Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _,
                        _)
    in: and matchTopW (G, d, (I.Root (I.C  ...  ot1 s2), ci, cands))
Warning: src/cover/cover.fun 616.9-632.56.
  Function is not exhaustive.
    missing pattern: (_, _, (App _, _), (App _, _), Cnil, _)
                     | (_, _, (App _, _), (Nil, _), _, _)
                     | (_, _, (Nil, _), (App _, _), _, _)
                     | (_, _, (Nil, _), (Nil, _), Match _ | Skip _, _)
    in: and matchTopSpine (G, d, (I.Nil,   ...  2, s2), ci', cands))
Warning: src/cover/cover.fun 638.9-651.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_, _, (Pi ((ADec _ | BDec _ | NDec _, _), _), _), _)
    in: fun matchClause (G, ps', qs as (I  ...  Exp X1, s)), ci) end
Warning: src/cover/cover.fun 687.9-695.4.
  Function is not exhaustive.
    missing pattern: (_, _, :: (ADec _ | BDec _ | NDec _, _), _, _, _, _, _)
    in: fun matchBlocks (G, s', nil, V, k  ...   (cands, klist)) end
Warning: src/cover/cover.fun 708.9-734.4.
  Function is not exhaustive.
    missing pattern: (_, _, Decl (_, ADec _ | NDec _), _, _, _, _)
    in: fun matchCtx (G, s', I.Null, V, k  ...  + 1, ci, klist') end
Warning: src/cover/cover.fun 741.9-755.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      ~2147483648 .. ~1 | 1 .. 2147483647)
                     | (_,
                        _,
                        _,
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        ~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun matchOut (G, V, ci, (V', s'),  ...  X1, s')), p - 1) end
Warning: src/cover/cover.fun 766.9-772.42.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      ~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      _)
                     | (_,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Uni _,
                        0,
                        _,
                        Input _)
                     | (_,
                        Root (BVar _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        ~2147483648 .. ~1 | 1 .. 2147483647,
                        _,
                        _)
                     | (_,
                        Root (BVar _
                              | Def _
                              | FVar _
                              | FgnConst _
                              | NSDef _
                              | Proj _
                              | Skonst _,
                              _),
                        0,
                        _,
                        Input _)
                     | (_,
                        Root (Const _, _),
                        ~2147483648 .. ~1 | 1 .. 2147483647,
                        _,
                        _)
    in: fun match (G, V as I.Root (I.Cons  ...  V', p - 1, ci, ccs))
Warning: src/cover/cover.fun 804.9-810.38.
  Function is not exhaustive.
    missing pattern: (:: (Eqns _, _), _)
    in: and selectCand' (nil, ksn) = (SOM  ...  st, join (ks, ksn)))
Warning: src/cover/cover.fun 826.9-844.4.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      ~2147483648 .. ~1 | 1 .. 2147483647,
                      _)
                     | ((Pi ((ADec _ | NDec _, _), _), _),
                        ~2147483648 .. ~1 | 1 .. 2147483647,
                        _)
    in: and instEVarsW (Vs, 0, XsRev) = (  ...  , NONE :: XsRev) end
Warning: src/cover/cover.fun 871.9-878.4.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _))
                     | (_, (Pi ((ADec _ | BDec _ | NDec _, _), _), _))
    in: and createEVarSpineW (G, Vs as (I  ...  .App (X, S), Vs) end
Warning: src/cover/cover.fun 888.9-894.4.
  Function is not exhaustive.
    missing pattern: (_,
                      BVar _
                      | Def _
                      | FVar _
                      | FgnConst _
                      | NSDef _
                      | Proj _
                      | Skonst _)
    in: fun createAtomConst (G, H as I.Co  ...  Root (H, S), Vs) end
Warning: src/cover/cover.fun 906.8-906.19.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.ctxDec (G, k)
Warning: src/cover/cover.fun 929.9-939.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      :: (BVar _
                          | Def _
                          | FVar _
                          | FgnConst _
                          | NSDef _
                          | Proj _
                          | Skonst _,
                          _),
                      _)
    in: fun constCases (G, Vs, nil, sc) =  ...  G, Vs, sgn', sc) end
Warning: src/cover/cover.fun 961.9-970.4.
  Function is not exhaustive.
    missing pattern: Decl (_, ADec _ | BDec _ | NDec _)
    in: fun createEVarSub I.Null = I.id |  ...  Dot (I.Exp X, s) end
Warning: src/cover/cover.fun 1002.9-1014.4.
  Function is not exhaustive.
    missing pattern: (_, _, _, (_, :: (ADec _ | BDec _ | NDec _, _)), _)
    in: and blockCases' (G, Vs, (lvar, i)  ...  t', piDecs), sc) end
Warning: src/cover/cover.fun 1021.9-1033.25.
  Function is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | FgnExp _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _
                      | Uni _,
                      _,
                      _)
    in: fun lowerSplitW (X as I.EVar (_,   ...  erSplitW (U, W, sc))
Warning: src/cover/cover.fun 1108.8-1108.14.
  Declaration is not exhaustive.
    missing pattern: NONE
    in: val SOME X = List.nth (XsRev, k - 1)
Warning: src/cover/cover.fun 1136.9-1140.51.
  Function is not exhaustive.
    missing pattern: (_, AVar _ | EClo _ | EVar _ | NVar _ | Redex _)
    in: fun occursInExp (k, I.Uni _) = fa  ...  p (cs, ops)) = false
Warning: src/cover/cover.fun 1149.9-1150.88.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and occursInSpine (_, I.Nil) = fa  ...  cursInSpine (k, S)))
Warning: src/cover/cover.fun 1153.9-1153.58.
  Function is not exhaustive.
    missing pattern: (_, ADec _ | BDec _ | NDec _)
    in: and occursInDec (k, I.Dec (_, V)) = (occursInExp (k, V))
Warning: src/cover/cover.fun 1160.9-1163.35.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Uni _,
                      _)
    in: fun occursInMatchPos (k, I.Pi (DP  ...  PosSpine (k, S, ci))
Warning: src/cover/cover.fun 1164.9-1168.42.
  Function is not exhaustive.
    missing pattern: (_, App _, Cnil)
                     | (_, Nil, Match _ | Skip _)
                     | (_, SClo _, _)
    in: and occursInMatchPosSpine (k, I.N  ...  PosSpine (k, S, ci))
Warning: src/cover/cover.fun 1176.9-1197.4.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      ~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      _)
                     | ((Pi ((ADec _ | NDec _, _), _), _),
                        ~2147483648 .. ~1 | 1 .. 2147483647,
                        _,
                        _)
    in: and InstEVarsSkipW (Vs, 0, XsRev,  ...  NE :: XsRev, ci) end
Warning: src/cover/cover.fun 1199.9-1203.7.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _
                      | Uni _)
                     | (_, EVar (ref (SOME _), _, _, _))
    in: fun targetBelowEq (a, I.EVar (ref  ...  ef (_ :: _))) = true
Warning: src/cover/cover.fun 1212.9-1223.46.
  Function is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | EVar (ref NONE, _, _, _)
                     | FgnExp _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: fun recursive (X as I.EVar (ref (  ...   U)) = (recursive U)
Warning: src/cover/cover.fun 1343.9-1354.35.
  Function is not exhaustive.
    missing pattern: (Mapp (Marg (Minus1 | Minus | Star, _), _),
                      (App _, _),
                      (Nil, _))
                     | (Mapp (Marg (Minus1 | Minus | Star, _), _),
                        (Nil, _),
                        (App _ | Nil, _))
                     | (Mapp (Marg (Plus, _), _), (App _, _), (Nil, _))
                     | (Mapp (Marg (Plus, _), _), (Nil, _), (App _ | Nil, _))
                     | (Mnil, (App _, _), (App _ | Nil, _))
                     | (Mnil, (Nil, _), (App _, _))
    in: fun eqInpSpine (ms, (I.SClo (S1,   ...  , (S, s), (S', s')))
Warning: src/cover/cover.fun 1363.9-1374.29.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _), _, _, _, _)
                     | (Decl (_,
                              Dec (_,
                                   AVar _
                                   | EClo _
                                   | EVar _
                                   | FgnExp _
                                   | Lam _
                                   | NVar _
                                   | Redex _
                                   | Uni _)),
                        _,
                        _,
                        _,
                        _)
                     | (Decl (_,
                              Dec (_,
                                   Root (BVar _
                                         | Def _
                                         | FVar _
                                         | FgnConst _
                                         | NSDef _
                                         | Proj _
                                         | Skonst _,
                                         _))),
                        _,
                        _,
                        _,
                        _)
    in: fun eqInp (I.Null, k, a, Ss, ms)   ...  , k + 1, a, Ss, ms))
Warning: src/cover/cover.fun 1383.9-1400.29.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _), _)
                     | (Decl (_,
                              Dec (_,
                                   AVar _
                                   | EClo _
                                   | EVar _
                                   | FgnExp _
                                   | Lam _
                                   | NVar _
                                   | Redex _
                                   | Uni _)),
                        _)
                     | (Decl (_,
                              Dec (_,
                                   Root (BVar _
                                         | Def _
                                         | FVar _
                                         | FgnConst _
                                         | NSDef _
                                         | Proj _
                                         | Skonst _,
                                         _))),
                        _)
    in: fun contractionCands (I.Null, k)   ...  onCands (G', k + 1))
Warning: src/cover/cover.fun 1406.9-1408.51.
  Function is not exhaustive.
    missing pattern: (_,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      ~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun isolateSplittable (G, V, 0) =  ...   (G, D), V', p - 1))
Warning: src/cover/cover.fun 1418.9-1428.48.
  Function is not exhaustive.
    missing pattern: (Mapp (Marg (Minus1, _), _), (App _, _), (Nil, _))
                     | (Mapp (Marg (Minus1, _), _), (Nil, _), (App _ | Nil, _))
                     | (Mapp (Marg (Minus | Plus | Star, _), _),
                        (App _, _),
                        (Nil, _))
                     | (Mapp (Marg (Minus | Plus | Star, _), _),
                        (Nil, _),
                        (App _ | Nil, _))
                     | (Mnil, (App _, _), (App _ | Nil, _))
                     | (Mnil, (Nil, _), (App _, _))
    in: fun unifyUOutSpine (ms, (I.SClo (  ...  (S1, s1), (S2, s2)))
Warning: src/cover/cover.fun 1440.9-1446.4.
  Function is not exhaustive.
    missing pattern: ((AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Pi _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | ((Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _)
                     | ((Root (Const _, _), _),
                        (AVar _
                         | EClo _
                         | EVar _
                         | FgnExp _
                         | Lam _
                         | NVar _
                         | Pi _
                         | Redex _
                         | Uni _,
                         _))
                     | ((Root (Const _, _), _),
                        (Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _))
    in: and unifyUOutTypeW ((I.Root (I.Co  ...  , s1), (S2, s2)) end
Warning: src/cover/cover.fun 1443.8-1443.15.
  Declaration is not exhaustive.
    missing pattern: NONE
    in: val SOME ms = UniqueTable.modeLookup a1
Warning: src/cover/cover.fun 1456.9-1458.32.
  Function is not exhaustive.
    missing pattern: (NONE, _)
                     | (SOME (AVar _
                              | EClo _
                              | FgnExp _
                              | Lam _
                              | NVar _
                              | Pi _
                              | Redex _
                              | Root _
                              | Uni _),
                        _)
                     | (SOME (EVar _), NONE)
                     | (SOME (EVar _),
                        SOME (AVar _
                              | EClo _
                              | FgnExp _
                              | Lam _
                              | NVar _
                              | Pi _
                              | Redex _
                              | Root _
                              | Uni _))
    in: fun unifyUOutEVars (SOME (I.EVar   ...  fyUOutType (V1, V2))
Warning: src/cover/cover.fun 1539.9-1539.51.
  Function is not exhaustive.
    missing pattern: nil
    in: fun findMin ((k, n) :: kns) = (findMin' ((k, n), kns))
Warning: src/cover/cover.fun 1616.9-1618.74.
  Function is not exhaustive.
    missing pattern: :: (BVar _
                         | FVar _
                         | FgnConst _
                         | NSDef _
                         | Proj _
                         | Skonst _,
                         _)
    in: fun constsToTypes nil = nil | con  ...  : constsToTypes cs')
Warning: src/cover/cover.fun 1651.9-1666.72.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
                     | (_,
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        ~2147483648 .. ~1 | 1 .. 2147483647,
                        _)
                     | (_,
                        (Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _),
                        _,
                        _)
    in: and createCoverGoalW (G, (I.Pi ((  ...  pe cid, I.id), ms)))
Warning: src/cover/cover.fun 1668.9-1684.52.
  Function is not exhaustive.
    missing pattern: (_,
                      (App _, _),
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _)
                     | (_,
                        (App _, _),
                        (Pi ((ADec _ | BDec _ | NDec _, _), _), _),
                        Mnil)
                     | (_, (App _, _), (Pi ((Dec _, _), _), _), Mnil)
                     | (_, (Nil, _), _, Mapp _)
    in: and createCoverSpine (G, (I.Nil,   ...  p (s', s)), Vs, ms))
Warning: src/cover/cover.fun 1732.8-1732.15.
  Declaration is not exhaustive.
    missing pattern: NONE
    in: val SOME ms = ModeTable.modeLookup a
Warning: src/cover/cover.fun 1786.8-1786.25.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | Dec (NONE, _) | NDec _
    in: val I.Dec (SOME x, _) = I.ctxLookup (G, k)
Warning: src/cover/cover.fun 1796.9-1827.4.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, ADec _))
    in: fun newEVarSubst (G, I.Null) = (I  ...  (I.Block L1, s') end
Warning: src/cover/cover.fun 1907.9-1908.50.
  Function is not exhaustive.
    missing pattern: (Shift _, _)
    in: fun kthSub (I.Dot (I.Exp X, s), 1  ...   (kthSub (s, k - 1))
Warning: src/cover/cover.fun 1914.9-1918.23.
  Function is not exhaustive.
    missing pattern: Shift (~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun subToXsRev (I.Shift 0) = nil   ...  ONE :: subToXsRev s)
Warning: src/cover/cover.fun 2081.9-2104.24.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Undef, _),
                      Decl (_, ADec _ | Dec _),
                      _)
                     | (Dot (Axp _ | Block _ | Undef, _), Null, _)
                     | (Dot (Exp _, _), Null, _)
                     | (Dot (Idx _, _), Decl (_, ADec _), _)
                     | (Dot (Idx _, _), Null, _)
    in: fun substToSpine' (I.Shift n, I.N  ...  tToSpine' (s, G, T))
Warning: src/cover/cover.fun 2121.9-2149.4.
  Function is not exhaustive.
    missing pattern: Decl (_, ADec _)
    in: fun purify' I.Null = (I.Null, I.i  ...  ot (I.Undef, s)) end
Warning: src/cover/total.fun 92.9-100.64.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _,
                      _)
                     | (_,
                        (Pi ((ADec _ | BDec _ | NDec _, Meta | No), _), _),
                        _,
                        _)
                     | (_, (Pi ((Dec _, Meta), _), _), _, _)
    in: and checkDynOrderW (G, (I.Root _,  ...   s), n, P.body occ))
Warning: src/cover/total.fun 111.9-127.3.
  Function is not exhaustive.
    missing pattern: (_,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _),
                      _)
                     | (_, (Pi ((ADec _ | BDec _ | NDec _, Meta | No), _), _), _)
                     | (_, (Pi ((Dec _, Meta), _), _), _)
    in: and checkClauseW (G, (I.Pi ((D1,   ...  oot _, s), occ) = ()
Warning: src/cover/total.fun 149.9-159.74.
  Function is not exhaustive.
    missing pattern: (_, Mapp (Marg (Minus1, _), _))
    in: fun checkDefinite (a, M.Mnil) = (  ...   indefinite (*)"))))
Warning: src/cover/total.fun 165.9-185.28.
  Function is not exhaustive.
    missing pattern: :: (BVar _
                         | FVar _
                         | FgnConst _
                         | NSDef _
                         | Proj _
                         | Skonst _,
                         _)
    in: fun checkOutCover nil = () | chec  ...   ; checkOutCover cs)
Warning: src/cover/total.fun 211.8-211.15.
  Declaration is not exhaustive.
    missing pattern: NONE
    in: val SOME ms = ModeTable.modeLookup a
Warning: src/tomega/abstract.fun 47.9-57.68.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Exp _, _), _, _)
    in: fun strengthenToSpine (I.Shift _,  ...  k + 1)), l, (n, S)))
Warning: src/tomega/abstract.fun 69.9-111.49.
  Function is not exhaustive.
    missing pattern: (_, (Ex ((ADec _ | BDec _ | NDec _, _), _), _))
                     | (_, (FClo _ | FVar _ | World _, _))
    in: fun raiseFor (B', (T.True, t)) =   ...  _)) = (raise Domain)
Warning: src/tomega/abstract.fun 123.9-142.4.
  Function is not exhaustive.
    missing pattern: (_,
                      (Box _
                       | Case _
                       | Choose _
                       | Const _
                       | EVar _
                       | Lam _
                       | LetPairExp _
                       | LetUnit _
                       | Let _
                       | New _
                       | PClo _
                       | PairBlock _
                       | Rec _
                       | Redex _
                       | Var _,
                       _),
                      _)
                     | (_,
                        (PairExp _, _),
                        All _ | And _ | FClo _ | FVar _ | True | World _)
                     | (_, (PairExp _, _), Ex ((ADec _ | BDec _ | NDec _, _), _))
                     | (_,
                        (PairPrg _, _),
                        All _ | Ex _ | FClo _ | FVar _ | True | World _)
    in: fun raisePrg (G, (T.Unit, t), _)   ...  PairExp (U', P') end
Warning: src/tomega/tomegaprint.fun 60.6-62.57.
  Function is not exhaustive.
    missing pattern: :: ((Box _
                          | Case _
                          | Choose _
                          | Const _
                          | Lam _
                          | LetPairExp _
                          | LetUnit _
                          | Let _
                          | New _
                          | PClo _
                          | PairBlock _
                          | PairExp _
                          | PairPrg _
                          | Rec _
                          | Redex _
                          | Unit
                          | Var _,
                          _)
                         | (EVar (_,
                                  _,
                                  _,
                                  _,
                                  _,
                                  AVar _
                                  | EClo _
                                  | FgnExp _
                                  | Lam _
                                  | NVar _
                                  | Pi _
                                  | Redex _
                                  | Root _
                                  | Uni _),
                            _))
    in: fun evarName' nil = (raise (Error  ...   Y else evarName' L)
Warning: src/tomega/tomegaprint.fun 67.9-67.91.
  Function is not exhaustive.
    missing pattern: Box _
                     | Case _
                     | Choose _
                     | Const _
                     | EVar (_,
                             _,
                             _,
                             _,
                             _,
                             AVar _
                             | EClo _
                             | FgnExp _
                             | Lam _
                             | NVar _
                             | Pi _
                             | Redex _
                             | Root _
                             | Uni _)
                     | Lam _
                     | LetPairExp _
                     | LetUnit _
                     | Let _
                     | New _
                     | PClo _
                     | PairBlock _
                     | PairExp _
                     | PairPrg _
                     | Rec _
                     | Redex _
                     | Unit
                     | Var _
    in: fun nameEVar (T.EVar (_, _, _, _,  ...  mes.evarName (G, X))
Warning: src/tomega/tomegaprint.fun 112.9-160.22.
  Function is not exhaustive.
    missing pattern: (_, FClo _ | FVar _)
    in: fun formatFor' (Psi, T.All ((D, T  ...  formatFor' (Psi, F))
Warning: src/tomega/tomegaprint.fun 125.8-133.9.
  Case is not exhaustive.
    missing pattern: PDec _
    in: case D of T.UDec D => let val G =  ...  , T.UDec D'), F) end
Warning: src/tomega/tomegaprint.fun 114.8-122.9.
  Case is not exhaustive.
    missing pattern: PDec _
    in: case D of T.UDec D => let val G =  ...  , T.UDec D'), F) end
Warning: src/tomega/tomegaprint.fun 224.10-225.63.
  Function is not exhaustive.
    missing pattern: (ADec _ | BDec _ | NDec _, _)
    in: fun nameDec (D as I.Dec (SOME _,   ...  .Dec (SOME name, V))
Warning: src/tomega/tomegaprint.fun 227.10-230.41.
  Function is not exhaustive.
    missing pattern: (Decl (_, PDec _), _, _) | (Null, _, _)
    in: fun namePsi (I.Decl (Psi, T.UDec   ...  , n - 1, name), LD))
Warning: src/tomega/tomegaprint.fun 246.10-264.50.
  Function is not exhaustive.
    missing pattern: ((Dot (Block _ | Undef, _), _), _)
                     | ((Dot (Exp _, _), Null), _)
                     | ((Dot (Idx _, _), Decl (_, PDec _)), _)
                     | ((Dot (Idx _, _),
                         Decl (_, UDec (ADec _ | BDec _ | NDec _))),
                        _)
                     | ((Dot (Idx _, _), Null), _)
                     | ((Dot (Prg _, _), Decl (_, UDec _)), _)
                     | ((Dot (Prg _, _), Null), _)
    in: fun copyNames (T.Shift n, G as I.  ...   I.Null) Psi1 = Psi1
Warning: src/tomega/tomegaprint.fun 466.7-473.32.
  Function is not exhaustive.
    missing pattern: (_, (_, AppBlock _ | SClo _))
    in: fun fmtSpine callname (Psi, T.Nil  ...  ' callname (Psi, S))
Warning: src/tomega/tomegaprint.fun 510.6-518.44.
  Function is not exhaustive.
    missing pattern: (Dot (Block _ | Undef, _),
                      ~2147483648 .. ~1 | 1 .. 2147483647,
                      _)
    in: and argsToSpine (s, 0, S) = S | a  ...  1, T.AppPrg (P, S)))
Warning: src/tomega/tomegaprint.fun 533.10-538.55.
  Function is not exhaustive.
    missing pattern: Box _
                     | Case _
                     | Choose _
                     | Const _
                     | EVar _
                     | Lam _
                     | LetPairExp _
                     | LetUnit _
                     | Let _
                     | New _
                     | PClo _
                     | PairBlock _
                     | PairPrg _
                     | Rec _
                     | Redex _
                     | Var _
    in: fun formatTuple' T.Unit = nil | f  ...   :: formatTuple' P')
Warning: src/tomega/tomegaprint.fun 547.13-574.8.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       Box _
                       | Case _
                       | Choose _
                       | EVar _
                       | Lam _
                       | LetPairExp _
                       | LetUnit _
                       | Let _
                       | New _
                       | PClo _
                       | PairBlock _
                       | PairExp _
                       | PairPrg _
                       | Rec _
                       | Unit,
                       _))
                     | (_,
                        (_,
                         Redex (Box _
                                | Case _
                                | Choose _
                                | EVar _
                                | Lam _
                                | LetPairExp _
                                | LetUnit _
                                | Let _
                                | New _
                                | PClo _
                                | PairBlock _
                                | PairExp _
                                | PairPrg _
                                | Rec _
                                | Redex _
                                | Unit
                                | Var _,
                                _),
                         _))
    in: and formatRedex callname (Psi, T.  ...  reak :: Fspine)] end
Warning: src/tomega/tomegaprint.fun 559.12-559.32.
  Declaration is not exhaustive.
    missing pattern: ForDec _
    in: val T.ValDec (name, _, _) = T.lemmaLookup l
Warning: src/tomega/tomegaprint.fun 550.12-550.38.
  Declaration is not exhaustive.
    missing pattern: PDec (NONE, _, _, _) | UDec _
    in: val T.PDec (SOME name, _, _, _) = I.ctxLookup (Psi, k)
Warning: src/tomega/tomegaprint.fun 660.7-660.30.
  Declaration is not exhaustive.
    missing pattern: PDec (NONE, _, _, _) | UDec _
    in: val T.PDec (SOME n, _, _, _) = I.ctxLookup (Psi, n)
Warning: src/tomega/tomegaprint.fun 695.6-819.27.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       Box _
                       | Case _
                       | Choose _
                       | Const _
                       | EVar _
                       | Lam _
                       | New _
                       | PClo _
                       | PairBlock _
                       | PairExp _
                       | PairPrg _
                       | Rec _
                       | Redex _
                       | Unit
                       | Var _,
                       _))
                     | (_,
                        (_, LetPairExp (ADec _ | BDec _ | NDec _, _, _, _), _))
                     | (_, (_, LetPairExp (Dec (NONE, _), _, _, _), _))
                     | (_,
                        (_,
                         LetPairExp (Dec (SOME _, _), PDec (NONE, _, _, _), _, _),
                         _))
                     | (_, (_, LetPairExp (Dec (SOME _, _), UDec _, _, _), _))
                     | (_,
                        (_,
                         Let (PDec (NONE, _, _, _),
                              _,
                              Box _
                              | Choose _
                              | Const _
                              | EVar _
                              | Lam _
                              | LetPairExp _
                              | LetUnit _
                              | Let _
                              | New _
                              | PClo _
                              | PairBlock _
                              | PairExp _
                              | PairPrg _
                              | Rec _
                              | Redex _
                              | Unit
                              | Var _),
                         _))
                     | (_,
                        (_,
                         Let (UDec _,
                              _,
                              Box _
                              | Choose _
                              | Const _
                              | EVar _
                              | Lam _
                              | LetPairExp _
                              | LetUnit _
                              | Let _
                              | New _
                              | PClo _
                              | PairBlock _
                              | PairExp _
                              | PairPrg _
                              | Rec _
                              | Redex _
                              | Unit
                              | Var _),
                         _))
    in: and formatLet callname (Psi, T.Le  ...  , Fmt.String "end"])
Warning: src/tomega/tomegaprint.fun 758.12-770.5.
  Function is not exhaustive.
    missing pattern: nil
    in: fun fmtCase ((Psi1, s1, P2) :: L)  ...  @ fmtCaseRest L) end
Warning: src/tomega/tomegaprint.fun 875.6-878.57.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      _,
                      Box _
                      | Choose _
                      | Const _
                      | EVar _
                      | LetPairExp _
                      | LetUnit _
                      | Let _
                      | New _
                      | PClo _
                      | PairBlock _
                      | PairExp _
                      | PairPrg _
                      | Rec _
                      | Redex _
                      | Unit
                      | Var _,
                      _)
    in: fun formatPrg11 (name, (max, inde  ...   Psi, Os, callname))
Warning: src/tomega/tomegaprint.fun 889.6-893.57.
  Function is not exhaustive.
    missing pattern: (:: (_, :: _),
                      _,
                      _,
                      Box _
                      | Case _
                      | Choose _
                      | Const _
                      | EVar _
                      | Lam _
                      | LetPairExp _
                      | LetUnit _
                      | Let _
                      | New _
                      | PClo _
                      | PairBlock _
                      | PairExp _
                      | Rec _
                      | Redex _
                      | Unit
                      | Var _,
                      _)
                     | (nil, _, _, _, _)
    in: fun formatPrg1 (name :: names, (m  ...  , Psi, P, callname))
Warning: src/tomega/tomegaprint.fun 909.13-910.63.
  Function is not exhaustive.
    missing pattern: ((:: _, nil), _) | ((nil, _), _)
    in: fun lookup (name :: names, proj :  ...  names, projs) lemma)
Warning: src/tomega/tomegaprint.fun 912.6-918.6.
  Function is not exhaustive.
    missing pattern: (_,
                      Box _
                      | Case _
                      | Choose _
                      | Const _
                      | EVar _
                      | Lam _
                      | LetPairExp _
                      | LetUnit _
                      | Let _
                      | New _
                      | PClo _
                      | PairBlock _
                      | PairExp _
                      | PairPrg _
                      | Redex _
                      | Unit
                      | Var _)
                     | (_, Rec (PDec (NONE, _, _, _), _))
                     | (_, Rec (UDec _, _))
    in: fun formatPrg0 ((names, projs), T  ...   projs) lemma))) end
Warning: src/tomega/tomegaprint.fun 940.10-940.17.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | Dec _
    in: val I.NDec x = Names.decName (T.coerceCtx Psi', I.NDec NONE)
Warning: src/tomega/tomegaprint.fun 957.9-988.23.
  Function is not exhaustive.
    missing pattern: Decl ((Decl _, PDec (NONE, _, _, _))
                           | (Null, PDec (NONE, _, _, _)))
    in: fun formatCtx I.Null = [] | forma  ...  formatFor (Psi, F)])
Warning: src/tomega/typecheck.fun 33.10-36.32.
  Function is not exhaustive.
    missing pattern: (Box _
                      | Case _
                      | Choose _
                      | EVar _
                      | Lam _
                      | LetPairExp _
                      | LetUnit _
                      | Let _
                      | New _
                      | PClo _
                      | PairBlock _
                      | PairExp _
                      | PairPrg _
                      | Rec _
                      | Redex _
                      | Unit,
                      _)
    in: fun normalizeHead (T.Const lemma,  ...  dx k' => (T.Var k'))
Warning: src/tomega/typecheck.fun 36.8-36.31.
  Case is not exhaustive.
    missing pattern: Block _ | Exp _ | Prg _ | Undef
    in: case T.varSub (k, t) of T.Idx k' => (T.Var k')
Warning: src/tomega/typecheck.fun 76.8-76.37.
  Declaration is not exhaustive.
    missing pattern: PDec _ | UDec (ADec _ | Dec _ | NDec _)
    in: val T.UDec (I.BDec (_, (cid', s'))) = T.ctxDec (Psi, k)
Warning: src/tomega/typecheck.fun 93.9-149.4.
  Function is not exhaustive.
    missing pattern: (_,
                      Box _
                      | Case _
                      | Choose _
                      | EVar _
                      | LetPairExp _
                      | LetUnit _
                      | PClo _)
                     | (_, Let (UDec _, _, _))
                     | (_, PairBlock (Inst _ | LVar _, _))
                     | (_, Rec (UDec _, _))
    in: and inferPrg (Psi, T.Lam (D, P))   ...  i, D), P2) in F2 end
Warning: src/tomega/typecheck.fun 128.62-128.87.
  Case is not exhaustive.
    missing pattern: UDec _
    in: case T.ctxDec (Psi, k) of T.PDec (_, F', _, _) => F'
Warning: src/tomega/typecheck.fun 101.8-101.47.
  Declaration is not exhaustive.
    missing pattern: All (((PDec _, _), _)
                          | ((UDec (ADec _ | Dec _ | NDec _), _), _))
                     | And _
                     | Ex _
                     | FClo _
                     | FVar _
                     | True
                     | World _
    in: val T.All ((T.UDec (D as I.BDec _  ...   = inferPrg (Psi, P)
Warning: src/tomega/typecheck.fun 162.9-263.31.
  Function is not exhaustive.
    missing pattern: (_,
                      (Box _, (All _ | And _ | Ex _ | FClo _ | FVar _ | True, _)))
                     | (_,
                        (Choose _ | EVar _ | LetPairExp _ | LetUnit _ | PClo _,
                         _))
                     | (_, (Lam (PDec _, _), (All ((UDec _, _), _), _)))
                     | (_,
                        (Lam (PDec _, _),
                         (And _ | Ex _ | FClo _ | FVar _ | True | World _, _)))
                     | (_, (Lam (UDec _, _), (All ((PDec _, _), _), _)))
                     | (_,
                        (Lam (UDec _, _),
                         (And _ | Ex _ | FClo _ | FVar _ | True | World _, _)))
                     | (_, (Let (UDec _, _, _), _))
                     | (_,
                        (New (Box _
                              | Case _
                              | Choose _
                              | Const _
                              | EVar _
                              | LetPairExp _
                              | LetUnit _
                              | Let _
                              | New _
                              | PClo _
                              | PairBlock _
                              | PairExp _
                              | PairPrg _
                              | Rec _
                              | Redex _
                              | Unit
                              | Var _),
                         _))
                     | (_, (New (Lam (PDec _, _)), _))
                     | (_, (New (Lam (UDec (ADec _ | Dec _ | NDec _), _)), _))
                     | (_,
                        (PairBlock (Bidx _, _),
                         (All _ | And _ | FClo _ | FVar _ | True | World _, _)))
                     | (_,
                        (PairBlock (Bidx _, _),
                         (Ex ((ADec _ | Dec _ | NDec _, _), _), _)))
                     | (_, (PairBlock (Inst _ | LVar _, _), _))
                     | (_,
                        (PairExp _,
                         (All _ | And _ | FClo _ | FVar _ | True | World _, _)))
                     | (_,
                        (PairExp _, (Ex ((ADec _ | BDec _ | NDec _, _), _), _)))
                     | (_,
                        (PairPrg _,
                         (All _ | Ex _ | FClo _ | FVar _ | True | World _, _)))
                     | (_, (Rec (UDec _, _), _))
                     | (_,
                        (Unit,
                         (All _ | And _ | Ex _ | FClo _ | FVar _ | World _, _)))
    in: and checkPrgW (_, (T.Unit, (T.Tru  ...   (Psi, (P, (F, t))))
Warning: src/tomega/typecheck.fun 249.8-249.34.
  Declaration is not exhaustive.
    missing pattern: All ((PDec _, _), _)
                     | And _
                     | Ex _
                     | FClo _
                     | FVar _
                     | True
                     | World _
    in: val T.All ((T.UDec D'', _), F') = inferPrg (Psi, P')
Warning: src/tomega/typecheck.fun 199.8-199.37.
  Declaration is not exhaustive.
    missing pattern: PDec _ | UDec (ADec _ | Dec _ | NDec _)
    in: val T.UDec (I.BDec (_, (cid', s'))) = T.ctxDec (Psi, k)
Warning: src/tomega/typecheck.fun 171.31-171.87.
  Case is not exhaustive.
    missing pattern: UDec _
    in: case T.ctxDec (Psi, k) of T.PDec   ...  (F', T.id), (F, t)))
Warning: src/tomega/typecheck.fun 266.9-273.68.
  Function is not exhaustive.
    missing pattern: (_, AppBlock _ | SClo _, _, _)
                     | (_, AppExp _, (All ((PDec _, _), _), _), _)
                     | (_,
                        AppExp _,
                        (All ((UDec (ADec _ | BDec _ | NDec _), _), _), _),
                        _)
                     | (_,
                        AppExp _,
                        (And _ | Ex _ | FVar _ | True | World _, _),
                        _)
                     | (_, AppPrg _, (All ((UDec _, _), _), _), _)
                     | (_,
                        AppPrg _,
                        (And _ | Ex _ | FClo _ | FVar _ | True | World _, _),
                        _)
    in: and checkSpine (Psi, T.Nil, (F, t  ...  (t1, t)), (F', t')))
Warning: src/tomega/typecheck.fun 408.9-469.4.
  Function is not exhaustive.
    missing pattern: (_,
                      Dot (Block (Bidx _), _),
                      Dot (Block (Bidx _), _),
                      Decl (_, PDec _))
                     | (_,
                        Dot (Block (Bidx _), _),
                        Dot (Block (Bidx _), _),
                        Decl (_, UDec (ADec _ | Dec _ | NDec _)))
                     | (_,
                        Dot (Block (Bidx _), _),
                        Dot (Block (Bidx _), _),
                        Null)
                     | (_,
                        Dot (Block (Bidx _), _),
                        Dot (Block (Inst _ | LVar _), _),
                        _)
                     | (_,
                        Dot (Block (Bidx _), _),
                        Dot (Exp _ | Idx _ | Prg _ | Undef, _),
                        _)
                     | (_, Dot (Block (Inst _ | LVar _), _), Dot _, _)
                     | (_, Dot (Exp _, _), Dot (Block _ | Prg _ | Undef, _), _)
                     | (_, Dot (Exp _, _), Dot (Exp _, _), Decl (_, PDec _))
                     | (_,
                        Dot (Exp _, _),
                        Dot (Exp _, _),
                        Decl (_, UDec (ADec _ | BDec _ | NDec _)))
                     | (_, Dot (Exp _, _), Dot (Exp _, _), Null)
                     | (_, Dot (Exp _, _), Dot (Idx _, _), Decl (_, PDec _))
                     | (_,
                        Dot (Exp _, _),
                        Dot (Idx _, _),
                        Decl (_, UDec (ADec _ | BDec _ | NDec _)))
                     | (_, Dot (Exp _, _), Dot (Idx _, _), Null)
                     | (_, Dot (Idx _, _), Dot (Block _ | Undef, _), _)
                     | (_, Dot (Idx _, _), Dot (Exp _, _), Decl (_, PDec _))
                     | (_,
                        Dot (Idx _, _),
                        Dot (Exp _, _),
                        Decl (_, UDec (ADec _ | BDec _ | NDec _)))
                     | (_, Dot (Idx _, _), Dot (Exp _, _), Null)
                     | (_, Dot (Idx _, _), Dot (Idx _, _), Null)
                     | (_, Dot (Idx _, _), Dot (Prg _, _), Decl (_, UDec _))
                     | (_, Dot (Idx _, _), Dot (Prg _, _), Null)
                     | (_, Dot (Prg _, _), Dot (Block _ | Exp _ | Undef, _), _)
                     | (_, Dot (Prg _, _), Dot (Idx _, _), Decl (_, UDec _))
                     | (_, Dot (Prg _, _), Dot (Idx _, _), Null)
                     | (_, Dot (Prg _, _), Dot (Prg _, _), Decl (_, UDec _))
                     | (_, Dot (Prg _, _), Dot (Prg _, _), Null)
                     | (_, Dot (Undef, _), Dot _, _)
    in: and convSub (G, T.Shift k1, T.Shi  ...   (G, s1, s2, G') end
Warning: src/tomega/typecheck.fun 424.10-424.38.
  Declaration is not exhaustive.
    missing pattern: PDec _ | UDec (ADec _ | Dec _ | NDec _)
    in: val T.UDec (I.BDec (_, (l1, s11))) = T.ctxDec (G, v1)
Warning: src/tomega/typecheck.fun 425.10-425.38.
  Declaration is not exhaustive.
    missing pattern: PDec _ | UDec (ADec _ | Dec _ | NDec _)
    in: val T.UDec (I.BDec (_, (l2, s22))) = T.ctxDec (G, v2)
Warning: src/tomega/typecheck.fun 472.9-486.25.
  Function is not exhaustive.
    missing pattern: (_, (FVar _, _))
    in: and checkFor (Psi, (T.True, _)) =  ...  ckFor (Psi, (F, t)))
Warning: src/tomega/typecheck.fun 505.9-563.77.
  Function is not exhaustive.
    missing pattern: (Decl _, Dot (Block _, _), Decl (_, PDec _))
                     | (Decl _,
                        Dot (Block _, _),
                        Decl (_, UDec (ADec _ | Dec _ | NDec _)))
                     | (Decl _, Dot (Exp _, _), Decl (_, PDec _))
                     | (Decl _,
                        Dot (Exp _, _),
                        Decl (_, UDec (ADec _ | BDec _ | NDec _)))
                     | (Decl _, Dot (Idx _, _), Decl (_, UDec (ADec _ | NDec _)))
                     | (Decl _, Dot (Prg _, _), Decl (_, UDec _))
                     | (Decl _, Dot (Undef, _), Decl _)
                     | (Null, Dot (Block _, _), Decl (_, PDec _))
                     | (Null,
                        Dot (Block _, _),
                        Decl (_, UDec (ADec _ | Dec _ | NDec _)))
                     | (Null, Dot (Exp _, _), Decl (_, PDec _))
                     | (Null,
                        Dot (Exp _, _),
                        Decl (_, UDec (ADec _ | BDec _ | NDec _)))
                     | (Null, Dot (Idx _, _), Decl (_, UDec (ADec _ | NDec _)))
                     | (Null, Dot (Prg _, _), Decl (_, UDec _))
                     | (Null, Dot (Undef, _), Decl _)
    in: and checkSub (I.Null, T.Shift 0,   ...  is not well typed"))
Warning: src/tomega/typecheck.fun 533.10-533.28.
  Declaration is not exhaustive.
    missing pattern: UDec _
    in: val T.PDec (_, F1, _, _) = T.ctxDec (G, k)
Warning: src/tomega/typecheck.fun 522.10-522.37.
  Declaration is not exhaustive.
    missing pattern: PDec _ | UDec (ADec _ | Dec _ | NDec _)
    in: val T.UDec (I.BDec (l1, (_, s1))) = T.ctxDec (G, k)
Warning: src/tomega/typecheck.fun 514.10-514.31.
  Declaration is not exhaustive.
    missing pattern: PDec _ | UDec (ADec _ | BDec _ | NDec _)
    in: val T.UDec (I.Dec (_, A')) = T.ctxDec (G, k)
Warning: src/tomega/typecheck.fun 566.9-581.4.
  Function is not exhaustive.
    missing pattern: (_, (LVar _, _))
    in: and checkBlock (Psi, (I.Bidx v, (  ...   UL, (1, L, s2)) end
Warning: src/tomega/typecheck.fun 568.8-568.36.
  Declaration is not exhaustive.
    missing pattern: PDec _ | UDec (ADec _ | Dec _ | NDec _)
    in: val T.UDec (I.BDec (l1, (c1, s1))) = T.ctxDec (Psi, v)
Warning: src/tomega/typecheck.fun 590.8-598.10.
  Function is not exhaustive.
    missing pattern: (_, :: _, (_, nil, _)) | (_, nil, (_, :: _, _))
    in: and checkInst (Psi, nil, (_, nil,  ...  , L, I.dot1 s2)) end
Warning: src/tomega/typecheck.fun 594.7-594.18.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (_, V) = I.decSub (D, s2)
Warning: src/tomega/opsem.fun 102.5-126.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      Box _
                      | Case _
                      | Choose _
                      | Const _
                      | EVar _
                      | Lam _
                      | LetPairExp _
                      | LetUnit _
                      | Let _
                      | New _
                      | PClo _
                      | PairBlock _
                      | Rec _
                      | Redex _
                      | Var _)
    in: and raisePrg (Psi, G, T.Unit) = T  ...  PairExp (U', P') end
Warning: src/tomega/opsem.fun 140.9-250.7.
  Function is not exhaustive.
    missing pattern: (_, (EVar (_, ref NONE, _, _, _, _), _))
                     | (_, (LetPairExp _ | LetUnit _, _))
                     | (_,
                        (New (Box _
                              | Case _
                              | Choose _
                              | Const _
                              | EVar _
                              | LetPairExp _
                              | LetUnit _
                              | Let _
                              | New _
                              | PClo _
                              | PairBlock _
                              | PairExp _
                              | PairPrg _
                              | Rec _
                              | Redex _
                              | Unit
                              | Var _),
                         _))
    in: and evalPrg (Psi, (T.Unit, t)) =   ...   choose (1, Psi) end
Warning: src/tomega/opsem.fun 220.11-231.8.
  Function is not exhaustive.
    missing pattern: (Dot (Axp _ | Block _ | Undef, _), _, _)
                     | (Dot (Exp _, _), Null, _)
                     | (Dot (Idx _, _), Decl (_, ADec _ | BDec _ | NDec _), _)
                     | (Dot (Idx _, _), Null, _)
    in: fun substToSpine' (I.Shift n, I.N  ...   (I.EClo Us, T)) end
Warning: src/tomega/opsem.fun 235.11-246.8.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, UDec (ADec _ | NDec _)))
    in: fun choose (k, I.Null) = (raise A  ...  e (k + 1, Psi')) end
Warning: src/tomega/opsem.fun 198.11-198.22.
  Declaration is not exhaustive.
    missing pattern: PDec _
    in: val T.UDec D'' = D'
Warning: src/tomega/opsem.fun 156.9-156.44.
  Case is not exhaustive.
    missing pattern: Block _ | Exp _ | Idx _ | Undef
    in: case T.varSub (k, t) of T.Prg P =  ...  rg (Psi, (P, T.id)))
Warning: src/tomega/opsem.fun 298.9-321.4.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, PDec (_, _, NONE, SOME _)))
                     | (_, Decl (_, PDec (_, _, SOME _, _)))
                     | (_, Decl (_, UDec (ADec _ | NDec _)))
    in: and createVarSub (Psi, I.Null) =   ...  rceSub t)))), t) end
Warning: src/tomega/opsem.fun 335.9-376.4.
  Function is not exhaustive.
    missing pattern: (_, Dot (Block _, _), Dot (Block (Bidx _ | Inst _), _))
                     | (_,
                        Dot (Block _, _),
                        Dot (Exp _ | Idx _ | Prg _ | Undef, _))
                     | (_, Dot (Exp _, _), Dot (Block _ | Prg _ | Undef, _))
                     | (_, Dot (Idx _, _), Dot (Block (Bidx _ | Inst _), _))
                     | (_, Dot (Idx _, _), Dot (Undef, _))
                     | (_, Dot (Prg _, _), Dot (Block _ | Exp _ | Undef, _))
                     | (_, Dot (Undef, _), Dot _)
    in: and matchSub (Psi, _, T.Shift _)   ...  ub (Psi, t1, t2) end
Warning: src/tomega/opsem.fun 391.7-408.6.
  Function is not exhaustive.
    missing pattern: (_,
                      Box _
                      | Case _
                      | Choose _
                      | Const _
                      | EVar _
                      | LetPairExp _
                      | LetUnit _
                      | Let _
                      | New _
                      | PClo _
                      | PairBlock _
                      | PairExp _
                      | PairPrg _
                      | Rec _
                      | Redex _
                      | Unit
                      | Var _,
                      (AppBlock _ | AppExp _ | AppPrg _, _))
                     | (_, Lam (PDec _, _), (AppBlock _ | AppExp _, _))
                     | (_,
                        Lam (UDec (ADec _ | BDec _ | NDec _), _),
                        (AppExp _ | AppPrg _, _))
                     | (_, Lam (UDec (Dec _), _), (AppPrg _, _))
    in: and evalRedex (Psi, V, (T.Nil, _)  ...  Psi, V', (S, t)) end
Warning: src/tomega/opsem.fun 419.9-472.4.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (Box _
                       | Case _
                       | Choose _
                       | Const _
                       | EVar _
                       | Lam _
                       | LetPairExp _
                       | LetUnit _
                       | New _
                       | PClo _
                       | PairBlock _
                       | PairExp _
                       | PairPrg _
                       | Rec _
                       | Redex _
                       | Var _,
                       _))
    in: fun topLevel (Psi, d, (T.Unit, t)  ...  rg V, t))) in V' end
Warning: src/tomega/opsem.fun 466.8-466.34.
  Declaration is not exhaustive.
    missing pattern: PDec (NONE, _, _, _) | UDec _
    in: val T.PDec (SOME name, F, _, _) = D
Warning: src/tomega/opsem.fun 428.8-435.10.
  Function is not exhaustive.
    missing pattern: ((_, Dot (Axp _ | Block _ | Idx _ | Undef, _), _),
                      ~2147483648 .. ~1 | 1 .. 2147483647)
                     | ((_, Dot (Exp _, _), Decl (_, ADec _ | BDec _ | NDec _)),
                        ~2147483648 .. ~1 | 1 .. 2147483647)
                     | ((_, Dot (Exp _, _), Decl (_, Dec (NONE, _))),
                        ~2147483648 .. ~1 | 1 .. 2147483647)
                     | ((_, Dot (Exp _, _), Null),
                        ~2147483648 .. ~1 | 1 .. 2147483647)
                     | ((_, Shift _, _), ~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun printLF (_, _, _) 0 = () | pr  ...  V, s'))) ^ "\n") end
Warning: src/tomega/opsem.fun 437.8-448.10.
  Function is not exhaustive.
    missing pattern: (_, _, Cases nil)
    in: fun match (Psi, t1, T.Cases ((Psi  ...  si, m, (P, t'')) end
Warning: src/tomega/redundant.fun 25.9-37.69.
  Function is not exhaustive.
    missing pattern: Box _ | EVar _ | LetPairExp _ | LetUnit _ | PClo _
    in: fun convert (T.Lam (D, P)) = (T.L  ...  ert P1, convert P2))
Warning: src/tomega/redundant.fun 166.12-166.20.
  Declaration is not exhaustive.
    missing pattern: nil
    in: val C'' :: Cs = mergeIfNecessary (C, C')
Warning: src/tomega/converter.fun 104.9-109.50.
  Function is not exhaustive.
    missing pattern: (ADec _ | NDec _, _)
    in: fun strengthenDec (I.Dec (name, V  ...  engthenSub (t, s))))
Warning: src/tomega/converter.fun 133.9-139.64.
  Function is not exhaustive.
    missing pattern: (All ((PDec _, _), _), _) | (FClo _ | FVar _ | World _, _)
    in: fun strengthenFor (T.True, s) = T  ...  nFor (F, I.dot1 s)))
Warning: src/tomega/converter.fun 172.9-173.96.
  Function is not exhaustive.
    missing pattern: (SClo _, _)
    in: fun strengthenSpine (I.Nil, t) =   ...  ngthenSpine (S, t)))
Warning: src/tomega/converter.fun 184.9-196.4.
  Function is not exhaustive.
    missing pattern: (Decl (_, PDec (_, _, NONE, SOME _)), _)
                     | (Decl (_, PDec (_, _, SOME _, _)), _)
    in: fun strengthenPsi (I.Null, s) = (  ...  NE)), I.dot1 s') end
Warning: src/tomega/converter.fun 206.9-214.4.
  Function is not exhaustive.
    missing pattern: (:: (PDec _, _), _)
    in: fun strengthenPsi' (nil, s) = (ni  ...  ' :: Psi'', s'') end
Warning: src/tomega/converter.fun 234.9-240.53.
  Function is not exhaustive.
    missing pattern: Mapp (Marg (Minus1, _), _)
    in: fun validMode M.Mnil = () | valid  ...  expected, * found"))
Warning: src/tomega/converter.fun 302.10-306.23.
  Function is not exhaustive.
    missing pattern: (Mapp (Marg (Minus1 | Star, _), _), _)
    in: fun shiftPlus' (M.Mnil, n) = n |   ...  shiftPlus' (mS', n))
Warning: src/tomega/converter.fun 362.9-369.98.
  Function is not exhaustive.
    missing pattern: (_, AVar _ | EClo _ | EVar _ | NVar _ | Redex _)
    in: fun occursInExpN (k, I.Uni _) = f  ...  (U, I.id))))) false)
Warning: src/tomega/converter.fun 374.9-378.42.
  Function is not exhaustive.
    missing pattern: (_, FVar _ | NSDef _ | Skonst _)
    in: and occursInHead (k, I.BVar k') =  ...  k, I.Proj _) = false
Warning: src/tomega/converter.fun 381.9-382.89.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and occursInSpine (_, I.Nil) = fa  ...  cursInSpine (k, S)))
Warning: src/tomega/converter.fun 385.9-385.59.
  Function is not exhaustive.
    missing pattern: (_, ADec _ | BDec _ | NDec _)
    in: and occursInDec (k, I.Dec (_, V)) = (occursInExpN (k, V))
Warning: src/tomega/converter.fun 415.9-421.4.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647, Decl (_, PDec _))
                     | (~2147483648 .. ~1 | 1 .. 2147483647, Null)
    in: fun popn (0, Psi) = (Psi, I.Null)  ...   I.Decl (G', D)) end
Warning: src/tomega/converter.fun 430.9-433.69.
  Function is not exhaustive.
    missing pattern: (Decl _, Dot (Axp _ | Block _ | Exp _ | Undef, _))
                     | (Null, Dot (Axp _ | Block _ | Exp _ | Undef, _))
                     | (Null, Shift (~2147483648 .. ~1 | 1 .. 2147483647))
    in: fun domain (G, I.Dot (I.Idx _, s)  ...  G, I.Shift (n - 1)))
Warning: src/tomega/converter.fun 458.6-466.10.
  Function is not exhaustive.
    missing pattern: (App _, Mnil) | (Nil, Mapp _) | (SClo _, _)
    in: fun args (I.Nil, M.Mnil) = nil |   ...   L) | false => L end
Warning: src/tomega/converter.fun 477.6-486.10.
  Function is not exhaustive.
    missing pattern: (_, (:: (PDec _, _), _))
                     | (_, (:: (UDec (ADec _ | NDec _), _), _))
    in: fun occursInPsi (n, (nil, L)) = (  ...  + 1, (Psi1, L))) end
Warning: src/tomega/converter.fun 483.7-483.29.
  Declaration is not exhaustive.
    missing pattern: AbbrevDef _ | BlockDef _ | ConDec _ | ConDef _ | SkoDec _
    in: val I.BlockDec (_, _, G, _) = I.sgnLookup cid
Warning: src/tomega/converter.fun 487.6-495.28.
  Function is not exhaustive.
    missing pattern: (_, Dot (Axp _ | Undef, _), Decl _)
    in: and occursInSub (_, _, I.Null) =   ...  cursInSub (n, s, G))
Warning: src/tomega/converter.fun 498.6-500.70.
  Function is not exhaustive.
    missing pattern: (_, Decl (_, ADec _ | BDec _ | NDec _), _)
    in: and occursInG (n, I.Null, k) = (k  ...  else (k (n' + 1)))))
Warning: src/tomega/converter.fun 530.6-537.8.
  Function is not exhaustive.
    missing pattern: (Decl (_, ADec _ | BDec _ | NDec _), _)
    in: fun blockSub (I.Null, w) = (I.Nul  ...  V')), I.dot1 w') end
Warning: src/tomega/converter.fun 553.12-597.8.
  Function is not exhaustive.
    missing pattern: (Decl (_, PDec (_, _, NONE, SOME _)), _, _, _)
                     | (Decl (_, PDec (_, _, SOME _, _)), _, _, _)
                     | (Decl (_, UDec (ADec _ | NDec _)), _, _, _)
    in: fun strengthen' (I.Null, Psi2, L,  ...  1 w', I.dot1 z') end
Warning: src/tomega/converter.fun 608.8-610.33.
  Function is not exhaustive.
    missing pattern: (nil, _, _)
    in: fun lookupIH' (b :: L, a, k) = (i  ...  upIH' (L, a, k - 1))
Warning: src/tomega/converter.fun 659.6-677.8.
  Function is not exhaustive.
    missing pattern: ((App _, Mapp (Marg (Minus1 | Star, _), _)), _, _)
                     | ((App _, Mapp (Marg (Minus, _), _)),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)
                     | ((App _, Mapp (Marg (Plus, _), _)),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _
                        | Uni _,
                        _)
                     | ((App _, Mapp (Marg (Plus, _), _)),
                        Pi ((ADec _ | BDec _ | NDec _, _), _),
                        _)
                     | ((App _, Mnil), _, _)
                     | ((Nil, Mapp _), _, _)
                     | ((Nil, Mnil),
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Pi _
                        | Redex _
                        | Root _,
                        _)
                     | ((Nil, Mnil), Uni Kind, _)
                     | ((SClo _, _), _, _)
    in: fun transformInit' ((I.Nil, M.Mni  ...  ), V2, (w', s')) end
Warning: src/tomega/converter.fun 694.6-699.65.
  Function is not exhaustive.
    missing pattern: (App _, Mapp (Marg (Minus1 | Star, _), _))
                     | (App _, Mnil)
                     | (Nil, Mapp _)
                     | (SClo _, _)
    in: fun transformConc' (I.Nil, M.Mnil  ...  ormConc' (S', mS')))
Warning: src/tomega/converter.fun 711.9-717.39.
  Function is not exhaustive.
    missing pattern: (_, AVar _ | EClo _ | EVar _ | FgnExp _ | NVar _ | Redex _)
    in: fun renameExp f (U as I.Uni _) =   ...  f D, renameExp f U))
Warning: src/tomega/converter.fun 718.9-719.34.
  Function is not exhaustive.
    missing pattern: (_, ADec _ | BDec _ | NDec _)
    in: and renameDec f (I.Dec (x, V)) = (I.Dec (x, renameExp f V))
Warning: src/tomega/converter.fun 722.9-723.77.
  Function is not exhaustive.
    missing pattern: (_, SClo _)
    in: and renameSpine f I.Nil = I.Nil |  ...  U, renameSpine f S))
Warning: src/tomega/converter.fun 726.9-741.4.
  Function is not exhaustive.
    missing pattern: (ADec _ | Dec _ | NDec _, _)
    in: fun rename (I.BDec (_, (c, s)), V  ...  , renameExp f V) end
Warning: src/tomega/converter.fun 730.8-736.45.
  Function is not exhaustive.
    missing pattern: (_, _, _, :: (ADec _ | BDec _ | NDec _, _), _)
    in: fun makeSubst (n, G, s, nil, f) =  ...  (s, I.shift), L, f))
Warning: src/tomega/converter.fun 758.6-782.8.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _))
                     | (_, (_, Pi ((ADec _ | BDec _ | NDec _, _), _), _))
                     | (_, (_, Pi ((Dec _, Meta), _), _))
                     | (_,
                        (_,
                         Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _))
    in: fun traverseNeg (L, wmap, projs)   ...  nc ((a, S), w))) end
Warning: src/tomega/converter.fun 763.12-763.107.
  Case is not exhaustive.
    missing pattern: NONE
    in: case traverseNeg (L, wmap, projs)  ...  OME (peel w', PQ')))
Warning: src/tomega/converter.fun 760.12-760.50.
  Case is not exhaustive.
    missing pattern: NONE
    in: case traverseNeg (L, wmap, projs)  ...  SOME (peel w', PQ'))
Warning: src/tomega/converter.fun 784.13-995.8.
  Function is not exhaustive.
    missing pattern: (_,
                      (_,
                       AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Uni _,
                       _))
                     | (_, (_, Pi ((ADec _ | Dec _ | NDec _, _), _), _))
                     | (_, (_, Pi ((BDec _, _), _), NONE))
                     | (_,
                        (_,
                         Root (BVar _
                               | Def _
                               | FVar _
                               | FgnConst _
                               | NSDef _
                               | Proj _
                               | Skonst _,
                               _),
                         _))
                     | (_, (_, Root (Const _, _), NONE))
    in: and traversePos (L, wmap, projs)   ...   t, p)])))), Q)) end
Warning: src/tomega/converter.fun 816.11-816.28.
  Declaration is not exhaustive.
    missing pattern: ForDec _
    in: val T.ValDec (_, P, F) = T.lemmaLookup l
Warning: src/tomega/converter.fun 821.12-844.41.
  Function is not exhaustive.
    missing pattern: ((:: (_, :: _), NONE, _), _)
                     | ((:: (_, :: _),
                         SOME (:: _),
                         All _ | Ex _ | FClo _ | FVar _ | True | World _),
                        _)
                     | ((:: (_, :: _), SOME nil, _), _)
                     | ((:: (_, nil),
                         SOME (:: (_, :: _)),
                         All _ | Ex _ | FClo _ | FVar _ | True | World _),
                        _)
                     | ((:: (_, nil), SOME nil, _), _)
                     | ((nil, _, _), _)
    in: fun lookup (([b], NONE, F), a) =   ...  OME lemmas, F2), a))
Warning: src/tomega/converter.fun 849.9-849.27.
  Declaration is not exhaustive.
    missing pattern: UDec _
    in: val T.PDec (_, F0, _, _) = I.ctxLookup (Psi0, 1)
Warning: src/tomega/converter.fun 867.12-884.26.
  Function is not exhaustive.
    missing pattern: ((App _, Mapp (Marg (Minus1 | Star, _), _)), _)
                     | ((App _, Mapp (Marg (Plus, _), _)),
                        (And _ | Ex _ | FClo _ | FVar _ | True | World _, _))
                     | ((App _, Mnil), _)
                     | ((Nil, Mapp _), _)
                     | ((SClo _, _), _)
    in: and applyW ((I.Nil, M.Mnil), Ft')  ...  pplyW ((S, mS), Ft))
Warning: src/tomega/converter.fun 1024.12-1024.65.
  Case is not exhaustive.
    missing pattern: NONE
    in: case traverseNeg (L, wmap, projs)  ...  eSig' Sig @ [P' Q'])
Warning: src/tomega/converter.fun 1053.8-1062.5.
  Function is not exhaustive.
    missing pattern: (:: (ADec _ | BDec _ | NDec _, _), _)
    in: fun transformList (nil, w) = nil   ...   (V, w))) :: L' end)
Warning: src/tomega/converter.fun 1067.7-1067.29.
  Declaration is not exhaustive.
    missing pattern: AbbrevDef _ | BlockDef _ | ConDec _ | ConDef _ | SkoDec _
    in: val I.BlockDec (s, m, G, L) = I.sgnLookup cid
Warning: src/tomega/converter.fun 1107.7-1107.27.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val D' as I.Dec (x, V') = I.decSub (D, w)
Warning: src/tomega/converter.fun 1135.7-1135.29.
  Declaration is not exhaustive.
    missing pattern: AbbrevDef _ | BlockDef _ | ConDec _ | ConDef _ | SkoDec _
    in: val I.BlockDec (s, m, G, L) = I.sgnLookup cid
Warning: src/tomega/converter.fun 1159.9-1161.91.
  Function is not exhaustive.
    missing pattern: (_,
                      :: (AbbrevDef _
                          | BlockDec _
                          | BlockDef _
                          | ConDef _
                          | SkoDec _,
                          _))
                     | (_, :: (ConDec (_, _, _, _, _, Kind), _))
    in: fun staticSig (Psi0, nil) = nil |  ...  aticSig (Psi0, Sig))
Warning: src/tomega/converter.fun 1163.9-1164.69.
  Function is not exhaustive.
    missing pattern: nil
    in: fun name [a] = (I.conDecName (I.s  ...  a) ^ "/" ^ (name L))
Warning: src/tomega/converter.fun 1181.6-1193.8.
  Function is not exhaustive.
    missing pattern: nil
    in: fun convertWorlds [a] = let val W  ...  fferent worlds") end
Warning: src/tomega/converter.fun 1207.22-1207.79.
  Function is not exhaustive.
    missing pattern: AbbrevDef _ | BlockDec _ | BlockDef _ | ConDef _ | SkoDec _
    in: fn I.ConDec (_, _, _, _, U, V) =>  ...  .check (U, I.Uni V))
Warning: src/tomega/converter.fun 1235.6-1237.100.
  Function is not exhaustive.
    missing pattern: (:: (_, :: _),
                      All _ | Ex _ | FClo _ | FVar _ | True | World _)
    in: fun convertPrg' (nil, _) = (raise  ...  nvertPrg' (L', F2)))
Warning: src/tomega/converter.fun 1244.9-1251.4.
  Function is not exhaustive.
    missing pattern: :: (_, :: _) | nil
    in: fun installFor [cid] = let val F   ...  (name, F)) in () end
Warning: src/tomega/converter.fun 1268.13-1268.32.
  Declaration is not exhaustive.
    missing pattern: UDec _
    in: val T.PDec (_, F', _, _) = T.ctxDec (Psi', k)
Warning: src/tomega/converter.fun 1291.9-1308.4.
  Function is not exhaustive.
    missing pattern: (:: (_, :: _),
                      :: _,
                      All _ | Ex _ | FClo _ | FVar _ | True | World _,
                      _)
                     | (:: (_, :: _), nil, _, _)
                     | (:: (_, nil),
                        :: (_, :: _),
                        All _ | Ex _ | FClo _ | FVar _ | True | World _,
                        _)
                     | (:: (_, nil), nil, _, _)
                     | (nil, _, _, _)
    in: fun installSelection ([cid], [lem  ...  emmas, F2, main) end
Warning: src/tomega/converter.fun 1360.6-1360.23.
  Declaration is not exhaustive.
    missing pattern: NONE
    in: val SOME (_, (P', Q')) = traverse  ...  t (I.ctxLength G))))
Warning: src/tomega/coverage.fun 54.9-56.88.
  Function is not exhaustive.
    missing pattern: ((Box _
                       | Case _
                       | Choose _
                       | Const _
                       | EVar _
                       | Lam _
                       | LetPairExp _
                       | LetUnit _
                       | Let _
                       | New _
                       | PClo _
                       | PairBlock _
                       | PairPrg _
                       | Rec _
                       | Redex _
                       | Var _,
                       _),
                      _,
                      _)
                     | ((PairExp _, _),
                        (_, All _ | And _ | FClo _ | FVar _ | True | World _),
                        _)
                     | ((Unit, _),
                        (_, All _ | And _ | Ex _ | FClo _ | FVar _ | World _),
                        _)
    in: fun purifyFor ((T.Unit, t), (Psi,  ...  .comp (s, T.shift)))
Warning: src/tomega/coverage.fun 78.9-118.4.
  Function is not exhaustive.
    missing pattern: (Dot (Block _ | Exp _ | Idx _ | Undef, _), Decl (_, PDec _))
                     | (Dot (Block _ | Exp _ | Idx _ | Undef, _), Null)
                     | (Dot (Prg (Box _
                                  | Case _
                                  | Choose _
                                  | EVar _
                                  | Lam _
                                  | LetPairExp _
                                  | LetUnit _
                                  | Let _
                                  | New _
                                  | PClo _
                                  | PairBlock _
                                  | PairExp _
                                  | Rec _
                                  | Redex _
                                  | Unit),
                             _),
                        Null)
                     | (Dot (Prg (Const _), _), Null)
                     | (Dot (Prg (PairPrg _), _), Null)
                     | (Dot (Prg (Var _), _), Null)
    in: fun purifyCtx (t as T.Shift k, Ps  ...  '))), T.dot1 s') end
Warning: src/tomega/coverage.fun 131.9-153.33.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      Box _
                      | Choose _
                      | EVar _
                      | LetPairExp _
                      | LetUnit _
                      | PClo _)
    in: fun coverageCheckPrg (W, Psi, T.L  ...  ckSpine (W, Psi, S))
Warning: src/tomega/coverage.fun 157.9-164.35.
  Function is not exhaustive.
    missing pattern: (_, _, SClo _)
    in: and coverageCheckSpine (W, Psi, T  ...  ckSpine (W, Psi, S))
Warning: src/tomega/coverage.fun 173.8-173.33.
  Declaration is not exhaustive.
    missing pattern: nil
    in: val Cs' as (_, _, Psi') :: _ = map purify Cs
Warning: src/frontend/recon-term.fun 109.7-113.40.
  Function is not exhaustive.
    missing pattern: BVar _ | FVar _ | Proj _
    in: fun headConDec (Const c) = (sgnLo  ...  nConst (_, cd)) = cd
Warning: src/frontend/recon-term.fun 151.15-164.17.
  Case is not exhaustive.
    missing pattern: SOME (AVar _
                           | EClo _
                           | FgnExp _
                           | Lam _
                           | NVar _
                           | Pi _
                           | Redex _
                           | Root _
                           | Uni _)
    in: case Names.getEVarOpt name of SOM  ...  e (name, V) ; V) end
Warning: src/frontend/recon-term.fun 179.15-189.17.
  Case is not exhaustive.
    missing pattern: SOME (AVar _
                           | EClo _
                           | FgnExp _
                           | Lam _
                           | NVar _
                           | Pi _
                           | Redex _
                           | Root _
                           | Uni _)
    in: case Names.getEVarOpt name of SOM  ...  name) ; (X, V')) end
Warning: src/frontend/recon-term.fun 335.15-335.21.
  Declaration is not exhaustive.
    missing pattern: LVar _ | Next _
    in: val Level i = whnfUni L
Warning: src/frontend/recon-term.fun 346.29-348.39.
  Case is not exhaustive.
    missing pattern: ~2147483648 .. 0 | 4 .. 2147483647
    in: case i of 1 => "object" | 2 => "type family" | 3 => "kind"
Warning: src/frontend/recon-term.fun 408.9-520.11.
  Function is not exhaustive.
    missing pattern: (_, mismatch _ | omitapx _ | omitexact _)
    in: fun inferApx (G, tm as internal (  ...   L, r), U, V, L) end
Warning: src/frontend/recon-term.fun 484.15-484.38.
  Declaration is not exhaustive.
    missing pattern: (_, NDec _)
    in: val (tm1', D as Dec (_, V1)) = inferApxDec (G, tm1)
Warning: src/frontend/recon-term.fun 475.15-475.38.
  Declaration is not exhaustive.
    missing pattern: (_, NDec _)
    in: val (tm1', D as Dec (_, V1)) = inferApxDec (G, tm1)
Warning: src/frontend/recon-term.fun 453.15-453.24.
  Declaration is not exhaustive.
    missing pattern: NDec _
    in: val Dec (_, V) = IntSyn.ctxLookup (G, k)
Warning: src/frontend/recon-term.fun 445.15-446.68.
  Function is not exhaustive.
    missing pattern: (CVar _ | Const _ | Undefined | Uni _,
                      ~2147483648 .. ~1 | 1 .. 2147483647)
    in: fun dropImplicit (V, 0) = V | dro  ...  Implicit (V, i - 1))
Warning: src/frontend/recon-term.fun 616.9-624.6.
  Function is not exhaustive.
    missing pattern: Decl (_, ADec _ | BDec _)
    in: fun ctxToApx IntSyn.Null = IntSyn  ...   Dec (name, V')) end
Warning: src/frontend/recon-term.fun 658.13-659.35.
  Case is not exhaustive.
    missing pattern: Axp _ | Block _ | Undef
    in: case bvarSub (n, s) of Idx n' =>   ...   U => (Redex (U, S))
Warning: src/frontend/recon-term.fun 676.7-677.55.
  Function is not exhaustive.
    missing pattern: AVar _
                     | EClo _
                     | FgnExp _
                     | Lam _
                     | NVar _
                     | Pi _
                     | Redex _
                     | Root _
                     | Uni _
    in: fun evarElim (X as EVar _) = (fn   ...  spineToSub (S, s))))
Warning: src/frontend/recon-term.fun 696.7-701.9.
  Function is not exhaustive.
    missing pattern: (_,
                      _,
                      (AVar _
                       | EClo _
                       | EVar _
                       | FgnExp _
                       | Lam _
                       | NVar _
                       | Redex _
                       | Root _
                       | Uni _,
                       _),
                      _)
                     | (_, _, (Pi ((ADec _ | BDec _ | NDec _, _), _), _), _)
    in: fun addImplicit1W (G, E, (Pi ((De  ...  p X, s)), i - 1) end
Warning: src/frontend/recon-term.fun 871.9-1001.11.
  Function is not exhaustive.
    missing pattern: (_,
                      lcid _
                      | omitexact _
                      | omitted _
                      | quid _
                      | scon _
                      | ucid _)
    in: fun inferExactN (G, tm as interna  ...  ), Intro U', V') end
Warning: src/frontend/recon-term.fun 980.30-985.55.
  Case is not exhaustive.
    missing pattern: LVar _
                     | Level (~2147483648 .. 0 | 4 .. 2147483647)
                     | Next _
    in: case Apx.whnfUni L of Apx.Level 1  ...  vel 3 => "hyperkind"
Warning: src/frontend/recon-term.fun 995.30-996.50.
  Case is not exhaustive.
    missing pattern: LVar _
                     | Level (~2147483648 .. 1 | 4 .. 2147483647)
                     | Next _
    in: case Apx.whnfUni L of Apx.Level 2  ...  px.Level 3 => "kind"
Warning: src/frontend/recon-term.fun 946.15-946.44.
  Declaration is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      _)
                     | (Pi ((ADec _ | BDec _ | NDec _, _), _), _)
    in: val (Pi ((Dec (_, Va), _), Vr), s  ...  nfExpandDef (V1, id)
Warning: src/frontend/recon-term.fun 882.15-882.24.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val Dec (_, V) = ctxDec (G, k)
Warning: src/frontend/recon-term.fun 1062.30-1063.50.
  Case is not exhaustive.
    missing pattern: LVar _
                     | Level (~2147483648 .. 1 | 4 .. 2147483647)
                     | Next _
    in: case Apx.whnfUni L of Apx.Level 2  ...  px.Level 3 => "kind"
Warning: src/frontend/recon-term.fun 1024.15-1024.44.
  Declaration is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      _)
                     | (Pi ((ADec _ | BDec _ | NDec _, _), _), _)
    in: val (Pi ((Dec (_, Va), _), Vr), s) = Whnf.whnfExpandDef Vhs
Warning: src/frontend/recon-term.fun 1130.15-1130.44.
  Declaration is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      _)
                     | (Pi ((ADec _ | BDec _ | NDec _, _), _), _)
    in: val (Pi ((Dec (_, Va), _), Vr), s) = Whnf.whnfExpandDef Vhs
Warning: src/frontend/recon-term.fun 1118.15-1118.44.
  Declaration is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      _)
                     | (Pi ((ADec _ | BDec _ | NDec _, _), _), _)
    in: val (Pi ((Dec (_, Va), _), Vr), s) = Whnf.whnfExpandDef Vhs
Warning: src/frontend/recon-term.fun 1296.15-1296.25.
  Declaration is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _,
                      _)
    in: val (Uni L2, _) = Whnf.whnf (L2, id)
Warning: src/frontend/recon-term.fun 1282.15-1282.24.
  Declaration is not exhaustive.
    missing pattern: (AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Pi _
                      | Redex _
                      | Root _,
                      _)
    in: val (Uni L, _) = Whnf.whnf (L, id)
Warning: src/frontend/recon-term.fun 1267.15-1272.37.
  Function is not exhaustive.
    missing pattern: AVar _ | EVar _ | FgnExp _ | NVar _ | Uni Kind
    in: fun iu (Uni Type) = Kind | iu (Pi  ...  Clo (V, _)) = (iu V)
Warning: src/frontend/recon-condec.fun 152.24-153.41.
  Case is not exhaustive.
    missing pattern: (NONE, NONE) | (SOME _, NONE)
    in: case (ExtSyn.ctxRegion gsome, Ext  ...  | (_, SOME r2) => r2
Warning: src/frontend/recon-condec.fun 159.13-159.64.
  Declaration is not exhaustive.
    missing pattern: JAnd _
                     | JClass _
                     | JNothing
                     | JOf _
                     | JTerm _
                     | JWithCtx (_,
                                 JAnd _ | JClass _ | JNothing | JOf _ | JTerm _)
    in: val ExtSyn.JWithCtx (Gsome, ExtSy  ...  econ ExtSyn.recon) j
Warning: src/frontend/recon-condec.fun 162.6-162.28.
  Declaration is not exhaustive.
    missing pattern: (_, :: (_, :: (_, :: _))) | (_, :: (_, nil)) | (_, nil)
    in: val (G0, [Gsome', Gblock']) = (Ab  ...  .cnstrsToString C)))
Warning: src/frontend/recon-condec.fun 89.19-92.48.
  Case is not exhaustive.
    missing pattern: JAnd _ | JClass _ | JNothing | JWithCtx _
    in: case f' of ExtSyn.JTerm ((U, oc1)  ...  ), (V, SOME oc2), L)
Warning: src/frontend/recon-condec.fun 62.13-62.38.
  Declaration is not exhaustive.
    missing pattern: JAnd _ | JNothing | JOf _ | JTerm _ | JWithCtx _
    in: val ExtSyn.JClass ((V, oc), L) =   ...  ) (ExtSyn.jclass tm)
Warning: src/frontend/recon-query.fun 75.13-75.33.
  Declaration is not exhaustive.
    missing pattern: JAnd _ | JNothing | JOf _ | JTerm _ | JWithCtx _
    in: val T.JClass ((V, oc), L) = (Time  ...  Query) (T.jclass tm)
Warning: src/frontend/recon-query.fun 165.13-165.51.
  Declaration is not exhaustive.
    missing pattern: JAnd (_, JAnd _ | JNothing | JOf _ | JTerm _ | JWithCtx _)
                     | JClass _
                     | JNothing
                     | JOf _
                     | JTerm _
                     | JWithCtx _
    in: val T.JAnd (defines', T.JClass ((  ...  fines, T.jclass tm))
Warning: src/frontend/recon-query.fun 175.13-188.56.
  Function is not exhaustive.
    missing pattern: (_,
                      :: _,
                      JAnd (JAnd _ | JClass _ | JNothing | JWithCtx _, _))
                     | (_,
                        :: _,
                        JClass _ | JNothing | JOf _ | JTerm _ | JWithCtx _)
    in: fun sc (M, nil, _) = (case finish  ...  :: sc (M, defs, f)))
Warning: src/frontend/recon-mode.fun 75.17-75.52.
  Declaration is not exhaustive.
    missing pattern: JAnd _
                     | JClass _
                     | JNothing
                     | JOf _
                     | JTerm _
                     | JWithCtx (_,
                                 JAnd _
                                 | JClass _
                                 | JNothing
                                 | JTerm _
                                 | JWithCtx _)
    in: val T.JWithCtx (G, T.JOf ((V, _),  ...  .jof (tm, T.typ r)))
Warning: src/frontend/recon-mode.fun 81.10-94.5.
  Function is not exhaustive.
    missing pattern: SClo _
    in: fun convertSpine I.Nil = M.Mnil |  ...   convertSpine S) end
Warning: src/frontend/recon-mode.fun 90.9-90.23.
  Declaration is not exhaustive.
    missing pattern: ADec _ | BDec _ | NDec _
    in: val I.Dec (name, _) = I.ctxLookup (G, k)
Warning: src/frontend/recon-thm.fun 72.9-80.43.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _,
                      _,
                      _)
                     | (0,
                        AVar _
                        | EClo _
                        | EVar _
                        | FgnExp _
                        | Lam _
                        | NVar _
                        | Redex _
                        | Root _,
                        _,
                        _)
                     | (0, Uni Kind, _, _)
    in: fun checkArgNumber (0, I.Uni I.Ty  ...  i - 1, V2, args, r))
Warning: src/frontend/recon-thm.fun 83.9-98.65.
  Function is not exhaustive.
    missing pattern: (BlockDef _, _, _)
    in: fun checkCallPat (I.ConDec (_, _,  ...  " in call pattern"))
Warning: src/frontend/recon-thm.fun 129.9-131.47.
  Function is not exhaustive.
    missing pattern: ("" .. "LEP"
                      | "LER" .. "LESR"
                      | "LEST" .. "EQUAK"
                      | "EQUAM" ...,
                      _)
    in: fun predicate ("LESS", r) = (ThmS  ...   r) = (ThmSyn.Eq, r)
Warning: src/frontend/recon-thm.fun 238.25-239.42.
  Case is not exhaustive.
    missing pattern: (NONE, NONE) | (SOME _, NONE)
    in: case (T.ctxRegion g1, T.ctxRegion  ...  | (_, SOME r2) => r2
Warning: src/frontend/recon-thm.fun 240.15-240.49.
  Declaration is not exhaustive.
    missing pattern: JAnd _
                     | JClass _
                     | JNothing
                     | JOf _
                     | JTerm _
                     | JWithCtx (_,
                                 JAnd _ | JClass _ | JNothing | JOf _ | JTerm _)
    in: val T.JWithCtx (G1, T.JWithCtx (G  ...  x (g2, T.jnothing)))
Warning: src/frontend/recon-thm.fun 242.8-242.23.
  Declaration is not exhaustive.
    missing pattern: (_, :: (_, :: (_, :: _))) | (_, :: (_, nil)) | (_, nil)
    in: val (G0, [G1', G2']) = (Abstract.  ...  t.cnstrsToString C))
Warning: src/frontend/recon-thm.fun 275.15-275.31.
  Declaration is not exhaustive.
    missing pattern: JAnd _ | JClass _ | JNothing | JOf _ | JTerm _
    in: val T.JWithCtx (G, _) = T.recon (T.jwithctx (g, T.jnothing))
Warning: src/frontend/recon-module.fun 100.7-100.42.
  Function is not exhaustive.
    missing pattern: NONE
    in: fun thesig (SOME module) = (module, nil)
Warning: src/frontend/recon-module.fun 102.7-105.41.
  Function is not exhaustive.
    missing pattern: (_, SOME _)
    in: fun sigid (id, r) NONE = (case Mo  ...  le => (module, nil))
Warning: src/frontend/recon-module.fun 141.7-146.9.
  Function is not exhaustive.
    missing pattern: (_, SOME _)
    in: fun structdef (idOpt, strexp) NON  ...  Def (idOpt, mid) end
Warning: src/frontend/parse-term.fun 78.11-81.60.
  Function is not exhaustive.
    missing pattern: :: ((Atom _, :: (Atom _ | Postfix _, _))
                         | (Atom _,
                            :: (Infix _, :: (Infix _ | Postfix _ | Prefix _, _)))
                         | (Atom _, :: (Infix _, nil))
                         | (Atom _, nil)
                         | (Infix _ | Prefix _, _)
                         | (Postfix _, :: (Infix _ | Postfix _ | Prefix _, _))
                         | (Postfix _, nil))
                     | nil
    in: fun reduce (Atom tm2 :: Infix (_,  ...  Atom (con tm) :: p')
Warning: src/frontend/parse-term.fun 189.9-197.40.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseQualId' (f as LS.Cons ((  ...  ((nil, (t, r)), f'))
Warning: src/frontend/parse-term.fun 200.9-203.72.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun stripBar (LS.Cons ((L.ID (_,   ...  n " ^ L.toString t))
Warning: src/frontend/parse-term.fun 207.9-218.66.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun parseQualIds1 (ls, f as LS.Co  ...  n " ^ L.toString t))
Warning: src/frontend/parse-term.fun 209.8-209.45.
  Declaration is not exhaustive.
    missing pattern: ((_,
                       (ABBREV
                        | ARROW
                        | ASSERT
                        | BACKARROW
                        | BLOCK
                        | CLAUSE
                        | COLON
                        | COMPILE
                        | COVERS
                        | DEFINE
                        | DETERMINISTIC
                        | DOT
                        | EOF
                        | EQUAL
                        | ESTABLISH
                        | FQUERY
                        | FREEZE
                        | INCLUDE
                        | INFIX
                        | KEEPTABLE
                        | LBRACE
                        | LBRACKET
                        | LPAREN
                        | MODE
                        | NAME
                        | OPEN
                        | PATHSEP
                        | POSTFIX
                        | PREFIX
                        | PROVE
                        | QUERYTABLED
                        | QUERY
                        | RBRACE
                        | RBRACKET
                        | REDUCES
                        | RPAREN
                        | SIG
                        | SOLVE
                        | STRING _
                        | STRUCT
                        | SUBORD
                        | TABLED
                        | TERMINATES
                        | THAW
                        | THEOREM
                        | TOTAL
                        | TRUSTME
                        | TYPE
                        | UNDERSCORE
                        | UNIQUE
                        | USE
                        | WHERE
                        | WORLDS,
                        _)),
                      _)
    in: val ((ids, (L.ID (idCase, name), r1)), f') = parseQualId' f
Warning: src/frontend/parse-term.fun 220.9-223.76.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseQualIds' (LS.Cons ((L.LP  ...  n " ^ L.toString t))
Warning: src/frontend/parse-term.fun 227.9-229.74.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun stripRParen (LS.Cons ((L.RPAR  ...  d " ^ L.toString t))
Warning: src/frontend/parse-term.fun 231.9-239.43.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: fun parseSubordPair2 (f as LS.Con  ...  n " ^ L.toString t))
Warning: src/frontend/parse-term.fun 233.15-233.52.
  Declaration is not exhaustive.
    missing pattern: ((_,
                       (ABBREV
                        | ARROW
                        | ASSERT
                        | BACKARROW
                        | BLOCK
                        | CLAUSE
                        | COLON
                        | COMPILE
                        | COVERS
                        | DEFINE
                        | DETERMINISTIC
                        | DOT
                        | EOF
                        | EQUAL
                        | ESTABLISH
                        | FQUERY
                        | FREEZE
                        | INCLUDE
                        | INFIX
                        | KEEPTABLE
                        | LBRACE
                        | LBRACKET
                        | LPAREN
                        | MODE
                        | NAME
                        | OPEN
                        | PATHSEP
                        | POSTFIX
                        | PREFIX
                        | PROVE
                        | QUERYTABLED
                        | QUERY
                        | RBRACE
                        | RBRACKET
                        | REDUCES
                        | RPAREN
                        | SIG
                        | SOLVE
                        | STRING _
                        | STRUCT
                        | SUBORD
                        | TABLED
                        | TERMINATES
                        | THAW
                        | THEOREM
                        | TOTAL
                        | TRUSTME
                        | TYPE
                        | UNDERSCORE
                        | UNIQUE
                        | USE
                        | WHERE
                        | WORLDS,
                        _)),
                      _)
    in: val ((ids, (L.ID (idCase, name), r1)), f') = parseQualId' f
Warning: src/frontend/parse-term.fun 241.9-249.43.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseSubordPair1 (f as LS.Con  ...  n " ^ L.toString t))
Warning: src/frontend/parse-term.fun 243.15-243.52.
  Declaration is not exhaustive.
    missing pattern: ((_,
                       (ABBREV
                        | ARROW
                        | ASSERT
                        | BACKARROW
                        | BLOCK
                        | CLAUSE
                        | COLON
                        | COMPILE
                        | COVERS
                        | DEFINE
                        | DETERMINISTIC
                        | DOT
                        | EOF
                        | EQUAL
                        | ESTABLISH
                        | FQUERY
                        | FREEZE
                        | INCLUDE
                        | INFIX
                        | KEEPTABLE
                        | LBRACE
                        | LBRACKET
                        | LPAREN
                        | MODE
                        | NAME
                        | OPEN
                        | PATHSEP
                        | POSTFIX
                        | PREFIX
                        | PROVE
                        | QUERYTABLED
                        | QUERY
                        | RBRACE
                        | RBRACKET
                        | REDUCES
                        | RPAREN
                        | SIG
                        | SOLVE
                        | STRING _
                        | STRUCT
                        | SUBORD
                        | TABLED
                        | TERMINATES
                        | THAW
                        | THEOREM
                        | TOTAL
                        | TRUSTME
                        | TYPE
                        | UNDERSCORE
                        | UNIQUE
                        | USE
                        | WHERE
                        | WORLDS,
                        _)),
                      _)
    in: val ((ids, (L.ID (idCase, name), r1)), f') = parseQualId' f
Warning: src/frontend/parse-term.fun 251.9-261.43.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: fun parseSubord' (LS.Cons ((L.LPA  ...  n " ^ L.toString t))
Warning: src/frontend/parse-term.fun 264.9-274.43.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: fun parseFreeze' (f as LS.Cons ((  ...  n " ^ L.toString t))
Warning: src/frontend/parse-term.fun 266.15-266.52.
  Declaration is not exhaustive.
    missing pattern: ((_,
                       (ABBREV
                        | ARROW
                        | ASSERT
                        | BACKARROW
                        | BLOCK
                        | CLAUSE
                        | COLON
                        | COMPILE
                        | COVERS
                        | DEFINE
                        | DETERMINISTIC
                        | DOT
                        | EOF
                        | EQUAL
                        | ESTABLISH
                        | FQUERY
                        | FREEZE
                        | INCLUDE
                        | INFIX
                        | KEEPTABLE
                        | LBRACE
                        | LBRACKET
                        | LPAREN
                        | MODE
                        | NAME
                        | OPEN
                        | PATHSEP
                        | POSTFIX
                        | PREFIX
                        | PROVE
                        | QUERYTABLED
                        | QUERY
                        | RBRACE
                        | RBRACKET
                        | REDUCES
                        | RPAREN
                        | SIG
                        | SOLVE
                        | STRING _
                        | STRUCT
                        | SUBORD
                        | TABLED
                        | TERMINATES
                        | THAW
                        | THEOREM
                        | TOTAL
                        | TRUSTME
                        | TYPE
                        | UNDERSCORE
                        | UNIQUE
                        | USE
                        | WHERE
                        | WORLDS,
                        _)),
                      _)
    in: val ((ids, (L.ID (idCase, name), r1)), f') = parseQualId' f
Warning: src/frontend/parse-term.fun 279.9-289.43.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: fun parseDeterministic' (f as LS.  ...  n " ^ L.toString t))
Warning: src/frontend/parse-term.fun 281.15-281.52.
  Declaration is not exhaustive.
    missing pattern: ((_,
                       (ABBREV
                        | ARROW
                        | ASSERT
                        | BACKARROW
                        | BLOCK
                        | CLAUSE
                        | COLON
                        | COMPILE
                        | COVERS
                        | DEFINE
                        | DETERMINISTIC
                        | DOT
                        | EOF
                        | EQUAL
                        | ESTABLISH
                        | FQUERY
                        | FREEZE
                        | INCLUDE
                        | INFIX
                        | KEEPTABLE
                        | LBRACE
                        | LBRACKET
                        | LPAREN
                        | MODE
                        | NAME
                        | OPEN
                        | PATHSEP
                        | POSTFIX
                        | PREFIX
                        | PROVE
                        | QUERYTABLED
                        | QUERY
                        | RBRACE
                        | RBRACKET
                        | REDUCES
                        | RPAREN
                        | SIG
                        | SOLVE
                        | STRING _
                        | STRUCT
                        | SUBORD
                        | TABLED
                        | TERMINATES
                        | THAW
                        | THEOREM
                        | TOTAL
                        | TRUSTME
                        | TYPE
                        | UNDERSCORE
                        | UNIQUE
                        | USE
                        | WHERE
                        | WORLDS,
                        _)),
                      _)
    in: val ((ids, (L.ID (idCase, name), r1)), f') = parseQualId' f
Warning: src/frontend/parse-term.fun 292.9-302.43.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: fun parseCompile' (f as LS.Cons (  ...  n " ^ L.toString t))
Warning: src/frontend/parse-term.fun 294.15-294.52.
  Declaration is not exhaustive.
    missing pattern: ((_,
                       (ABBREV
                        | ARROW
                        | ASSERT
                        | BACKARROW
                        | BLOCK
                        | CLAUSE
                        | COLON
                        | COMPILE
                        | COVERS
                        | DEFINE
                        | DETERMINISTIC
                        | DOT
                        | EOF
                        | EQUAL
                        | ESTABLISH
                        | FQUERY
                        | FREEZE
                        | INCLUDE
                        | INFIX
                        | KEEPTABLE
                        | LBRACE
                        | LBRACKET
                        | LPAREN
                        | MODE
                        | NAME
                        | OPEN
                        | PATHSEP
                        | POSTFIX
                        | PREFIX
                        | PROVE
                        | QUERYTABLED
                        | QUERY
                        | RBRACE
                        | RBRACKET
                        | REDUCES
                        | RPAREN
                        | SIG
                        | SOLVE
                        | STRING _
                        | STRUCT
                        | SUBORD
                        | TABLED
                        | TERMINATES
                        | THAW
                        | THEOREM
                        | TOTAL
                        | TRUSTME
                        | TYPE
                        | UNDERSCORE
                        | UNIQUE
                        | USE
                        | WHERE
                        | WORLDS,
                        _)),
                      _)
    in: val ((ids, (L.ID (idCase, name), r1)), f') = parseQualId' f
Warning: src/frontend/parse-term.fun 309.9-367.32.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseExp' (f as LS.Cons ((L.I  ...  und in expression"))
Warning: src/frontend/parse-term.fun 311.15-311.52.
  Declaration is not exhaustive.
    missing pattern: ((_,
                       (ABBREV
                        | ARROW
                        | ASSERT
                        | BACKARROW
                        | BLOCK
                        | CLAUSE
                        | COLON
                        | COMPILE
                        | COVERS
                        | DEFINE
                        | DETERMINISTIC
                        | DOT
                        | EOF
                        | EQUAL
                        | ESTABLISH
                        | FQUERY
                        | FREEZE
                        | INCLUDE
                        | INFIX
                        | KEEPTABLE
                        | LBRACE
                        | LBRACKET
                        | LPAREN
                        | MODE
                        | NAME
                        | OPEN
                        | PATHSEP
                        | POSTFIX
                        | PREFIX
                        | PROVE
                        | QUERYTABLED
                        | QUERY
                        | RBRACE
                        | RBRACKET
                        | REDUCES
                        | RPAREN
                        | SIG
                        | SOLVE
                        | STRING _
                        | STRUCT
                        | SUBORD
                        | TABLED
                        | TERMINATES
                        | THAW
                        | THEOREM
                        | TOTAL
                        | TRUSTME
                        | TYPE
                        | UNDERSCORE
                        | UNIQUE
                        | USE
                        | WHERE
                        | WORLDS,
                        _)),
                      _)
    in: val ((ids, (L.ID (idCase, name), r1)), f') = parseQualId' f
Warning: src/frontend/parse-term.fun 370.9-384.75.
  Function is not exhaustive.
    missing pattern: Empty
    in: and parseDec' (LS.Cons ((L.ID (L.  ...  n " ^ L.toString t))
Warning: src/frontend/parse-term.fun 386.9-395.22.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: and parseDec1 (x, LS.Cons ((L.COL  ...  n " ^ L.toString t))
Warning: src/frontend/parse-term.fun 397.9-400.66.
  Function is not exhaustive.
    missing pattern: (_, (_, Empty), _)
    in: and decideRParen (r0, (tm, LS.Con  ...   open parenthesis"))
Warning: src/frontend/parse-term.fun 402.9-412.60.
  Function is not exhaustive.
    missing pattern: (_, (_, Empty), _)
    in: and decideRBrace (r0, ((x, yOpt),  ...  atched open brace"))
Warning: src/frontend/parse-term.fun 414.9-424.62.
  Function is not exhaustive.
    missing pattern: (_, (_, Empty), _)
    in: and decideRBracket (r0, ((x, yOpt  ...  ched open bracket"))
Warning: src/frontend/parse-term.fun 428.9-430.66.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun stripRBrace (LS.Cons ((L.RBRA  ...  d " ^ L.toString t))
Warning: src/frontend/parse-term.fun 450.9-458.13.
  Function is not exhaustive.
    missing pattern: (_, _, Empty)
    in: fun parseCtx (b, ds, LS.Cons (BS   ...  ing t) else (ds, f))
Warning: src/frontend/parse-condec.fun 28.9-33.59.
  Function is not exhaustive.
    missing pattern: (NONE, (_, Empty))
    in: fun parseConDec2 (optName, (tm, L  ...  declared constant"))
Warning: src/frontend/parse-condec.fun 36.9-41.66.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun parseConDec1 (optName, LS.Con  ...  d " ^ L.toString t))
Warning: src/frontend/parse-condec.fun 47.9-50.63.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseBlock (LS.Cons ((L.ID (_  ...  d " ^ L.toString t))
Warning: src/frontend/parse-condec.fun 52.9-66.73.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun parseSome (name, LS.Cons ((L.  ...  d " ^ L.toString t))
Warning: src/frontend/parse-condec.fun 68.9-76.65.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun parseBlockDec1 (name, LS.Cons  ...  n " ^ L.toString t))
Warning: src/frontend/parse-condec.fun 78.9-81.78.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseBlockDec' (LS.Cons ((L.I  ...  n " ^ L.toString t))
Warning: src/frontend/parse-condec.fun 86.9-93.91.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseConDec' (LS.Cons ((L.ID   ...  n " ^ L.toString t))
Warning: src/frontend/parse-condec.fun 98.9-98.67.
  Function is not exhaustive.
    missing pattern: Cons ((ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseAbbrev' (LS.Cons ((L.ABB  ...  )) = (parseConDec s)
Warning: src/frontend/parse-condec.fun 99.9-99.67.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseClause' (LS.Cons ((L.CLA  ...  )) = (parseConDec s)
Warning: src/frontend/parse-query.fun 58.9-61.66.
  Function is not exhaustive.
    missing pattern: (_, (_, Empty))
    in: fun parseDefine3 (optName, (tm, L  ...  d " ^ L.toString t))
Warning: src/frontend/parse-query.fun 65.9-70.73.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun parseDefine2 (optName, LS.Con  ...  d " ^ L.toString t))
Warning: src/frontend/parse-query.fun 74.9-79.80.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseDefine1 (LS.Cons ((L.ID   ...  d " ^ L.toString t))
Warning: src/frontend/parse-query.fun 81.9-88.66.
  Function is not exhaustive.
    missing pattern: (_, _, Empty, _)
    in: fun parseSolve3 (defns, nameOpt,   ...  d " ^ L.toString t))
Warning: src/frontend/parse-query.fun 83.15-83.45.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (tm, f' as LS.Cons ((_, r), _  ...  Term' (LS.expose s')
Warning: src/frontend/parse-query.fun 90.9-95.80.
  Function is not exhaustive.
    missing pattern: (_, Empty, _)
    in: fun parseSolve2 (defns, LS.Cons (  ...  d " ^ L.toString t))
Warning: src/frontend/parse-query.fun 97.9-106.79.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: and parseSolve1 (defns, LS.Cons (  ...  d " ^ L.toString t))
Warning: src/frontend/parse-fixity.fun 42.9-45.83.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun parseFixCon (fixity, LS.Cons   ...  d " ^ L.toString t))
Warning: src/frontend/parse-fixity.fun 48.9-51.66.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun parseFixPrec (fixity, LS.Cons  ...  d " ^ L.toString t))
Warning: src/frontend/parse-fixity.fun 54.9-62.22.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseInfix (LS.Cons ((L.ID (L  ...  d " ^ L.toString t))
Warning: src/frontend/parse-fixity.fun 73.9-75.81.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseFixity' (LS.Cons ((L.INF  ...  tfix (LS.expose s'))
Warning: src/frontend/parse-fixity.fun 85.9-91.78.
  Function is not exhaustive.
    missing pattern: (_, _, _, _, Empty)
    in: fun parseName5 (name, r0, prefENa  ...  d " ^ L.toString t))
Warning: src/frontend/parse-fixity.fun 103.9-110.78.
  Function is not exhaustive.
    missing pattern: (_, _, _, Empty)
    in: fun parseName4 (name, r0, prefENa  ...  d " ^ L.toString t))
Warning: src/frontend/parse-fixity.fun 115.9-122.71.
  Function is not exhaustive.
    missing pattern: (_, _, Empty)
    in: fun parseName2 (name, r0, LS.Cons  ...  d " ^ L.toString t))
Warning: src/frontend/parse-fixity.fun 125.9-128.91.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseName1 (LS.Cons ((L.ID (_  ...  d " ^ L.toString t))
Warning: src/frontend/parse-fixity.fun 133.9-133.78.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseNamePref' (LS.Cons ((L.N  ...  ame1 (LS.expose s'))
Warning: src/frontend/parse-mode.fun 56.9-58.74.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun stripRParen (LS.Cons ((L.RPAR  ...  d " ^ L.toString t))
Warning: src/frontend/parse-mode.fun 60.9-62.66.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun stripRBrace (LS.Cons ((L.RBRA  ...  d " ^ L.toString t))
Warning: src/frontend/parse-mode.fun 65.9-77.67.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseShortSpine (f as LS.Cons  ...  d " ^ L.toString t))
Warning: src/frontend/parse-mode.fun 80.9-114.81.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: fun parseFull (LS.Cons (t0 as (L.  ...  d " ^ L.toString t))
Warning: src/frontend/parse-mode.fun 83.8-104.10.
  Case is not exhaustive.
    missing pattern: Empty
    in: case LS.expose s' of LS.Cons ((L.  ...  in (r, r1)), f') end
Warning: src/frontend/parse-mode.fun 100.7-100.38.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (t', f' as LS.Cons ((_, r), s  ...  ns (t0, LS.cons TS))
Warning: src/frontend/parse-mode.fun 118.9-129.4.
  Function is not exhaustive.
    missing pattern: ((ABBREV
                       | ARROW
                       | ASSERT
                       | BACKARROW
                       | BLOCK
                       | CLAUSE
                       | COLON
                       | COMPILE
                       | COVERS
                       | DEFINE
                       | DETERMINISTIC
                       | DOT
                       | EOF
                       | EQUAL
                       | ESTABLISH
                       | FQUERY
                       | FREEZE
                       | INCLUDE
                       | INFIX
                       | KEEPTABLE
                       | LBRACE
                       | LBRACKET
                       | LPAREN
                       | MODE
                       | NAME
                       | OPEN
                       | PATHSEP
                       | POSTFIX
                       | PREFIX
                       | PROVE
                       | QUERYTABLED
                       | QUERY
                       | RBRACE
                       | RBRACKET
                       | REDUCES
                       | RPAREN
                       | SIG
                       | SOLVE
                       | STRING _
                       | STRUCT
                       | SUBORD
                       | TABLED
                       | TERMINATES
                       | THAW
                       | THEOREM
                       | TOTAL
                       | TRUSTME
                       | TYPE
                       | UNDERSCORE
                       | UNIQUE
                       | USE
                       | WHERE
                       | WORLDS,
                       _),
                      Cons ((ABBREV
                             | ARROW
                             | ASSERT
                             | BACKARROW
                             | BLOCK
                             | CLAUSE
                             | COLON
                             | COMPILE
                             | COVERS
                             | DEFINE
                             | DETERMINISTIC
                             | DOT
                             | EOF
                             | EQUAL
                             | ESTABLISH
                             | FQUERY
                             | FREEZE
                             | ID _
                             | INCLUDE
                             | INFIX
                             | KEEPTABLE
                             | LBRACKET
                             | LPAREN
                             | MODE
                             | NAME
                             | OPEN
                             | PATHSEP
                             | POSTFIX
                             | PREFIX
                             | PROVE
                             | QUERYTABLED
                             | QUERY
                             | RBRACE
                             | RBRACKET
                             | REDUCES
                             | RPAREN
                             | SIG
                             | SOLVE
                             | STRING _
                             | STRUCT
                             | SUBORD
                             | TABLED
                             | TERMINATES
                             | THAW
                             | THEOREM
                             | TOTAL
                             | TRUSTME
                             | TYPE
                             | UNDERSCORE
                             | UNIQUE
                             | USE
                             | WHERE
                             | WORLDS,
                             _),
                            _),
                      _)
                     | ((ABBREV
                         | ARROW
                         | ASSERT
                         | BACKARROW
                         | BLOCK
                         | CLAUSE
                         | COLON
                         | COMPILE
                         | COVERS
                         | DEFINE
                         | DETERMINISTIC
                         | DOT
                         | EOF
                         | EQUAL
                         | ESTABLISH
                         | FQUERY
                         | FREEZE
                         | INCLUDE
                         | INFIX
                         | KEEPTABLE
                         | LBRACE
                         | LBRACKET
                         | LPAREN
                         | MODE
                         | NAME
                         | OPEN
                         | PATHSEP
                         | POSTFIX
                         | PREFIX
                         | PROVE
                         | QUERYTABLED
                         | QUERY
                         | RBRACE
                         | RBRACKET
                         | REDUCES
                         | RPAREN
                         | SIG
                         | SOLVE
                         | STRING _
                         | STRUCT
                         | SUBORD
                         | TABLED
                         | TERMINATES
                         | THAW
                         | THEOREM
                         | TOTAL
                         | TRUSTME
                         | TYPE
                         | UNDERSCORE
                         | UNIQUE
                         | USE
                         | WHERE
                         | WORLDS,
                         _),
                        Empty,
                        _)
    in: fun parseMode2 (lexid, LS.Cons (B  ...  e, r, mS')), f') end
Warning: src/frontend/parse-mode.fun 131.9-139.66.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: fun parseModeParen (LS.Cons ((L.I  ...  d " ^ L.toString t))
Warning: src/frontend/parse-mode.fun 142.9-147.81.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseMode1 (LS.Cons (lexid as  ...  d " ^ L.toString t))
Warning: src/frontend/parse-mode.fun 160.9-162.76.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseMode' (LS.Cons ((L.MODE,  ...  ode1 (LS.expose s'))
Warning: src/frontend/parse-thm.fun 39.9-41.66.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun stripRParen (LS.Cons ((L.RPAR  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 43.9-46.77.
  Function is not exhaustive.
    missing pattern: (_, (_, Empty))
    in: fun decideRBrace (r0, (orders, LS  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 48.9-51.77.
  Function is not exhaustive.
    missing pattern: (_, (_, Empty))
    in: fun decideRBracket (r0, (orders,   ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 53.9-56.77.
  Function is not exhaustive.
    missing pattern: (_, (_, Empty))
    in: fun decideRParen (r0, (ids, LS.Co  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 89.9-96.72.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseCallPat (LS.Cons ((L.ID   ...  n " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 91.8-91.43.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (idOpts, f' as LS.Cons ((_, r  ...  rgPat (LS.expose s')
Warning: src/frontend/parse-thm.fun 99.9-110.73.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseCallPats (LS.Cons ((L.LP  ...  n " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 118.9-126.56.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseOrderOpt (LS.Cons ((L.LP  ...  (_, s')) = (NONE, f)
Warning: src/frontend/parse-thm.fun 142.9-144.68.
  Function is not exhaustive.
    missing pattern: (NONE, Empty)
    in: and parseOrder' (SOME order, f')   ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 157.9-158.35.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseTerminates' (LS.Cons ((L  ...  Decl (LS.expose s'))
Warning: src/frontend/parse-thm.fun 165.9-166.35.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseTotal' (LS.Cons ((L.TOTA  ...  Decl (LS.expose s'))
Warning: src/frontend/parse-thm.fun 173.9-181.72.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parsePDecl (LS.Cons ((L.ID (_  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 184.9-185.35.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseProve' (LS.Cons ((L.PROV  ...  Decl (LS.expose s'))
Warning: src/frontend/parse-thm.fun 193.9-201.72.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseEDecl (LS.Cons ((L.ID (_  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 204.9-205.35.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseEstablish' (LS.Cons ((L.  ...  Decl (LS.expose s'))
Warning: src/frontend/parse-thm.fun 212.9-217.4.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseAssert' (LS.Cons ((L.ASS  ...   callpats), f'') end
Warning: src/frontend/parse-thm.fun 223.9-225.66.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun stripRBrace (LS.Cons ((L.RBRA  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 249.9-256.59.
  Function is not exhaustive.
    missing pattern: Empty
    in: and parseDecs (LS.Cons (BS as ((L  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 258.9-261.60.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parsePi (LS.Cons ((L.ID (_, "  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 263.9-278.70.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun parseSome (gbs, LS.Cons ((L.I  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 280.9-284.66.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: and parseSome' (gbs, f as LS.Cons  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 286.9-286.75.
  Function is not exhaustive.
    missing pattern: (_,
                      Cons ((ABBREV
                             | ARROW
                             | ASSERT
                             | BACKARROW
                             | BLOCK
                             | CLAUSE
                             | COLON
                             | COMPILE
                             | COVERS
                             | DEFINE
                             | DETERMINISTIC
                             | DOT
                             | EOF
                             | EQUAL
                             | ESTABLISH
                             | FQUERY
                             | FREEZE
                             | ID _
                             | INCLUDE
                             | INFIX
                             | KEEPTABLE
                             | LBRACE
                             | LBRACKET
                             | LPAREN
                             | MODE
                             | NAME
                             | OPEN
                             | PATHSEP
                             | POSTFIX
                             | PREFIX
                             | PROVE
                             | QUERYTABLED
                             | QUERY
                             | RBRACE
                             | RBRACKET
                             | REDUCES
                             | SIG
                             | SOLVE
                             | STRING _
                             | STRUCT
                             | SUBORD
                             | TABLED
                             | TERMINATES
                             | THAW
                             | THEOREM
                             | TOTAL
                             | TRUSTME
                             | TYPE
                             | UNDERSCORE
                             | UNIQUE
                             | USE
                             | WHERE
                             | WORLDS,
                             _),
                            _))
                     | (_, Empty)
    in: fun stripParen (gbs, LS.Cons ((L.  ...   (gbs, LS.expose s')
Warning: src/frontend/parse-thm.fun 288.9-291.59.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseGBs (LS.Cons ((L.LPAREN,  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 324.9-327.62.
  Function is not exhaustive.
    missing pattern: Empty
    in: and parseTrue (LS.Cons ((L.ID (_,  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 330.9-335.74.
  Function is not exhaustive.
    missing pattern: Empty
    in: and parseExists (LS.Cons ((L.ID (  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 338.9-345.85.
  Function is not exhaustive.
    missing pattern: Empty
    in: and parseForall (LS.Cons ((L.ID (  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 348.9-358.23.
  Function is not exhaustive.
    missing pattern: Empty
    in: and parseForallStar (LS.Cons ((L.  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 360.9-372.23.
  Function is not exhaustive.
    missing pattern: Empty
    in: and parseCtxScheme (LS.Cons ((L.I  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 375.9-378.59.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseColon (LS.Cons ((L.COLON  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 381.9-388.72.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseThDec (LS.Cons ((L.ID (_  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 392.9-393.35.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseTheoremDec' (LS.Cons ((L  ...  hDec (LS.expose s'))
Warning: src/frontend/parse-thm.fun 399.9-403.84.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parsePredicate (LS.Cons ((L.I  ...  d " ^ L.toString t))
Warning: src/frontend/parse-thm.fun 419.8-420.26.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseReduces' (LS.Cons ((L.RE  ...  Decl (LS.expose s'))
Warning: src/frontend/parse-thm.fun 423.9-426.44.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseTabledDecl (f as LS.Cons  ...   (r, "Expected .")))
Warning: src/frontend/parse-thm.fun 430.8-431.31.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseTabled' (LS.Cons ((L.TAB  ...  Decl (LS.expose s'))
Warning: src/frontend/parse-thm.fun 434.8-437.44.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseKeepTableDecl (f as LS.C  ...   (r, "Expected .")))
Warning: src/frontend/parse-thm.fun 441.8-442.34.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseKeepTable' (LS.Cons ((L.  ...  Decl (LS.expose s'))
Warning: src/frontend/parse-thm.fun 454.8-455.33.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE,
                            _),
                           _)
                     | Empty
    in: fun parseWorlds' (LS.Cons ((L.WOR  ...  Decl (LS.expose s'))
Warning: src/frontend/parse-module.fun 23.7-30.87.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseStructExp' (f as LS.Cons  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 25.13-25.43.
  Declaration is not exhaustive.
    missing pattern: ((_,
                       (ABBREV
                        | ARROW
                        | ASSERT
                        | BACKARROW
                        | BLOCK
                        | CLAUSE
                        | COLON
                        | COMPILE
                        | COVERS
                        | DEFINE
                        | DETERMINISTIC
                        | DOT
                        | EOF
                        | EQUAL
                        | ESTABLISH
                        | FQUERY
                        | FREEZE
                        | INCLUDE
                        | INFIX
                        | KEEPTABLE
                        | LBRACE
                        | LBRACKET
                        | LPAREN
                        | MODE
                        | NAME
                        | OPEN
                        | PATHSEP
                        | POSTFIX
                        | PREFIX
                        | PROVE
                        | QUERYTABLED
                        | QUERY
                        | RBRACE
                        | RBRACKET
                        | REDUCES
                        | RPAREN
                        | SIG
                        | SOLVE
                        | STRING _
                        | STRUCT
                        | SUBORD
                        | TABLED
                        | TERMINATES
                        | THAW
                        | THEOREM
                        | TOTAL
                        | TRUSTME
                        | TYPE
                        | UNDERSCORE
                        | UNIQUE
                        | USE
                        | WHERE
                        | WORLDS,
                        _)),
                      _)
    in: val ((ids, (L.ID (_, id), r1)), f  ...  eTerm.parseQualId' f
Warning: src/frontend/parse-module.fun 32.7-38.71.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseColonEqual' (LS.Cons ((L  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 34.13-36.77.
  Case is not exhaustive.
    missing pattern: Empty
    in: case LS.expose s' of LS.Cons ((L.  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 40.7-42.70.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseDot' (LS.Cons ((L.DOT, r  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 44.7-55.77.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseConInst' (f as LS.Cons (  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 46.13-46.43.
  Declaration is not exhaustive.
    missing pattern: ((_,
                       (ABBREV
                        | ARROW
                        | ASSERT
                        | BACKARROW
                        | BLOCK
                        | CLAUSE
                        | COLON
                        | COMPILE
                        | COVERS
                        | DEFINE
                        | DETERMINISTIC
                        | DOT
                        | EOF
                        | EQUAL
                        | ESTABLISH
                        | FQUERY
                        | FREEZE
                        | INCLUDE
                        | INFIX
                        | KEEPTABLE
                        | LBRACE
                        | LBRACKET
                        | LPAREN
                        | MODE
                        | NAME
                        | OPEN
                        | PATHSEP
                        | POSTFIX
                        | PREFIX
                        | PROVE
                        | QUERYTABLED
                        | QUERY
                        | RBRACE
                        | RBRACKET
                        | REDUCES
                        | RPAREN
                        | SIG
                        | SOLVE
                        | STRING _
                        | STRUCT
                        | SUBORD
                        | TABLED
                        | TERMINATES
                        | THAW
                        | THEOREM
                        | TOTAL
                        | TRUSTME
                        | TYPE
                        | UNDERSCORE
                        | UNIQUE
                        | USE
                        | WHERE
                        | WORLDS,
                        _)),
                      _)
    in: val ((ids, (L.ID (_, id), r1)), f  ...  eTerm.parseQualId' f
Warning: src/frontend/parse-module.fun 57.7-69.87.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun parseStrInst2' (r0, f as LS.C  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 59.13-59.43.
  Declaration is not exhaustive.
    missing pattern: ((_,
                       (ABBREV
                        | ARROW
                        | ASSERT
                        | BACKARROW
                        | BLOCK
                        | CLAUSE
                        | COLON
                        | COMPILE
                        | COVERS
                        | DEFINE
                        | DETERMINISTIC
                        | DOT
                        | EOF
                        | EQUAL
                        | ESTABLISH
                        | FQUERY
                        | FREEZE
                        | INCLUDE
                        | INFIX
                        | KEEPTABLE
                        | LBRACE
                        | LBRACKET
                        | LPAREN
                        | MODE
                        | NAME
                        | OPEN
                        | PATHSEP
                        | POSTFIX
                        | PREFIX
                        | PROVE
                        | QUERYTABLED
                        | QUERY
                        | RBRACE
                        | RBRACKET
                        | REDUCES
                        | RPAREN
                        | SIG
                        | SOLVE
                        | STRING _
                        | STRUCT
                        | SUBORD
                        | TABLED
                        | TERMINATES
                        | THAW
                        | THEOREM
                        | TOTAL
                        | TRUSTME
                        | TYPE
                        | UNDERSCORE
                        | UNIQUE
                        | USE
                        | WHERE
                        | WORLDS,
                        _)),
                      _)
    in: val ((ids, (L.ID (_, id), r2)), f  ...  eTerm.parseQualId' f
Warning: src/frontend/parse-module.fun 71.7-74.76.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseStrInst' (LS.Cons ((L.ST  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 76.7-93.90.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseInsts' (f as LS.Cons ((L  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 95.7-98.70.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseInstantiate' (f as LS.Co  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 108.7-123.38.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseSigExp' (LS.Cons ((L.ID   ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 125.7-129.70.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun parseSgEqual' (idOpt, LS.Cons  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 131.7-136.80.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseSgDef' (LS.Cons ((L.ID (  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 138.7-139.34.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseSigDef' (LS.Cons ((L.SIG  ...  Def' (LS.expose s'))
Warning: src/frontend/parse-module.fun 141.7-151.77.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun parseStrDec2' (idOpt, LS.Cons  ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 153.7-158.87.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseStrDec' (LS.Cons ((L.ID   ...  n " ^ L.toString t))
Warning: src/frontend/parse-module.fun 160.7-161.35.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseStructDec' (LS.Cons ((L.  ...  Dec' (LS.expose s'))
Warning: src/frontend/parse-module.fun 163.7-164.35.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseInclude' (LS.Cons ((L.IN  ...  Exp' (LS.expose s'))
Warning: src/frontend/parse-module.fun 166.7-167.38.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EOF
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACE
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun parseOpen' (LS.Cons ((L.OPEN,  ...  Exp' (LS.expose s'))
Warning: src/frontend/parser.fun 89.9-101.59.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun stripDot (LS.Cons ((L.DOT, r)  ...  d " ^ L.toString t))
Warning: src/frontend/parser.fun 109.9-116.22.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun parseBound' (LS.Cons ((L.ID (  ...  d " ^ L.toString t))
Warning: src/frontend/parser.fun 124.15-135.72.
  Case is not exhaustive.
    missing pattern: (Continuation _, Empty)
    in: case recparser f of (Parsing.Done  ...  d " ^ L.toString t))
Warning: src/frontend/parser.fun 127.21-130.78.
  Function is not exhaustive.
    missing pattern: Empty
    in: fun finish (LS.Cons ((L.RBRACE, r  ...  d " ^ L.toString t))
Warning: src/frontend/parser.fun 142.9-215.22.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseStream' (f as LS.Cons ((  ...  d " ^ L.toString t))
Warning: src/frontend/parser.fun 180.15-180.46.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (query, f3 as LS.Cons ((_, r'  ...  uery' (LS.expose s2)
Warning: src/frontend/parser.fun 170.15-170.46.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (query, f3 as LS.Cons ((_, r'  ...  uery' (LS.expose s')
Warning: src/frontend/parser.fun 163.15-163.46.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (query, f3 as LS.Cons ((_, r'  ...  uery' (LS.expose s2)
Warning: src/frontend/parser.fun 150.8-150.45.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (namePref, f' as LS.Cons ((_,  ...  ity.parseNamePref' f
Warning: src/frontend/parser.fun 217.9-223.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseConDec' (f as LS.Cons ((  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 219.8-219.40.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (conDec, f' as LS.Cons ((_, r  ...  onDec.parseConDec' f
Warning: src/frontend/parser.fun 225.9-231.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseAbbrev' (f as LS.Cons ((  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 227.8-227.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (conDec, f' as LS.Cons ((_, r  ...  onDec.parseAbbrev' f
Warning: src/frontend/parser.fun 233.9-239.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseClause' (f as LS.Cons ((  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 235.8-235.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (conDec, f' as LS.Cons ((_, r  ...  onDec.parseClause' f
Warning: src/frontend/parser.fun 241.9-247.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseFixity' (f as LS.Cons ((  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 243.8-243.39.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (fdec, f' as LS.Cons ((_, r')  ...  ixity.parseFixity' f
Warning: src/frontend/parser.fun 249.9-255.11.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseSolve' (f as LS.Cons ((_  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 251.15-251.52.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (defnssolve, f' as LS.Cons ((  ...  eQuery.parseSolve' f
Warning: src/frontend/parser.fun 257.9-263.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseMode' (f as LS.Cons ((_,  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 259.8-259.40.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (mdecs, f' as LS.Cons ((_, r'  ...  rseMode.parseMode' f
Warning: src/frontend/parser.fun 265.9-271.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseUnique' (f as LS.Cons ((  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 267.8-267.40.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (mdecs, f' as LS.Cons ((_, r'  ...  rseMode.parseMode' f
Warning: src/frontend/parser.fun 273.9-279.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseCovers' (f as LS.Cons ((  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 275.8-275.42.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (mdecs, f' as LS.Cons ((_, r'  ...  rseMode.parseMode' f
Warning: src/frontend/parser.fun 281.9-287.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseTotal' (f as LS.Cons ((_  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 283.8-283.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (ldec, f' as LS.Cons ((_, r')  ...  rseThm.parseTotal' f
Warning: src/frontend/parser.fun 289.9-295.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseTerminates' (f as LS.Con  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 291.8-291.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (ldec, f' as LS.Cons ((_, r')  ...  m.parseTerminates' f
Warning: src/frontend/parser.fun 297.9-303.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseReduces' (f as LS.Cons (  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 299.8-299.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (ldec, f' as LS.Cons ((_, r')  ...  eThm.parseReduces' f
Warning: src/frontend/parser.fun 305.9-311.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseTabled' (f as LS.Cons ((  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 307.8-307.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (ldec, f' as LS.Cons ((_, r')  ...  seThm.parseTabled' f
Warning: src/frontend/parser.fun 313.9-319.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseKeepTable' (f as LS.Cons  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 315.8-315.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (ldec, f' as LS.Cons ((_, r')  ...  hm.parseKeepTable' f
Warning: src/frontend/parser.fun 321.9-327.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseWorlds' (f as LS.Cons ((  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 323.8-323.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (ldec, f' as LS.Cons ((_, r')  ...  seThm.parseWorlds' f
Warning: src/frontend/parser.fun 329.9-335.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseTheorem' (f as LS.Cons (  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 331.8-331.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (ldec, f' as LS.Cons ((_, r')  ...  m.parseTheoremDec' f
Warning: src/frontend/parser.fun 337.9-343.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseProve' (f as LS.Cons ((_  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 339.8-339.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (ldec, f' as LS.Cons ((_, r')  ...  rseThm.parseProve' f
Warning: src/frontend/parser.fun 345.9-351.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseEstablish' (f as LS.Cons  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 347.8-347.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (ldec, f' as LS.Cons ((_, r')  ...  hm.parseEstablish' f
Warning: src/frontend/parser.fun 353.9-359.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseAssert' (f as LS.Cons ((  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 355.8-355.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (ldec, f' as LS.Cons ((_, r')  ...  seThm.parseAssert' f
Warning: src/frontend/parser.fun 361.9-369.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseTrustMe' (f as LS.Cons (  ...  S.expose s, sc)) end
Warning: src/frontend/parser.fun 371.9-378.11.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseSubord' (f as LS.Cons ((  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 373.15-373.52.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (qidpairs, f' as LS.Cons ((_,  ...  ubord' (LS.expose s)
Warning: src/frontend/parser.fun 380.9-387.11.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseFreeze' (f as LS.Cons ((  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 382.15-382.48.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (qids, f' as LS.Cons ((_, r')  ...  reeze' (LS.expose s)
Warning: src/frontend/parser.fun 389.9-396.4.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseThaw' (f as LS.Cons ((_,  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 391.8-391.41.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (qids, f' as LS.Cons ((_, r')  ...  eThaw' (LS.expose s)
Warning: src/frontend/parser.fun 398.9-405.11.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseDeterministic' (f as LS.  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 400.15-400.48.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (qids, f' as LS.Cons ((_, r')  ...  istic' (LS.expose s)
Warning: src/frontend/parser.fun 408.9-415.11.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseCompile' (f as LS.Cons (  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 410.15-410.48.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (qids, f' as LS.Cons ((_, r')  ...  mpile' (LS.expose s)
Warning: src/frontend/parser.fun 418.9-425.11.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseSigDef' (f as LS.Cons ((  ...  eStream, finish) end
Warning: src/frontend/parser.fun 420.15-422.59.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun finish (sigdef, f' as LS.Cons  ...   (stripDot f', sc)))
Warning: src/frontend/parser.fun 427.9-434.11.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseStructDec' (f as LS.Cons  ...  eStream, finish) end
Warning: src/frontend/parser.fun 429.15-431.59.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun finish (structdec, f' as LS.C  ...   (stripDot f', sc)))
Warning: src/frontend/parser.fun 436.9-443.11.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseInclude' (f as LS.Cons (  ...  eStream, finish) end
Warning: src/frontend/parser.fun 438.15-440.59.
  Function is not exhaustive.
    missing pattern: (_, Empty)
    in: fun finish (sigexp, f' as LS.Cons  ...   (stripDot f', sc)))
Warning: src/frontend/parser.fun 445.9-452.11.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseOpen' (f as LS.Cons ((_,  ...  tripDot f', sc)) end
Warning: src/frontend/parser.fun 447.15-447.50.
  Declaration is not exhaustive.
    missing pattern: (_, Empty)
    in: val (strexp, f' as LS.Cons ((_, r  ...  eModule.parseOpen' f
Warning: src/frontend/parser.fun 454.9-462.60.
  Function is not exhaustive.
    missing pattern: (Empty, _)
    in: and parseUse' (LS.Cons ((L.ID (_,  ...  ver name expected"))
Warning: src/frontend/parser.fun 456.15-456.39.
  Declaration is not exhaustive.
    missing pattern: Empty
    in: val f as LS.Cons ((_, r'), _) = LS.expose s
Warning: src/frontend/parser.fun 474.15-476.50.
  Function is not exhaustive.
    missing pattern: Cons ((ABBREV
                            | ARROW
                            | ASSERT
                            | BACKARROW
                            | BLOCK
                            | CLAUSE
                            | COLON
                            | COMPILE
                            | COVERS
                            | DEFINE
                            | DETERMINISTIC
                            | DOT
                            | EQUAL
                            | ESTABLISH
                            | FQUERY
                            | FREEZE
                            | ID _
                            | INCLUDE
                            | INFIX
                            | KEEPTABLE
                            | LBRACE
                            | LBRACKET
                            | LPAREN
                            | MODE
                            | NAME
                            | OPEN
                            | PATHSEP
                            | POSTFIX
                            | PREFIX
                            | PROVE
                            | QUERYTABLED
                            | QUERY
                            | RBRACKET
                            | REDUCES
                            | RPAREN
                            | SIG
                            | SOLVE
                            | STRING _
                            | STRUCT
                            | SUBORD
                            | TABLED
                            | TERMINATES
                            | THAW
                            | THEOREM
                            | TOTAL
                            | TRUSTME
                            | TYPE
                            | UNDERSCORE
                            | UNIQUE
                            | USE
                            | WHERE
                            | WORLDS,
                            _),
                           _)
                     | Empty
    in: fun finish (LS.Cons ((L.EOF, r),   ...  r, "Unmatched `}'"))
Warning: src/frontend/fquery.fun 41.7-42.68.
  Function is not exhaustive.
    missing pattern: (~2147483648 .. ~1 | 1 .. 2147483647,
                      _,
                      AVar _
                      | EClo _
                      | EVar _
                      | FgnExp _
                      | Lam _
                      | NVar _
                      | Redex _
                      | Root _
                      | Uni _)
    in: fun lower (0, G, V) = (G, V) | lo  ...  , I.Decl (G, D), V))
Warning: src/frontend/twelf.fun 279.9-279.48.
  Function is not exhaustive.
    missing pattern: nil
    in: fun joinregions (r :: rs) = (joinregion (r, rs))
Warning: src/frontend/twelf.fun 462.9-1150.100.
  Function is not exhaustive.
    missing pattern: (_, (BeginSubsig | EndSubsig, _))
    in: fun install1 (fileName, (Parser.C  ...  e at top level")))))
Warning: src/frontend/twelf.fun 1111.8-1112.55.
  Case is not exhaustive.
    missing pattern: AbbrevDef _ | ConDec _ | ConDef _ | SkoDec _
    in: case IntSyn.sgnLookup cid of IntS  ...  (flatten (L @ L') F)
Warning: src/frontend/twelf.fun 1013.8-1013.54.
  Declaration is not exhaustive.
    missing pattern: (_,
                      AbbrevDef _
                      | BlockDec _
                      | BlockDef _
                      | ConDef _
                      | SkoDec _)
    in: val (GBs, E as IntSyn.ConDec (nam  ...  ecToConDec (Tdec, r)
Warning: src/frontend/twelf.fun 723.7-723.13.
  Declaration is not exhaustive.
    missing pattern: NONE
    in: val SOME ms = ModeTable.modeLookup a
Warning: src/frontend/twelf.fun 1152.9-1228.11.
  Function is not exhaustive.
    missing pattern: (_,
                      NONE,
                      (AbbrevDec _
                       | AssertDec _
                       | BeginSubsig
                       | ClauseDec _
                       | Compile _
                       | ConDec _
                       | CoversDec _
                       | DeterministicDec _
                       | EndSubsig
                       | EstablishDec _
                       | FQuery _
                       | FixDec _
                       | FreezeDec _
                       | KeepTableDec _
                       | ModeDec _
                       | NamePref _
                       | ProveDec _
                       | Query _
                       | Querytabled _
                       | ReducesDec _
                       | Solve _
                       | SubordDec _
                       | TabledDec _
                       | TerminatesDec _
                       | ThawDec _
                       | TheoremDec _
                       | TotalDec _
                       | TrustMe _
                       | UniqueDec _
                       | Use _
                       | WorldDec _,
                       _))
                     | (_,
                        SOME _,
                        (AbbrevDec _
                         | AssertDec _
                         | BeginSubsig
                         | ClauseDec _
                         | Compile _
                         | ConDec _
                         | CoversDec _
                         | DeterministicDec _
                         | EndSubsig
                         | EstablishDec _
                         | FQuery _
                         | FixDec _
                         | FreezeDec _
                         | KeepTableDec _
                         | ModeDec _
                         | NamePref _
                         | Open _
                         | ProveDec _
                         | Query _
                         | Querytabled _
                         | ReducesDec _
                         | Solve _
                         | SubordDec _
                         | TabledDec _
                         | TerminatesDec _
                         | ThawDec _
                         | TheoremDec _
                         | TotalDec _
                         | TrustMe _
                         | UniqueDec _
                         | Use _
                         | WorldDec _,
                         _))
    in: and install1WithSig (fileName, mo  ...  ") else () in () end
Warning: src/frontend/twelf.fun 1243.15-1247.56.
  Function is not exhaustive.
    missing pattern: Empty
    in: and install' (S.Cons ((Parser.Beg  ...  declr) ; install s')
Warning: src/frontend/twelf.fun 1278.22-1278.40.
  Declaration is not exhaustive.
    missing pattern: Empty
    in: val S.Cons (declr, s'') = (Timers  ...  parsing S.expose) s'
/var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/work/twelf/emacs /var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/work/twelf
 * Emacs version: 27.2
 * Compiling GNU Emacs Elisp files ...

In toplevel form:
auc-menu.el:92:1:Error: Old-style backquotes detected!

In toplevel form:
twelf-font.el:30:1:Error: Loading ‘/var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/work/twelf/emacs/twelf.el’: old-style backquotes detected!

In toplevel form:
twelf-init.el:4:29:Warning: reference to free variable ‘twelf-root’

In twelf-mark-absolute:
twelf.el:1071:32:Warning: ‘goto-line’ is for interactive use only; use
    ‘forward-line’ instead.
twelf.el:1083:11:Warning: ‘goto-line’ is for interactive use only; use
    ‘forward-line’ instead.
twelf.el:1091:21:Warning: ‘goto-line’ is for interactive use only; use
    ‘forward-line’ instead.

In twelf-server-sync-config:
twelf.el:1712:40:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer

In twelf-tag:
twelf.el:2293:68:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer

In twelf-tag-files:
twelf.el:2322:50:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer
twelf.el:2323:27:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer

In twelf-tag-file:
twelf.el:2338:21:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer
twelf.el:2361:42:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer
twelf.el:2349:22:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer
twelf.el:2353:55:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer

In skip-ahead:
twelf.el:2429:7:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer

In new-temp-buffer:
twelf.el:2450:21:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer

In twelf-sml-cd:
twelf.el:2493:31:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer

In twelf-sml-mode:
twelf.el:2558:9:Warning: assignment to free variable
    ‘comint-match-partial-pathname-chars’

In twelf-sml-status:
twelf.el:2682:10:Warning: Use ‘with-current-buffer’ rather than
    save-excursion+set-buffer
twelf.el:2835:1:Error: Old-style backquotes detected!
 * elisp-compile: batch-byte-compile failed
 [ !! ]
 * ERROR: sci-mathematics/twelf-1.7.1-r1::gentoo failed (compile phase):
 *   (no error message)
 * 
 * Call stack:
 *     ebuild.sh, line  127:  Called src_compile
 *   environment, line 1396:  Called elisp-compile 'auc-menu.el' 'twelf-font.el' 'twelf-init.el' 'twelf.el'
 *   environment, line  631:  Called die
 * The specific snippet of code:
 *       eend $? "elisp-compile: batch-byte-compile failed" || die
 * 
 * If you need support, post the output of `emerge --info '=sci-mathematics/twelf-1.7.1-r1::gentoo'`,
 * the complete build log and the output of `emerge -pqv '=sci-mathematics/twelf-1.7.1-r1::gentoo'`.
 * The complete build log is located at '/var/log/portage/sci-mathematics:twelf-1.7.1-r1:20210721-215804.log'.
 * For convenience, a symlink to the build log is located at '/var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/temp/build.log'.
 * The ebuild environment file is located at '/var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/temp/environment'.
 * Working directory: '/var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/work/twelf/emacs'
 * S: '/var/tmp/portage/sci-mathematics/twelf-1.7.1-r1/work/twelf'