CatalaLang/catala
1
1
Fork 0
mirror of https://github.com/CatalaLang/catala.git synced 2024-09-20 00:41:05 +03:00
Code Issues Projects Releases Wiki Activity

Prove small precedes lemma

Browse Source
This commit is contained in:
Denis Merigoux 2021-02-15 22:01:37 +01:00
parent 35ae5ff39a
commit ddfc67af55
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
doc/formalization/Catala.Translation.fst
View File

@ -367,6 +367,12 @@ and substitution_correctness_list (x: D.var) (e_x: D.exp) (e: D.exp) (l: list D.
substitution_correctness_list x e_x e tl
#pop-options
let exceptions_smaller'
(e: D.exp{match e with D.EDefault _ _ _ _ -> True | _ -> False})
: Lemma(let D.EDefault exc _ _ _ = e in exc << e)
=
()
let exceptions_smaller
(exceptions: list D.exp)
(just: D.exp)
@ -374,7 +380,7 @@ let exceptions_smaller
(tau: D.ty)
: Lemma(exceptions << (D.EDefault exceptions just cons tau))
=
admit() // Dumb, shouldn't it be provable?
exceptions_smaller' (D.EDefault exceptions just cons tau)
let build_default_translation_typing_source
(exceptions: list D.exp)