https://github.com/EasyCrypt/easycrypt
Tip revision: ec03a3cfc2aa2fa68eab5360507b10f1b2400eef authored by Pierre-Yves Strub on 29 November 2019, 13:19:00 UTC
Tip revision: ec03a3c
ecPhlTrans.mli
(* --------------------------------------------------------------------
* Copyright (c) - 2012--2016 - IMDEA Software Institute
* Copyright (c) - 2012--2018 - Inria
* Copyright (c) - 2012--2018 - Ecole Polytechnique
*
* Distributed under the terms of the CeCILL-C-V1 license
* -------------------------------------------------------------------- *)
(* -------------------------------------------------------------------- *)
open EcParsetree
open EcCoreGoal.FApi
(* -------------------------------------------------------------------- *)
(* Transitivity rule for equiv
*
*
* 1. forall m1 m2 m3, Q1 m1 m2 => Q2 m2 m3 => Q m1 m3
* 2. c1 ~ c2 : P1 ==> Q1
* 3. c2 ~ c3 : P2 ==> Q2
* --------------------------------------------------------
* c1 ~ c3 : P ==> Q
* The most basic rule is normally:
* Q = exists m2, Q1 m1 m2 /\ Q2 m2 m3
*
* The actual rule is in this core rule + conseq.
*)
(* -------------------------------------------------------------------- *)
val process_equiv_trans :
trans_kind * trans_formula -> backward