pl/frap
1
0
Fork 0
mirror of https://github.com/achlipala/frap.git synced 2025-01-09 17:44:15 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Simplified type-soundness proof, based on an idea by Maya Sankar last year

Browse source
This commit is contained in:
Adam Chlipala 2021-03-27 17:15:22 -04:00
parent 5cdd4d1322
commit 008c45351a
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
EvaluationContexts.v
View file

@ -186,17 +186,18 @@ Module Stlc.
Local Hint Resolve preservation0 : core. Local Hint Resolve preservation0 : core.
Lemma generalize_plug : forall e1 C e1', Lemma preservation' : forall C e1 e1',
plug C e1 e1' plug C e1 e1'
-> forall e2 e2', plug C e2 e2' -> forall e2 e2' t, plug C e2 e2'
-> (forall t, hasty $0 e1 t -> hasty $0 e2 t) -> step0 e1 e2
-> (forall t, hasty $0 e1' t -> hasty $0 e2' t). -> hasty $0 e1' t
-> hasty $0 e2' t.
Proof. Proof.
induct 1; t. induct 1; t.
Qed. Qed.
Local Hint Resolve generalize_plug : core. Local Hint Resolve preservation' : core.
Lemma preservation : forall e1 e2, Lemma preservation : forall e1 e2,
step e1 e2 step e1 e2
-> forall t, hasty $0 e1 t -> forall t, hasty $0 e1 t