fact: Fixpoint ExprToProp (e : Expr) : Prop := match e with | V n => fmap n | normalize.N e' => ~ ExprToProp e' | Node ANd e1' e2' => ExprToProp e1' /\ ExprToProp e2' | Node Or e1' e2' => ExprToProp e1' \/ ExprToProp e2' | Node Impl e1' e2' => ExprToProp e1' -> ExprToProp e2' | Node normalize.Eq e1' e2' => ExprToProp e1' <-> ExprToProp e2' end.
imports: Coq(ZArith) Stalmarck(normalize) Coq(Classical) Stalmarck(sTactic)