Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Andrew Hirsch
Pirouette Coq Code
Commits
37855c7e
Commit
37855c7e
authored
Mar 02, 2021
by
Andrew Hirsch
Browse files
Got rid of some dumb warnings.
parent
aec2b9e5
Changes
3
Hide whitespace changes
Inline
Side-by-side
FunLMap.v
View file @
37855c7e
...
...
@@ -228,7 +228,6 @@ Module FunLMap (L : Locations) <: (LocationMap L).
cbn
in
*
.
destruct
(
inb
l
ls2
)
eqn
:
eq
.
rewrite
IHls1
'
;
intros
l
'
i
;
apply
sub
;
right
;
auto
.
Check
inb_spec
.
pose
proof
(
proj2
(
inb_spec
l
ls2
)
(
sub
l
ltac
:
(
left
;
reflexivity
))).
transitivity
(
inb
l
ls2
);
auto
.
Qed
.
...
...
LambdaCalc.v
View file @
37855c7e
...
...
@@ -247,7 +247,7 @@ Module LambdaCalc <: Expression.
|
appArgStep
:
forall
e1
e2
e2
'
:
Expr
,
LCStep
e2
e2
'
->
LCStep
(
app
e1
e2
)
(
app
e1
e2
'
).
Hint
Constructors
LCStep
:
LC
.
Global
Hint
Constructors
LCStep
:
LC
.
Definition
ExprStep
:=
LCStep
.
Theorem
ExprClosedBelowSubst
:
forall
(
e
:
Expr
)
(
σ
:
nat
->
Expr
)
(
n
:
nat
),
...
...
STLC.v
View file @
37855c7e
...
...
@@ -40,7 +40,7 @@ Module STLC <: (TypedExpression LambdaCalc).
end
)
⊢
e
e
:::
τ
2
->
Γ
⊢
e
(
abs
τ
1
e
)
:::
(
ArrowT
τ
1
τ
2
)
where
"Γ ⊢e e ::: τ"
:=
(
LCTyping
Γ
e
τ
).
Hint
Constructors
LCTyping
:
LC
.
Global
Hint
Constructors
LCTyping
:
LC
.
Definition
ExprTyping
:=
LCTyping
.
Definition
ExprVarTyping
:=
varTyping
.
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment