Check Always Matches Opt eqv check Always Matches

theorem checkAlwaysMatchesOpt_eqv_checkAlwaysMatches {p : Policy} {Γ : Validation.TypeEnv} :  Γ.WellFormed →  (do    let cp ← CompiledPolicy.compile p Γ    pure $ checkAlwaysMatchesOpt cp  ) =  (do    let wp ← wellTypedPolicy p Γ |>.mapError .validationError    pure $ checkAlwaysMatches wp (SymEnv.ofTypeEnv Γ)  ):= by  cases hcp : CompiledPolicy.compile p Γ  case ok cp =>    intro hwf    have ⟨wp, hwp, h⟩ := checkAlwaysMatchesOpt_eqv_checkAlwaysMatches_ok hwf hcp    simp [Except.mapError, hwp, h]  case error e =>    simp [Except.mapError]    cases hwp : wellTypedPolicy p Γ    case error e' =>      simp [CompiledPolicy.compile, Except.mapError, hwp] at hcp      simp [hcp]    case ok wp =>      intro hwf      have h := compile_ok_iff_welltypedpolicy_ok hwf (p := p)      simp [hcp, hwp, Except.isOk, Except.toBool] at h