blob: fbe909ec414591ffd05f43ca9c09903370918d40 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(* L'algo d'inférence du prédicat doit gérer le K-rédex dans le type de b *)
(* Problème rapporté par Solange Coupet *)
Section A.
Variables (Alpha : Set) (Beta : Set).
Definition nodep_prod_of_dep (c : sigT (fun a : Alpha => Beta)) :
Alpha * Beta := match c with
| existT _ a b => (a, b)
end.
End A.
|
