diff options
| author | Maxime Dénès | 2018-01-17 15:16:39 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-01-17 15:16:39 +0100 |
| commit | d4f965678dcffb836fb9cf8790e3e969d3bfc364 (patch) | |
| tree | 5f3afebbfc26d2215d331c6c61e5e425d5b2f82d /checker/indtypes.ml | |
| parent | e77fa3a6226926cca7893c4fbc620bcf2372698e (diff) | |
| parent | 20481a3f3405f04b47c7865ca2788a6f63660443 (diff) | |
Merge PR #6584: Implement the strategy mechanism in the checker
Diffstat (limited to 'checker/indtypes.ml')
| -rw-r--r-- | checker/indtypes.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/checker/indtypes.ml b/checker/indtypes.ml index 22c8438126..bb0db8cfe9 100644 --- a/checker/indtypes.ml +++ b/checker/indtypes.ml @@ -586,6 +586,8 @@ let check_inductive env kn mib = Univ.AUContext.repr (Univ.ACumulativityInfo.univ_context cumi) in let env = Environ.push_context ind_ctx env in + (** Locally set the oracle for further typechecking *) + let env0 = Environ.set_oracle env mib.mind_typing_flags.conv_oracle in (* check mind_record : TODO ? check #constructor = 1 ? *) (* check mind_finite : always OK *) (* check mind_ntypes *) @@ -593,13 +595,13 @@ let check_inductive env kn mib = user_err Pp.(str "not the right number of packets"); (* check mind_params_ctxt *) let params = mib.mind_params_ctxt in - let _ = check_ctxt env params in + let _ = check_ctxt env0 params in (* check mind_nparams *) if rel_context_nhyps params <> mib.mind_nparams then user_err Pp.(str "number the right number of parameters"); (* mind_packets *) (* - check arities *) - let env_ar = typecheck_arity env params mib.mind_packets in + let env_ar = typecheck_arity env0 params mib.mind_packets in (* - check constructor types *) Array.iter (typecheck_one_inductive env_ar params mib) mib.mind_packets; (* check the inferred subtyping relation *) |