senvas/ladder-calculus
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

morphism paths: add Lift path

Browse source
This commit is contained in:
Michael Sippel 2024-09-08 15:29:47 +02:00
parent 865ceff7d4
commit 850285cff0
Signed by: senvas
GPG key ID: F96CF119C34B64A6
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
coq/morph.v
View file

@ -30,6 +30,10 @@ Inductive morphism_path : context -> type_term -> type_term -> Prop :=
(Γ |- τ' ~> τ'') ->
(Γ |- τ ~> τ'')
| M_Lift : forall Γ σ τ τ',
(Γ |- τ ~> τ') ->
(Γ |- (type_ladder σ τ) ~> (type_ladder σ τ'))
| M_MapSeq : forall Γ τ τ',
(Γ |- τ ~> τ') ->
(Γ |- (type_spec (type_id "Seq") τ) ~> (type_spec (type_id "Seq") τ'))