Numeric Constraint Guards Throw Error in Parameterized Modules

[mariosge]

Even though Numeric Constraint Guards look to be working properly in a non-parameterized module, a bug appears in parameterized ones.

How to reproduce:

1. Contents of spec.cry:

module spec = parameterized where

type m = 1

2. Contents of parameterized.cry:

module parameterized where

parameter
    type m : #

len : {n} (fin n) => [n] -> Integer
len xs | n == 0 => 0
       | n >  0 => 1 + len (drop `{1} xs)

3. Run $ cryptol spec.cry

4. Outcome:

cryptol: You have encountered a bug in Cryptol's implementation.
*** Please create an issue at https://github.com/GaloisInc/cryptol/issues

%< --------------------------------------------------- 
  Revision:  UNKNOWN
  Branch:    UNKNOWN
  Location:  inst
  Message:   This is not implemented for EPropGuards yet.
CallStack (from HasCallStack):
  panic, called at src/Cryptol/Utils/Panic.hs:21:9 in cryptl-2.13.0.99-324846d2:Cryptol.Utils.Panic
  panic, called at src/Cryptol/ModuleSystem/InstantiateModule.hs:222:36 in cryptl-2.13.0.99-324846d2:Cryptol.ModuleSystem.InstantiateModule
%< --------------------------------------------------- 

I built Cryptol from source using commit: 953673b.
ghc version: 8.10.7
cabal version: 3.6.2.0

[yav]

Ah yes, this works with the new module system (PR: #1363)