2014-09-02 15:03:33 -07:00
|
|
|
import logic
|
|
|
|
|
2014-10-02 16:20:52 -07:00
|
|
|
constant C {A : Type} : A → Prop
|
2015-01-24 20:23:21 -08:00
|
|
|
attribute C [class]
|
2014-09-02 15:03:33 -07:00
|
|
|
|
2014-10-12 13:06:00 -07:00
|
|
|
constant f {A : Type} (a : A) [H : C a] : Prop
|
2014-09-02 15:03:33 -07:00
|
|
|
|
|
|
|
definition g {A : Type} (a b : A) {H1 : C a} {H2 : C b} : Prop :=
|
|
|
|
f a ∧ f b
|