#![allow(unused_imports)]
use super::prelude::*;
use super::seq::*;
use super::view::*;
use core::slice::SliceIndex;

#[cfg(verus_keep_ghost)]
#[cfg(feature = "alloc")]
pub use super::std_specs::vec::VecAdditionalSpecFns;

verus! {

impl<T> View for [T] {
    type V = Seq<T>;

    uninterp spec fn view(&self) -> Seq<T>;
}

impl<T: DeepView> DeepView for [T] {
    type V = Seq<T::V>;

    open spec fn deep_view(&self) -> Seq<T::V> {
        let v = self.view();
        Seq::new(v.len(), |i: int| v[i].deep_view())
    }
}

pub trait SliceAdditionalSpecFns<T>: View<V = Seq<T>> {
    spec fn spec_index(&self, i: int) -> T
        recommends
            0 <= i < self.view().len(),
    ;
}

impl<T> SliceAdditionalSpecFns<T> for [T] {
    #[verifier::inline]
    open spec fn spec_index(&self, i: int) -> T {
        self.view().index(i)
    }
}

#[verifier::external]
pub trait SliceAdditionalExecFns<T> {
    #[cfg_attr(not(verus_verify_core), deprecated = "use `slice[i] = value` instead")]
    fn set(&mut self, idx: usize, t: T);
}

impl<T> SliceAdditionalExecFns<T> for [T] {
    #[verifier::external_body]
    fn set(&mut self, idx: usize, t: T)
        requires
            0 <= idx < old(self)@.len(),
        ensures
            final(self)@ == old(self)@.update(idx as int, t),
    {
        self[idx] = t;
    }
}

#[verifier::external_body]
#[cfg_attr(verus_keep_ghost, rustc_diagnostic_item = "verus::vstd::slice::slice_index_get")]
pub exec fn slice_index_get<T>(slice: &[T], i: usize) -> (out: &T)
    requires
        0 <= i < slice.view().len(),
    ensures
        *out == slice@.index(i as int),
{
    &slice[i]
}

////// Len (with autospec)
#[cfg_attr(all(verus_keep_ghost), rustc_diagnostic_item = "verus::vstd::slice::spec_slice_len")]
pub uninterp spec fn spec_slice_len<T>(slice: &[T]) -> usize;

// This axiom is slightly better than defining spec_slice_len to just be `slice@.len() as usize`
// (the axiom also shows that slice@.len() is in-bounds for usize)
pub broadcast axiom fn axiom_spec_len<T>(slice: &[T])
    ensures
        #[trigger] spec_slice_len(slice) == slice@.len(),
;

#[verifier::allow_in_spec]
pub assume_specification<T>[ <[T]>::len ](slice: &[T]) -> (len: usize)
    returns
        spec_slice_len(slice),
    opens_invariants none
    no_unwind
;

pub open spec fn spec_slice_is_empty<T>(slice: &[T]) -> bool {
    slice@.len() == 0
}

#[verifier::when_used_as_spec(spec_slice_is_empty)]
pub assume_specification<T>[ <[T]>::is_empty ](slice: &[T]) -> (b: bool)
    ensures
        b <==> slice@.len() == 0,
    opens_invariants none
    no_unwind
;

#[cfg(feature = "alloc")]
#[verifier::external_body]
pub exec fn slice_to_vec<T: Copy>(slice: &[T]) -> (out: alloc::vec::Vec<T>)
    ensures
        out@ == slice@,
{
    // Not `slice.to_vec()`: since Rust 1.93, `to_vec` copies bitwise only for `TrivialClone`
    // types and calls `Clone::clone` for a `Copy` type with a hand-written `Clone`.
    slice.iter().copied().collect()
}

#[verifier::external_body]
pub exec fn slice_subrange<T, 'a>(slice: &'a [T], i: usize, j: usize) -> (out: &'a [T])
    requires
        0 <= i <= j <= slice@.len(),
    ensures
        out@ == slice@[i..j],
{
    &slice[i..j]
}

#[verifier::external_trait_specification]
#[verifier::external_trait_extension(SliceIndexSpec via SliceIndexSpecImpl)]
pub trait ExSliceIndex<T> where T: ?Sized {
    type ExternalTraitSpecificationFor: SliceIndex<T>;

    type Output: ?Sized;

    spec fn in_bounds(&self, slice: &T) -> bool;

    spec fn index_postcondition(&self, slice: &T, r: &Self::Output) -> bool;

    spec fn index_mut_postcondition(
        &self,
        old_slice: &T,
        final_slice: &T,
        immediate_output: &Self::Output,
        final_output: &Self::Output,
    ) -> bool;

    fn index(self, slice: &T) -> (r: &Self::Output)
        requires
            self.in_bounds(slice),
        ensures
            self.index_postcondition(slice, r),
    ;

    fn index_mut(self, slice: &mut T) -> (r: &mut Self::Output)
        requires
            self.in_bounds(slice),
        ensures
            self.index_mut_postcondition(&*old(slice), &*final(slice), r, &*final(r)),
    ;

    fn get(self, slice: &T) -> (r: Option<&Self::Output>)
        ensures
            match r {
                None => !self.in_bounds(slice),
                Some(x) => self.in_bounds(slice) && self.index_postcondition(slice, x),
            },
    ;

    fn get_mut(self, slice: &mut T) -> (r: Option<&mut Self::Output>)
        ensures
            match r {
                None => !self.in_bounds(old(slice)) && &*final(slice) == &*old(slice),
                Some(x) => {
                    &&& self.in_bounds(old(slice))
                    &&& self.index_mut_postcondition(&*old(slice), &*final(slice), x, &*final(x))
                },
            },
    ;
}

pub broadcast axiom fn axiom_slice_ext_equal<T>(a1: &[T], a2: &[T])
    ensures
        #[trigger] (a1 =~= a2) <==> (a1.len() == a2.len() && forall|i: int|
            0 <= i < a1.len() ==> a1[i] == a2[i]),
