diff options
| author | Emilio Jesus Gallego Arias | 2020-10-16 17:13:14 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-11-26 21:21:55 +0100 |
| commit | 454a10da9412a5bd6f3661b1f60e17f08289d0e5 (patch) | |
| tree | 8a519db4c66aab9b7e25745ce180b7eeb72673f3 /test-suite | |
| parent | 14150241cfd016c7f64974cc5c58bb116689f3c1 (diff) | |
[proofs] Support per-definition typing-flags in interactive proofs.
Most cases should be accounted in proof code, however be wary of paths
where `Global.env ()` is used.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/success/typing_flags.v | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/test-suite/success/typing_flags.v b/test-suite/success/typing_flags.v index a6640a5a03..a5fe676cc1 100644 --- a/test-suite/success/typing_flags.v +++ b/test-suite/success/typing_flags.v @@ -27,13 +27,12 @@ Print Assumptions att_Cor. (* Interactive + atts *) -(* Coq's handling of environments in tactic mode is too broken for this to work yet *) +(* Coq's handling of environments in tactic mode is too broken for + this to work yet, the pretyper doesn't get the right flags *) -(* #[typing(universes=no)] Definition i_att_T' : Type. Proof. exact (let t := Type in (t : t)). Defined. #[typing(universes=no)] Definition d_att_T' : Type. Proof. exact (let t := Type in (t : t)). Qed. #[typing(universes=no)] Program Definition pi_att_T' : Type. Proof. exact (let t := Type in (t : t)). Qed. -*) (* Note: this works a bit by chance, the attribute only affects the kernel call in Defined. Would the tactics perform a check we would |