diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-11-30 10:26:40 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-30 10:26:40 +0100 |
commit | e80e40120e9e65362d5dfae12e0200ecf1beaea6 (patch) | |
tree | b810e1c8a1d9fa99de56e0ca70915f722e84fb78 /test-suite/success | |
parent | b23df225c7df7883af6ecfa921986cfb6fd3cd7c (diff) | |
parent | 0ad26633a4589d77de1f864733d1d953dab9ea91 (diff) |
Merge PR #6193: Fix (partial) #4878: option to stop autodeclaring axiom as instance.
Diffstat (limited to 'test-suite/success')
-rw-r--r-- | test-suite/success/Typeclasses.v | 17 | ||||
-rw-r--r-- | test-suite/success/bteauto.v | 1 |
2 files changed, 18 insertions, 0 deletions
diff --git a/test-suite/success/Typeclasses.v b/test-suite/success/Typeclasses.v index 6b1f0315b..cd6eac35c 100644 --- a/test-suite/success/Typeclasses.v +++ b/test-suite/success/Typeclasses.v @@ -240,3 +240,20 @@ Module IterativeDeepening. Qed. End IterativeDeepening. + +Module AxiomsAreInstances. + Set Typeclasses Axioms Are Instances. + Class TestClass1 := {}. + Axiom testax1 : TestClass1. + Definition testdef1 : TestClass1 := _. + + Unset Typeclasses Axioms Are Instances. + Class TestClass2 := {}. + Axiom testax2 : TestClass2. + Fail Definition testdef2 : TestClass2 := _. + + (* we didn't break typeclasses *) + Existing Instance testax2. + Definition testdef2 : TestClass2 := _. + +End AxiomsAreInstances. diff --git a/test-suite/success/bteauto.v b/test-suite/success/bteauto.v index 3178c6fc1..730b367d6 100644 --- a/test-suite/success/bteauto.v +++ b/test-suite/success/bteauto.v @@ -55,6 +55,7 @@ Module Backtracking. Axiom A : Type. Existing Class A. Axioms a b c d e: A. + Existing Instances a b c d e. Ltac get_value H := eval cbv delta [H] in H. |