diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2015-09-20 00:23:59 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2015-09-20 00:23:59 +0200 |
commit | bcba542aac3e17bab78f74e0fd3600e12cc0e492 (patch) | |
tree | d6366a50c2b29c358d531ac51eb9c73817c7cef0 /test-suite/bugs/closed/3948.v | |
parent | b712864e9cf499f1298c1aca1ad8a8b17e145079 (diff) |
Test file for #3948 - Anomaly: unknown constant in Print Assumptions.
Diffstat (limited to 'test-suite/bugs/closed/3948.v')
-rw-r--r-- | test-suite/bugs/closed/3948.v | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/3948.v b/test-suite/bugs/closed/3948.v new file mode 100644 index 000000000..56b1e3ffb --- /dev/null +++ b/test-suite/bugs/closed/3948.v @@ -0,0 +1,24 @@ +Module Type S. +Parameter t : Type. +End S. + +Module Bar(X : S). +Definition elt := X.t. +Axiom fold : elt. +End Bar. + +Module Make (Z: S) := Bar(Z). + +Declare Module Y : S. + +Module Type Interface. +Parameter constant : unit. +End Interface. + +Module DepMap : Interface. +Module Dom := Make(Y). +Definition constant : unit := + let _ := @Dom.fold in tt. +End DepMap. + +Print Assumptions DepMap.constant. |