diff options
| author | Pierre-Marie Pédrot | 2018-12-13 13:47:43 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-12-13 13:47:43 +0100 |
| commit | 228f0d929bb5098d58cd285fde42bb08d70c6ee8 (patch) | |
| tree | 3ae8d70a8975d862cc8290ffe475cfe149c013be /checker/checker.ml | |
| parent | caa4a00c4d428325484a8701fbf585e8d522acdf (diff) | |
| parent | 0f3c1f242ec824a5772c47de61a6cddebe2ee8c8 (diff) | |
Merge PR #9032: checker: check inductive types by roundtrip through the kernel.
Diffstat (limited to 'checker/checker.ml')
| -rw-r--r-- | checker/checker.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index da6a61de1c..167258f8bb 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -302,6 +302,10 @@ let explain_exn = function (* let ctx = Check.get_env() in hov 0 (str "Error:" ++ spc () ++ Himsg.explain_inductive_error ctx e)*) + + | CheckInductive.InductiveMismatch (mind,field) -> + hov 0 (MutInd.print mind ++ str ": field " ++ str field ++ str " is incorrect.") + | Assert_failure (s,b,e) -> hov 0 (anomaly_string () ++ str "assert failure" ++ spc () ++ (if s = "" then mt () |