Merge pull request #44 from FStarLang/guido_fixmatch

Small fix for match
FStarLang · Jul 27, 2023 · 771e25c · 771e25c
2 parents 88204cb + c6eac15
commit 771e25c
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/lib/steel/pulse/Pulse.Typing.Metatheory.Base.fst b/lib/steel/pulse/Pulse.Typing.Metatheory.Base.fst
@@ -266,7 +266,15 @@ let rec st_typing_weakening g g' t c d g1
 
     T_If _ b e1 e2 c uc hyp (magic ()) d_e1 d_e2 (magic ())
 
-  | T_Match _ sc_u sc_ty sc d_sc_ty d_sc c brs d_brs d_pats_complete -> magic ()
+  | T_Match _ sc_u sc_ty sc d_sc_ty d_sc c brs d_brs d_pats_complete ->
+    admit();
+    T_Match (push_env (push_env g g1) g')
+            sc_u sc_ty sc
+            (tot_typing_weakening g g' _ _ d_sc_ty g1)
+            (tot_typing_weakening g g' _ _ d_sc g1)
+            c brs
+            d_brs
+            d_pats_complete
 
   | T_Frame _ e c frame _ d_e ->
     T_Frame _ e c frame (magic ()) (st_typing_weakening g g' e c d_e g1)

diff --git a/src/ocaml/plugin/generated/Pulse_Typing_Metatheory_Base.ml b/src/ocaml/plugin/generated/Pulse_Typing_Metatheory_Base.ml
@@ -381,7 +381,11 @@ let rec (st_typing_weakening :
               | Pulse_Typing.T_Match
                   (uu___, sc_u, sc_ty, sc, d_sc_ty, d_sc, c1, brs, d_brs,
                    d_pats_complete)
-                  -> Prims.magic ()
+                  ->
+                  Pulse_Typing.T_Match
+                    ((Pulse_Typing_Env.push_env
+                        (Pulse_Typing_Env.push_env g g1) g'), sc_u, sc_ty,
+                      sc, (), (), c1, brs, d_brs, d_pats_complete)
               | Pulse_Typing.T_Frame (uu___, e, c1, frame, uu___1, d_e) ->
                   Pulse_Typing.T_Frame
                     ((Pulse_Typing_Env.push_env