https://github.com/EasyCrypt/easycrypt
Tip revision: e6cc4a0302857bfef75c67f08a8b115bf4ed257d authored by Benjamin Gregoire on 30 January 2024, 10:07:36 UTC
.
.
Tip revision: e6cc4a0
ecPhlTAuto.ml
(* -------------------------------------------------------------------- *)
open EcFol
open EcCoreGoal
open EcLowPhlGoal
(* -------------------------------------------------------------------- *)
let t_hoare_true_r tc =
match (FApi.tc1_goal tc).f_node with
| FhoareF hf when f_equal hf.hf_po f_true ->
FApi.xmutate1 tc `HoareTrue []
| FhoareS hs when f_equal hs.hs_po f_true ->
FApi.xmutate1 tc `HoareTrue []
| _ ->
tc_error !!tc
"the conclusion is not of the form %s"
"hoare[_ : _ ==> true]"
let t_hoare_true = FApi.t_low0 "hoare-true" t_hoare_true_r
(* -------------------------------------------------------------------- *)
let f_xr0 = f_r2xr f_r0
let t_ehoare_zero_r tc =
match (FApi.tc1_goal tc).f_node with
| FeHoareF hf when f_equal hf.ehf_po f_xr0 ->
FApi.xmutate1 tc `eHoareZero []
| FeHoareS hs when f_equal hs.ehs_po f_xr0 ->
FApi.xmutate1 tc `eHoareZero []
| _ ->
tc_error !!tc
"the conclusion is not of the form %s"
"ehoare[_ : _ ==> 0%xr]"
let t_ehoare_zero = FApi.t_low0 "hoare-zero" t_ehoare_zero_r
(* -------------------------------------------------------------------- *)
let t_core_exfalso_r tc =
let pre = tc1_get_pre tc in
if not (f_equal pre f_false) then
tc_error !!tc "pre-condition is not `false'";
FApi.xmutate1 tc `ExFalso []
let t_core_exfalso = FApi.t_low0 "core-exfalso" t_core_exfalso_r