File: sub_objects.v

package info (click to toggle)
coq 8.0pl2-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 14,228 kB
  • ctags: 17,685
  • sloc: ml: 97,070; makefile: 1,255; sh: 738; lisp: 456; awk: 15
file content (33 lines) | stat: -rw-r--r-- 593 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Set Implicit Arguments.


Module M.
  Definition id:=[A:Set][x:A]x.

  Module Type SIG.
    Parameter idid:(A:Set)A->A.
  End SIG.

  Module N.
    Definition idid:=[A:Set][x:A](id x).
    Grammar constr constr8 := 
      not_eq [ "#"  constr7($b) ] -> [ (idid $b) ].
    Notation inc := (plus (S O)). 
  End N.

  Definition zero:=(N.idid O).

End M.

Definition zero := (M.N.idid O).
Definition jeden := (M.N.inc O).

Module Goly:=M.N.

Definition Gole_zero := (Goly.idid O).
Definition Goly_jeden := (Goly.inc O).

Module Ubrany : M.SIG := M.N.

Definition Ubrane_zero := (Ubrany.idid O).