Function expr_forall_matches

crates/kernel/src/congruence.rs:592–603

()

  #[test]
  fn expr_forall_matches() {
    let r = empty_resolver();
    let lean_e = env::Expr::all(
      mk_name("x"),
      env::Expr::sort(LL::zero()),
      env::Expr::bvar(n(0)),
      BinderInfo::Default,
    );
    let zero_e =
      KExpr::<Anon>::all((), (), KExpr::sort(KUniv::zero()), KExpr::var(0, ()));
    expr_congruent(&lean_e, &zero_e, &r).unwrap();
  }

  #[test]
  fn expr_let_matches() {