blob: 92e166e85d3fd24cfe882ef785cd2e6d791d5383 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
From Coq Require Import Utf8 Bool ssreflect.
Set Printing All.
Set Debug Ssreflect.
Class Class sort := { op : sort → bool }.
Arguments op {_ _}.
Hint Mode Class !.
Lemma opP A (C: Class A) (a: A) : reflect True (op a).
Proof. Admitted.
Arguments op {_ _}.
Section Section.
Context A B (CA : Class A) (CB : Class B) (a: A).
Goal is_true (op a).
by case: opP.
Abort.
End Section.
|