;

#[verifier::external_body]
#[cfg_attr(verus_keep_ghost, rustc_diagnostic_item = "verus::vstd::slice::spec_slice_update")]
pub uninterp spec fn spec_slice_update<T>(slice: &[T], i: int, t: T) -> &[T];

pub broadcast axiom fn axiom_spec_slice_update<T>(slice: &[T], i: int, t: T)
    ensures
        0 <= i < spec_slice_len(slice) ==> (#[trigger] spec_slice_update(slice, i, t)@)
            == slice@.update(i, t),
;

#[verifier::external_body]
#[cfg_attr(verus_keep_ghost, rustc_diagnostic_item = "verus::vstd::slice::spec_slice_index")]
pub uninterp spec fn spec_slice_index<T>(slice: &[T], i: int) -> T;

pub broadcast axiom fn axiom_spec_slice_index<T>(slice: &[T], i: int)
    ensures
        0 <= i < spec_slice_len(slice) ==> (#[trigger] spec_slice_index(slice, i)) == slice@[i],
;

pub broadcast axiom fn axiom_slice_has_resolved<T>(slice: &[T], i: int)
    ensures
        0 <= i < spec_slice_len(slice) ==> #[trigger] has_resolved_unsized::<[T]>(slice)
            ==> has_resolved(#[trigger] slice@[i]),
;

/// We axiomatize that a slice can decrease to its corresponding sequence.
pub broadcast axiom fn axiom_slice_decreases_to_seq<T>(s: &[T])
    ensures
        #[trigger] (decreases_to!(s => s@)),
;

/// A slice can decrease to any of its elements, obtained by indexing.
pub broadcast proof fn lemma_slice_index_decreases<T>(s: &[T], i: int)
    requires
        0 <= i < s@.len(),
    ensures
        #[trigger] (decreases_to!(s => s@[i])),
{
    axiom_slice_decreases_to_seq(s);
    lemma_seq_index_decreases(s@, i);
}

pub axiom fn mut_ref_slice_len_eq<T>(tracked slice: &&mut [T])
    ensures
        old(*slice).len() == final(*slice).len(),
;

pub broadcast group group_slice_axioms {
    axiom_spec_len,
    axiom_slice_ext_equal,
    axiom_spec_slice_update,
    axiom_spec_slice_index,
    axiom_slice_has_resolved,
    axiom_slice_decreases_to_seq,
    lemma_slice_index_decreases,
}

pub axiom fn tracked_borrow<T>(tracked s: &[T], i: int) -> (tracked t: &T)
    requires
        0 <= i < s.len(),
    ensures
        t == s[i],
;

pub axiom fn tracked_borrow_mut<T>(tracked s: &mut [T], i: int) -> (tracked t: &mut T)
    requires
        0 <= i < s.len(),
    ensures
        *t == old(s)[i],
        final(s)@ == old(s)@.update(i, *final(t)),
;

} // verus!