File: sub_objects.v

package info (click to toggle)
coq 8.16.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 40,596 kB
  • sloc: ml: 219,376; sh: 3,545; python: 3,231; ansic: 2,529; makefile: 767; lisp: 279; javascript: 63; xml: 24; sed: 2
file content (32 lines) | stat: -rw-r--r-- 600 bytes parent folder | download | duplicates (12)
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
Set Implicit Arguments.
Unset Strict Implicit.


Module M.
  Definition id (A : Set) (x : A) := x.

  Module Type SIG.
    Parameter idid : forall A : Set, A -> A.
  End SIG.

  Module N.
    Definition idid (A : Set) (x : A) := id x.
    (* <Warning> : Grammar is replaced by Notation *)
    Notation inc := (plus 1).
  End N.

  Definition zero := N.idid 0.

End M.

Definition zero := M.N.idid 0.
Definition jeden := M.N.inc 0.

Module Goly := M.N.

Definition Gole_zero := Goly.idid 0.
Definition Goly_jeden := Goly.inc 0.

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

Definition Ubrane_zero := Ubrany.idid 0.