Mercurial > cpdt > repo

comparison src/MoreSpecif.v @ 89:939add5a7db9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove -impredicative-set
author Adam Chlipala <adamc@hcoop.net>
date Tue, 07 Oct 2008 10:49:07 -0400
parents fd505bcb5632
children 6a00d49e85fb
comparison
equal deleted inserted replaced
88:cde1351d18bb 89:939add5a7db9
43 end. 43 end.
44 End sumbool_and. 44 End sumbool_and.
45 45
46 Infix "&&" := sumbool_and (at level 40, left associativity) : specif_scope. 46 Infix "&&" := sumbool_and (at level 40, left associativity) : specif_scope.
47 47
48 Inductive maybe (A : Type) (P : A -> Prop) : Set := 48 Inductive maybe (A : Set) (P : A -> Prop) : Set :=
49 | Unknown : maybe P 49 | Unknown : maybe P
50 | Found : forall x : A, P x -> maybe P. 50 | Found : forall x : A, P x -> maybe P.
51 51
52 Notation "{{ x | P }}" := (maybe (fun x => P)) : specif_scope. 52 Notation "{{ x | P }}" := (maybe (fun x => P)) : specif_scope.
53 Notation "??" := (Unknown _) : specif_scope. 53 Notation "??" := (Unknown _) : specif_scope.