blob: 37504d662d336654bf142b5986098a0ae797cd92 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
From Coq Require Import Bool ssreflect.
Set Printing All.
Set Debug Ssreflect.
Class Class := { sort : Type ; op : sort -> bool }.
Coercion sort : Class >-> Sortclass.
Arguments op [_] _.
Lemma opP (A: Class) (a: A) : reflect True (op a).
Proof. Admitted.
Section Section.
Context (A B: Class) (a: A).
Goal is_true (op a).
by case: opP.
Abort.
End Section.
|
