blob: 82772079965c69d14b895a341d8a5118260a6ffe (
plain)
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
(***********************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
(* <O___,, * INRIA-Rocquencourt & LRI-CNRS-Orsay *)
(* \VV/ *************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(***********************************************************************)
(*i $Id$ i*)
Require Export Logic.
(** Parsing of things in Logic.v *)
Grammar constr constr1 :=
conj [ "<" lconstr($l1) "," lconstr($c2) ">" "{" constr($c3) ","
constr($c4) "}" ] -> [ (conj $l1 $c2 $c3 $c4) ]
| proj1 [ "<" lconstr($l1) "," lconstr($c2) ">" "Fst" "{"
lconstr($l) "}" ] -> [ (proj1 $l1 $c2 $l) ]
| proj2 [ "<" lconstr($l1) "," lconstr($c2) ">" "Snd" "{"
lconstr($l) "}" ] -> [ (proj2 $l1 $c2 $l) ]
| all [ "<" lconstr($l1) ">" "All" "(" lconstr($l2) ")" ] ->
[ (all $l1 $l2) ]
| eq_expl [ "<" lconstr($l1) ">" constr0($c1) "=" constr0($c2) ] ->
[ (eq $l1 $c1 $c2) ]
| eq_impl [ constr0($c) "=" constr0($c2) ] -> [ (eq ? $c $c2) ]
| IF [ "IF" constr($c1) "then" constr($c2) "else" constr($c3)] ->
[ (IF $c1 $c2 $c3) ]
(*
with constr2 :=
not [ "~" constr2($c) ] -> [ (not $c) ]
with constr6 :=
and [ constr5($c1) "/\\" constr6($c2) ] -> [ (and $c1 $c2) ]
with constr7 :=
or [ constr6($c1) "\\/" constr7($c2) ] -> [ (or $c1 $c2) ]
with constr8 :=
iff [ constr7($c1) "<->" constr8($c2) ] -> [ (iff $c1 $c2) ]
*)
with constr10 :=
allexplicit [ "ALL" ident($x) ":" constr($t) "|" constr($p) ]
-> [ (all $t [$x : $t]$p) ]
| allimplicit [ "ALL" ident($x) "|" constr($p) ]
-> [ (all ? [$x]$p) ]
| exexplicit [ "EX" ident($v) ":" constr($t) "|" constr($c1) ]
-> [ (ex $t [$v : $t]$c1) ]
| eximplicit [ "EX" ident($v) "|" constr($c1) ]
-> [ (ex ? [$v]$c1) ]
| ex2explicit [ "EX" ident($v) ":" constr($t) "|" constr($c1) "&"
constr($c2) ] -> [ (ex2 $t [$v : $t]$c1 [$v : $t]$c2) ]
| ex2implicit [ "EX" ident($v) "|" constr($c1) "&"
constr($c2) ] -> [ (ex2 ? [$v]$c1 [$v]$c2) ].
Distfix RIGHTA 2 "~ _" not.
Infix RIGHTA 6 "/\\" and.
Infix RIGHTA 7 "\\/" or.
Infix RIGHTA 8 "<->" iff.
(** Pretty-printing of things in Logic.v *)
Syntax constr
level 1:
equal [ (eq $a $t1 $t2) ] ->
[ [<hov 0> (ANNOT $a) $t1:E [0 1] "=" $t2:E ] ]
| annotskip [ << (ANNOT $_) >> ] -> [ ]
| annotmeta [ << (ANNOT (META ($NUM $n))) >> ] -> [ "<" "?" $n ">" ]
| conj [ (conj $t1 $t2 $t3 $t4) ]
-> [ [<hov 1> [<hov 1> "<" $t1:L "," [0 0] $t2:L ">" ] [0 0]
[<hov 1> "{" $t3:L "," [0 0] $t4:L "}"] ] ]
| IF [(IF $c1 then $c2 else $c3)] ->
[ [<hov 0> "IF " $c1:E [1 0]
"then " $c2:E [1 0]
"else " $c3:E ] ]
;
(*
level 2:
not [ ~ $t1 ] -> [ [<hov 0> "~" $t1:E ] ]
;
level 6:
and [ $t1 /\ $t2 ] -> [ [<hov 0> $t1:L [0 0] "/\\" $t2:E ] ]
;
level 7:
or [ $t1 \/ $t2 ] -> [ [<hov 0> $t1:L [0 0] "\\/" $t2:E ] ]
;
level 8:
iff [ $t1 <-> $t2 ] -> [ [<hov 0> $t1:L [0 0] "<->" $t2:E ] ]
;
*)
level 10:
all_pred [ (all $_ $p) ] -> [ [<hov 4> "All " $p:L ] ]
| all_imp [ (all $_ [$x : $T]$t) ]
-> [ [<hov 3> "ALL " $x ":" $T:L " |" [1 0] $t:L ] ]
| ex_pred [ (ex $_ $p) ] -> [ [<hov 0> "Ex " $p:L ] ]
| ex [ (ex $_ [$x : $T]$P) ]
-> [ [<hov 2> "EX " $x ":" $T:L " |" [1 0] $P:L ] ]
| ex2_pred [ (ex2 $_ $p1 $p2) ]
-> [ [<hov 3> "Ex2 " $p1:L [1 0] $p2:L ] ]
| ex2 [ (ex2 $_ [$x : $T]$P1 [$x : $T]$P2) ]
-> [ [<hov 2> "EX " $x ":" $T:L " |" [1 2] $P1:L [1 0] "& " $P2:L] ].
|
